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

163l2UGS

各位大神：
            现求一个CAD把实线改为虚线的LSP，点图标太麻烦了，影响效率
! W6 G# A& n/ S9 {# [9 d4 t6 C
8 t" C" h2 J$ g6 f* q  \( O(defun c：Lda() ;改变对象虚线     
       (command "change" "c" "7" "DASHED" "")
)
5 V7 f& R- \+ M0 E  N" ~: t4 c就这种，我不知道哪里问题

zlg521314

(defun c:lda() ;改变对象虚线
    (princ "\n 选择需要变更虚线的物体:")
    (command "change" (ssget) ""  "p" "C"  "7"  "lt" "DASHED" "")
* s5 V" ~- {9 k$ x2 c   (princ)
+ ~9 o1 P% J: r) C )