Question

急求高手帮忙改下LSP语言，让一个数字对应一种颜色再相对应一个图层。谢谢

; 变色
(defun c:1 (/ gp) (setq gp (ssget)) (command "change" gp "" "p" "co" "1" ""))
(defun c:2 (/ gp) (setq gp (ssget)) (command "change" gp "" "p" "co" "2" ""))
(defun c:3 (/ gp) (setq gp (ssget)) (command "change" gp "" "p" "co" "3" ""))
(defun c:4 (/ gp) (setq gp (ssget)) (command "change" gp "" "p" "co" "4" ""))
(defun c:5 (/ gp) (setq gp (ssget)) (command "change" gp "" "p" "co" "5" ""))
(defun c:6 (/ gp) (setq gp (ssget)) (command "change" gp "" "p" "co" "6" ""))
(defun c:7 (/ gp) (setq gp (ssget)) (command "change" gp "" "p" "co" "7" ""))
(defun c:8 (/ gp) (setq gp (ssget)) (command "change" gp "" "p" "co" "8" ""))

Answer 1

ssget是让你去选择可以多选
如果要自动选自动分层你要再研究一下ssget 和他的参数加筛选
(command "change" gp "" "p" "co" "1" "")这个是把你选的元素颜色改为一号色
要对应图层你要先建立图层 在用change修改图层