求一个CAD把实线改为虚线的LSP

163l2UGS

各位大神：
8 v$ _. y  b5 I/ p: ?9 z            现求一个CAD把实线改为虚线的LSP，点图标太麻烦了，影响效率

(defun c：Lda() ;改变对象虚线     
       (command "change" "c" "7" "DASHED" "")
)
就这种，我不知道哪里问题
: w7 t" n# y& l) `

7 r/ Z/ K; r! G$ }

zlg521314

(defun c:lda() ;改变对象虚线
    (princ "\n 选择需要变更虚线的物体:")
5 w9 b! F8 ~8 p    (command "change" (ssget) ""  "p" "C"  "7"  "lt" "DASHED" "")
   (princ)
)