cad替换文字命令（cad批量文字，对应一一替换）

是可以修改的。

只要在画图区单击右键，选择“查找”后，查找并替换就行了。

它的修改方法和EXCEL是一样的，同样在“编辑”工具栏下也可以找到“查找”这一命令的。

注意事项：相似内容的修改，不相同的地方要注意。

H28-0228现代北欧装饰柜酒柜

(defun c:MJL3 ( / #k1 #kw $kw #k %k)
 (setvar "cmdecho" 0)
 (setvar "blipmode" 0)
 (if (null vlax-dump-object) (vl-load-com) )
 (setq #k1 (ttes6))
 (if (/= #k1 nil)
  (progn
   (setq #kw (ttes5))
   (if (= #kw nil) (alert "
没有选择需要被替换的文字") )
   (if (/= #kw nil)
    (progn
     (setq $kw nil)
     (initget "X C")
     (setq %k (getkword "
请选择要替换的文字范围[框选指定范围(C)/整个图形范围(X)]:<框选指定范围(C)>"))
     (if (= %k nil) (setq %k "C") )
     (if (/= (member %k (list "C" "c")) nil) (setq $kw (ssget (list (cons 0 "TEXT,MTEXT") (cons 1 #kw)))) )
     (if (/= (member %k (list "X" "x")) nil) (setq $kw (ssget "X" (list (cons 0 "TEXT,MTEXT") (cons 1 #kw)))) )
     (if (/= $kw nil)
      (progn
       (setq n 0)
       (repeat (sslength $kw)
        (setq %k (entget (ssname $kw n)))
        (setq n (+ n 1))
        (setq #k (assoc 1 %k))
        (setq %k (subst #k1 #k %k))
        (entmod %k)
       )
      )
     )
    )
   )
  )
 )
 (prin1)
)
(defun ttes5 ( / #kw %k)
 (initget "T")
 (setq #kw (entsel "
请选择要被替换的文字内容或输入文字（T）[输入文字(T)]: <选择文字> "))
 
 (if (and (/= #kw nil) (= (member #kw (list "t" "T")) nil))
  (progn
   (setq #kw (entget (car #kw)))
   (setq %k (cdr (assoc 0 #kw)))
   (if (or (= %k "TEXT") (= %k "MTEXT"))
    (setq %k (cdr (assoc 1 #kw))) )
  )
 )
 (if (/= (member #kw (list "t" "T")) nil)
  (progn
   (setq %k (getstring "
请输入要被替换的文字内容: "))
   (if (= %k nil) (alert "
未输入文字") )
  )
 )
 %k
)
(defun ttes6 ( / #kw1 #k #k1)
 (setq #kw1 (entsel "
请选择用来替换的文字"))
 (if (/= #kw1 nil)
  (progn
   (setq #k1 nil)
   (setq #kw1 (car #kw1))
   (setq #kw1 (entget #kw1))
   (setq #k (cdr (assoc 0 #kw1)))
   (if (or (= #k "TEXT") (= #k "MTEXT")) (setq #k1 (assoc 1 #kw1)) )
   (if (= #k1 nil) (alert "
选择的不是文字") )
  )
 )
 #k1
)
;;以上内容复制并粘贴到记事本，以：（MJL3.lsp）命名
(prompt "
《MJL3》替换文字")
(prin1)

autolisp程序，可以批量修改文字。程序命令为：MJL3；加载到AutoCAD里面使用；