lisp图元变颜色，更改颜色

在新手开发里面经常用到变颜色来区分自己程序是否是自己需要的结果，当然这个也不是一定的，直接上菜吧  (command "chprop" 图元 "" "c" "颜色代号码" "");颜色

例子：

(defun c:ccc(/ ss q1)

(setq ss (ssget));选择

(setq q1(ssname ss 0));取到选集中的第一个图源；批量选择需要循环

(command "chprop" q1 "" "c" "100" "")

)
复制