各位请进，式子出现错误解决不了，求助

adslwang

我是新手，请问下面的式子，主要是要将原有线型转换成自建的线型，当输入的线型存在于图档内则替换，如果图档没有这一个线型则从外面的自建线形档.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))
    )
)