Question

选定对象自动分层的lisp程序

哪位高手能帮我写个cad的lisp程序？
功能是：
1.把选定 "颜色7" 的所有对象放在图层1
2.把选定 "颜色1" 的所有对象放在图层2
3.把选定 "颜色155" 的所有对象放在图层3
，三个功能同时实现

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏20（财富值+成长值）

Answer 1

;请试用以下程序
(defun c:tcc()
(setq cm (getvar "cmdecho"))
(setvar "cmdecho" 0)
(command "_undo" "be")
(if (setq ssa (ssget "x" '((62 . 7))))
(command "_chprop" ssa "" "la" "图层1" "")
)
(if (setq ssa (ssget "x" '((62 . 1))))
(command "_chprop" ssa "" "la" "图层2" "")
)
(if (setq ssa (ssget "x" '((62 . 155))))
(command "_chprop" ssa "" "la" "图层3" "")
)
(command "_undo" "e")
(setvar "cmdecho" cm)
(princ)
)