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

最新推荐文章于 2025-05-14 15:26:09 发布

原创最新推荐文章于 2025-05-14 15:26:09 发布 · 1.4k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#lisp #lsp

文章描述了一个在AutoCAD环境中自定义的函数change_color，该函数允许用户选择对象并改变其颜色，类似于CAD中的删除和移动命令。它会将选中的红色图元改为白色，非红色图元改为红色。

命令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);设置成红色
		)
	)
	)
)