帮忙看看那里有问题，郁闷！

psufngah

(defun c:tet (\ old_zt en ent ent1  new_zt en1 i zt n_zt x m u ss1 ss2 cse ssn)
  
(setq old_zt (car (entsel "\n选择需要变更的字体样式的文字: \n")))
(setq en (assoc 7 (entget old_zt)))
(setq cse (cdr en))
  
(setq new_zt (car (entsel "\n选择替代的字体样式文字: \n")))
(setq en1 (assoc 7 (entget new_zt)))
  
(setq ent (ssget "X" '((-4 . "<OR")(0 . "MTEXT")(0 . "TEXT")(-4 . "OR>"))))
(setq i (sslength ent))
(setq ssn(ssadd))
  
  (setq x 0)
  (while (< x i)
  (setq ss1(ssname ent x))
  (setq ss2 (cdr(assoc 7 (entget ss1))))
    (if (= ss2 cse)(ssadd ss1 ssn))
    (setq x (+ x 1))
  )
  (setq u (sslength ssn))
  (setq m 0)
  (while (< m u)
  (setq ent1 (ssname ssn m))
  (setq zt (assoc 7 (entget ent1)))
  (setq n_zt(subst en1 zt (entget ent1)))
  (entmod n_zt)
  (entupd ent1)
  (setq m (+ m 1))
  )
(princ)
)

lyq999999

不太明白。希望有高手未你解答吧

zyhandw

定义形参与定义局部变量间应该用"/"，而不是"\"，改过来就可以了！

psufngah

非常感谢。。。。。