[LISP函数]：把所有的物体合并到0层并颜色随层的程序

highflybird

2. 
   
3. (defun C:eee (/ Obj blocklist block n)
   
4.   (vl-load-com)
   
5.   (setq *OBJ (vlax-get-acad-object))
   
6.   (setq *DOC (vla-get-activedocument *OBJ))
   
7.   (setq blocklist (vla-get-blocks *DOC));取得块集合
   
8.   (vlax-for block blocklist             ;遍历块集合
   
9.     (vlax-for n block                   ;遍历单个块
   
10.       (if (/= (vla-get-layer n) 0)
    
11.         (vla-put-layer n 0)
    
12.       )
    
13.       (if (/= (vla-get-color n) 256)
    
14.         (vla-put-color n 256)
    
15.       )
    
16.     )
    
17.   )
    
18.   (princ "\n完成收工!")
    
19.   (princ)
    
20. )
    

<br /> (defun C:eee (/ Obj blocklist block n)<br />   (vl-load-com)<br />   (setq *OBJ (vlax-get-acad-object))<br />   (setq *DOC (vla-get-activedocument *OBJ))<br />   (setq blocklist (vla-get-blocks *DOC));取得块集合<br />   (vlax-for block blocklist             ;遍历块集合<br />     (vlax-for n block                   ;遍历单个块<br />       (if (/= (vla-get-layer n) 0)<br />         (vla-put-layer n 0)<br />       )<br />       (if (/= (vla-get-color n) 256)<br />         (vla-put-color n 256)<br />       )<br />     )<br />   )<br />   (princ "\n完成收工!")<br />   (princ)<br /> )<br />

实在不好意思，又出错重新发了一遍，对不起了。

hh222222

应该改为合并到任意指定的图层更实用