怎么加颜色

lxqun · 发表于 2004-3-5 17:24:00

在lisp里调用(command)画图，怎么给图上个颜色呢，比如我用（command 'arc' ....)画一道弧，能不能把弧和它的圆心都加个颜色

meflying · 发表于 2004-3-5 17:45:00

画完一个对象后，(setcolor (entlast) 1)
(defun setcolor(sname color / sinf)
   (setq sinf (entget sname))
   (if (assoc 62 sinf)
   (setq sinf (subst (cons 62 color) (assoc 62 sinf) sinf))
   (setq sinf (append sinf (list (cons 62 color))))
   )
   (entmod sinf)
)

ljcgq · 发表于 2004-3-5 19:29:00

(DEFUN C:cv( /    )

   (setq ss (ssget    ) )
   (setq cl (getint "请输入要改变的颜色1.红的2.黄色3.绿色4.青色7.白色"))

   (SETQ N (SSLENGTH SS))
   (SETQ A (- N 1))
   (REPEAT N

   (setq name(ssname ss A))

   (command "change" name "" "p" "c" cl "")

   (SETQ    A (- A 1))
   )
   )