[LISP程序]：线型全局匹配程序（仅Ｒ14下正常运行，2006下异常，请高手指教）

yuyedu

在ｒ１４下可以使需要匹配层下的所有直线与源直线的所有属性匹配，包括颜色，线型比例、线宽等，但是在2006下加载运行只能实现颜色和线宽的匹配，请问这个问题怎么解决？？？源程序如下：
;;;**
;;;** UENTSl
;;;** User interface ENTSEL function adds no-null and keywords to "ENTSEL"
;;;**
(defun uentsl (bit kwd msg def / inp nogood)
   (if (and msg (/= msg " ")) nil (setq msg "Select object"))
   (if (and def (/= def " "))
      (setq msg (strcat "\n" msg "<" def ">:")
         bit 0
      )
      (if (= " " (substr msg (strlen msg) 1))
         (setq msg (strcat "\n" (substr msg 1 (1- (strlen msg))) ":"))
            (setq msg (strcat "\n" msg ":"))
   ))
   (setq nogood t)
   (while nogood
      (initget bit kwd)
      (setq inp (entsel msg))
      (if (or (= bit 0) inp)
         (setq nogood nil)
         (prompt "\nMust select an entity or keyword.")
      )
   )
   (if inp inp def)
)
;;;**
(defun *ERROR* (msg)
   (princ)
)
;;;*
(defun C:TNN (/ la slet_set c_la_ent_name n ent)
(while (equal (setq la (uentsl 1 " " "请点取欲修改到某层中的任一实体" "THICK")) "THICK")
)
(if (equal la "")
   (setq la "THICK")
)
(if (listp la)
   (setq la (cdr (assoc 8 (entget (car la)))))
)
(while (equal (setq c_la_ent_name (uentsl 1 " " "请点取欲修改到其它层中的任一实体" "THIN")) "THIN")
)
(if (equal c_la_ent_name "")
   (setq c_la_ent_name "THIN")
)
(if (listp c_la_ent_name)
   (setq c_la_ent_name (cdr (assoc 8 (entget (car c_la_ent_name)))))
)
(prompt "\n请稍候!")
(setvar "CMDECHO" 0)
(command "osnap" "off")
;(command "layer" "m" c_la_ent_name "")
(setq slet_set (ssget "x" (list (cons 8 la))))
(if slet_set
   (progn
      (setq n 0)
      (while (< n (sslength slet_set))
         (setq ent (ssname slet_set n))
         (command "_.change" ent "" "P" "LA" c_la_ent_name "")
         (princ)
         (prompt ".")
         (setq n (1+ n))
      )
   )
)
(redraw)
(command "osnap" "int")
(prompt "OK!")
(princ)
)