求助，替换文字lisp无法在cad2004里执行（问题已解决）

qhd_aixin

下面是替换文字的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)

phoenixdjq

是你的用法不对吧，我的能用呀

当你点完第一个文字后，再点第二个文字，第二个就变成了第一个文字了

看看程序的说明吧

qhd_aixin

非常感谢phoenixdjq！

我又试了一遍，确实可以用，没有问题。我是在单位测试的时候不能用的，可能是单位cad的问题吧，我明天再试试！