CAD改变对象颜色快捷键lsp程序.docxVIP

CAD改变对象颜色快捷键复制下面程序在txt里面，1为红色2为绿色3456等等，序号与CAD里面颜色顺序一致，只更改所有数字即可。编好后扩展名改为.lsp保存，CAD中工具选项加载LSP文件即可。以下为程序：;;键入相应数字改变所选对象颜色;;数字2 (defun C:2 ( / gp) (setvar cmdecho 0) (princ \n★改变对象颜色为绿色★) (setqgp (ssget)) (if (/= gp nil) (command .change gp p c 2 )) (princ \nOK) (princ) );enddefun C:2