[求助]：如何更改颜色随层的实体颜色？

hnjzwql

如何更改颜色随层的实体颜色？

carrot1983

老话题;
参考这个。。。
http://carrot1983.blog.sohu.com/109742025.html

2. 
   
3. ;;改随层本色(举例：图层为黄色随层的图元，改成黄色本色) carrot1983 2009-02-06PS: 加上(vl-load-com)
   
4. (defun C:TT (/ COL E ELIST I LAYER O SS)
   
5.   (princ "\n改随层本色")
   
6.   (if (setq SS (ssget))
   
7.     (repeat (setq I (sslength SS))
   
8.       (if (and (setq E (ssname SS (setq I (1- I))))
   
9.                (setq O (vlax-ename->vla-object E))
   
10.                (= (vla-get-color O) 256) ;_随层
    
11.           )
    
12.         (progn
    
13.           (setq LAYER (vla-get-layer O))
    
14.           (setq ELIST (tblsearch "layer" LAYER))
    
15.           (setq COL (cdr (assoc 62 ELIST)))
    
16.           (vla-put-color O COL)
    
17.         )
    
18.       )
    
19.     )
    
20.   )
    
21.   (princ)
    
22. )
    
23. 
    

<br /> ;;改随层本色(举例：图层为黄色随层的图元，改成黄色本色) carrot1983 2009-02-06PS: 加上(vl-load-com)<br /> (defun C:TT (/ COL E ELIST I LAYER O SS)<br />   (princ "\n改随层本色")<br />   (if (setq SS (ssget))<br />     (repeat (setq I (sslength SS))<br />       (if (and (setq E (ssname SS (setq I (1- I))))<br />                (setq O (vlax-ename->vla-object E))<br />                (= (vla-get-color O) 256) ;_随层<br />           )<br />         (progn<br />           (setq LAYER (vla-get-layer O))<br />           (setq ELIST (tblsearch "layer" LAYER))<br />           (setq COL (cdr (assoc 62 ELIST)))<br />           (vla-put-color O COL)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

hnjzwql

谢谢！

fl202

可以用(command "chprop"  对象 "c" 2)
如果是还没有绘制，即将绘制的，可以(setvar "cecolor" 2) 画完了(setvar "cecolor"  "bylayer")
两种方法都可以实现。

qeelee

收益匪浅

820178044lz

@carrot1983 省了我很多功夫 谢谢