2023年11月25日发(作者：)

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