Question

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

命令A，选择对象，将选择的所有图元中颜色等于红色的对象修改为白色。先选择对象，再输入命令也能完成上面的改色就更好了。（最好像CAD 删除和移动命令，先输入命令再选择对象、先选择对象再输入命令、都能执行）
补充一下新的需求：
如果对象颜色不等于红色，则修改为红色，如果颜色等于红色，则修改为白色。

Answer 1

(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)
纯手打 给个赞吧！

Answer 2

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