图层颜色统一

adc

想用程序把图里（包括块内）所有颜色为8 9 250 251 252 254的层的颜色统一改为253号色，不知道怎么做，请高手帮忙一下，谢谢啦

牢固

1. (defun c:tt(/ color)
   
2.   (vlax-for item (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object)))
   
3.     (vlax-for obj item
   
4.     (if (or (= 8 (setq color (vla-get-color obj)))
   
5.             (= 9 color)
   
6.             (= 250 color)
   
7.             (= 251 color)
   
8.             (= 252 color)
   
9.             (= 254 color)
   
10.             )
    
11.       (vla-put-color obj 253)
    
12.       )
    
13.       )
    
14.             
    
15.     )
    
16.   )
    

(defun c:tt(/ color)<br />   (vlax-for item (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object)))<br />     (vlax-for obj item<br />     (if (or (= 8 (setq color (vla-get-color obj)))<br />             (= 9 color)<br />             (= 250 color)<br />             (= 251 color)<br />             (= 252 color)<br />             (= 254 color)<br />             )<br />       (vla-put-color obj 253)<br />       )<br />       )<br />             <br />     )<br />   )<br />

adc

牢固 发表于 2011-9-10 21:39

谢谢你的帮忙，不过好像有点问题，运行显示tt nil，而且你这好像只是改对象的颜色，不是图层的颜色对吗？

Andyhon

建议楼主上传调试用的文件
较能免致会错意

牢固

1. (defun c:tt(/ color)
   
2.   (vlax-for item (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object)))
   
3.    
   
4.     (if (or (= 8 (setq color (vla-get-color item)))
   
5.             (= 9 color)
   
6.             (= 250 color)
   
7.             (= 251 color)
   
8.             (= 252 color)
   
9.             (= 254 color)
   
10.             )
    
11.       (vla-put-color item 253)
    
12.   
    
13.       )
    
14.             
    
15.     )
    
16.   )
    

(defun c:tt(/ color)<br />   (vlax-for item (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object)))<br />     <br />     (if (or (= 8 (setq color (vla-get-color item)))<br />             (= 9 color)<br />             (= 250 color)<br />             (= 251 color)<br />             (= 252 color)<br />             (= 254 color)<br />             )<br />       (vla-put-color item 253)<br />   <br />       )<br />             <br />     )<br />   )<br />

raimo

请问如果是把块内所有图层全部改为指定颜色呢?  改的时候询问指定颜色号..

牢固

raimo 发表于 2011-9-12 19:20
请问如果是把块内所有图层全部改为指定颜色呢?  改的时候询问指定颜色号..

????????????????????????????

raimo

就是把一个块内的对象全部改成一个颜色,比如默认250号色..
改之前问一下想改的颜色号