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

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

(defun C: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))
	(print v_c)
	(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);设置成红色
		)
	)
	)
)