各位请进，式子出现错误解决不了，求助
我是新手，请问下面的式子，主要是要将原有线型转换成自建的线型，当输入的线型存在于图档内则替换，如果图档没有这一个线型则从外面的自建线形档.LIN载入替换，可是一直出现错误，请问如何修正下面的式子，谢谢。(PS 线型数字的前面故定会加一个A来区别)
(defun c:3000()
(while t
(setq en (car (entsel "\n 点选物件，这物件代表要变更图层上线型：")))
(setq endataa (entget en))
(setq ddd (cdr(assoc 8 endataa)))
(princ "\n 选到图层线型是 [") (princ ddd) (princ " ]， ")
(initget 1 "2000 2200 2400 2500 2700 2600 2800")
(SETQ CHA3000 (getkword "请输入线型名称："))
(SETQ CHA30001 (STRCAT "A" CHA3000))
(if (NULL (TBLSEARCH "CELTYPE" CHA30001))
(PROGN
(setq ss "C:\\线型档区\\线型档测试.lin")
(command "-linetype" "L" CHA30001 ss "" PAUSE)))
(cond
((= en nil)
(alert (strcat "\n 没有选中物件，再选一次"))
(prin1)
)
(t
(setq endata (entget en))
(setq dd (cdr(assoc 8 endata)))
(setq ss5 (ssget"X"(list(cons 8 dd))))
(COMMAND "chprop" SS5 "" "LT" CHA30001 "")
(princ "\n 图层线型是 = [ ") (princ dd) (princ " ]，被线型 [ ")(princ CHA30001) (princ " ]整个替换。"))
(prin1))
)
)
页:
[1]