改变指定图层的文字的颜色

qdzbg

我想改变JZD层的文字颜色为白色，请问如何写LISP?

ㄘ丶转裑ㄧ灬

用选择易就行了，没必要单独写个程序
http://bbs.mjtd.com/thread-86610-1-1.html

ZZXXQQ

2. (defun c:tt ()
   
3. (if (setq ss (ssget '((0 . "TEXT") (8 . "JZD"))))
   
4.   (command "CHPROP" ss "" "CO" 7 "")
   
5. )
   
6. (princ)
   
7. )

(defun c:tt ()<br /> (if (setq ss (ssget '((0 . "TEXT") (8 . "JZD"))))<br />   (command "CHPROP" ss "" "CO" 7 "")<br /> )<br /> (princ)<br /> )

Andyhon

(defun auto ()
...
)
(auto)