本帖最后由 作者 于 2009-4-7 23:48:24 编辑
下面是替换文字的lisp,在cad2004下可以加载,缺无法执行,是不是这个不适合2004版本啊?有高手帮改下适合2004版本的吗? 只要替换文字内容就可以,不用替换格式。 (defun C:TD (/ E1 E2 ELIST OLDERR V1)
(princ "\n选择源文字替代目标文字") (if (not OLDERR) (setq OLDERR *ERROR*) ) (defun *ERROR* (MSG /) (setq *ERROR* OLDERR OLDERR NIL ) (redraw E1 4) (princ MSG) (princ) ) (if (setq E1 (car (entsel "\n选择源文字<退出>: "))) (progn (redraw E1 3) (while (setq E2 (car (entsel "\n选择目标文字<退出>: "))) (progn (setq V1 (cdr (assoc 1 (entget E1)))) (setq ELIST (entget E2)) (entmod (subst (cons 1 V1) (assoc 1 ELIST) ELIST ) ) ) ) (redraw E1 4) ) ) (setq *ERROR* OLDERR) (princ) ) (princ)
|