Auto CAD AUTOLISP LSP 如何实现修改对象颜色？

(defun change_color(/ P1 P2 ss n ent_name v_c my_color )
(vl-load-com)
(setq P1 (getpoint "选择框选图元的第一个角点"))
(setq P2 (getcorner P1 "选择框选图元的第二个角点"))
(setq ss (ssget "c" P1 P2));得到选择的所有图元
(setq n 0)
(repeat (sslength ss)
(setq ent_name (ssname ss n))
(setq n (+ n 1))
(setq v_c (vlax-ename->vla-object ent_name))
(setq my_color (vla-get-Color v_c));得到颜色
(if (= my_color 1);如果等于红色
(progn
(vla-put-Color v_c 7);设置成白色
)
)
(if (/= my_color 1);如果不等于红色
(progn
(vla-put-Color v_c 1);设置成红色
)
)
)
)
复制到autolisp
命令栏输入：(change_color)
纯手打 给个赞吧！

你这单纯只改颜色还不如直接点击上面线的颜色更快，而且颜色有200+种，不过把选中的图元改到当前图层命令是laycur