颜色随层求助

香田里浪人

highflybir 发表于 2006-12-25 13:35
用之前先把所有图层解锁，加载上面代码，运行CCC
试验上面的方法可以不?（应该是很快的了，因为直接用的Ac ...

经测试，速度确实很快。

enn09

速度确实很快,感谢分享

tianyi1230

搞飞鸟版本的插件怎么用不了呢？

灬北方狼灬

学习了,前辈们真厉害.

荒野孤行

dj0737 发表于 2013-8-18 01:57
能不能指定图层随层啊？？

1. ;试试这个，可以指定随层的。
   
2. (defun c:t1 ()
   
3.   (vl-load-com)
   
4.   (setq ss (ssget '((0 . "*LINE,CIRCLE,ELLIPSE,ARC"))))
   
5.   (setq i 0)
   
6.   (repeat (sslength ss)
   
7.     (setq entnam  (ssname ss i)
   
8.     obj    (vlax-ename->vla-object entnam)
   
9.     obj_col (vla-get-color obj)
   
10.     )
    
11.     (if  (/= obj_col 256)
    
12.       (vla-put-color obj 256)
    
13.     )
    
14.     (setq i (1+ i))
    
15.   )
    
16. )

;试试这个，可以指定随层的。<br /> (defun c:t1 ()<br />   (vl-load-com)<br />   (setq ss (ssget '((0 . "*LINE,CIRCLE,ELLIPSE,ARC"))))<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (setq entnam  (ssname ss i)<br />     obj    (vlax-ename->vla-object entnam)<br />     obj_col (vla-get-color obj)<br />     )<br />     (if  (/= obj_col 256)<br />       (vla-put-color obj 256)<br />     )<br />     (setq i (1+ i))<br />   )<br /> )