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