批量修改硬盘DWG文件，将所有图块内实体转到0层

marting

函数 xd::vla:odbx 加载晓东通用LISP函数库就有了。

1. (defun c:tt ()
   
2.   (defun _lyr->0 (doc)
   
3.     (setq blks (vla-get-blocks doc))
   
4.     (princ "\n正在处理 ")
   
5.     (princ (vla-get-name doc))
   
6.     (vlax-for blk blks
   
7.       (if (= (vla-get-islayout blk) :vlax-false)
   
8.         (progn
   
9.           (vlax-for e blk
   
10.             (vla-put-layer e "0")
    
11.           )
    
12.         )
    
13.       )
    
14.     )
    
15.   )
    
16.   (defun _main ()
    
17.     (xd::vla:odbx '_lyr->0 nil t)
    
18.     (princ)
    
19.   )
    
20.   ;;
    
21.   (_main)
    
22.   (princ)
    
23. )
    

(defun c:tt ()<br />   (defun _lyr->0 (doc)<br />     (setq blks (vla-get-blocks doc))<br />     (princ "\n正在处理 ")<br />     (princ (vla-get-name doc))<br />     (vlax-for blk blks<br />       (if (= (vla-get-islayout blk) :vlax-false)<br />         (progn<br />           (vlax-for e blk<br />             (vla-put-layer e "0")<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (defun _main ()<br />     (xd::vla:odbx '_lyr->0 nil t)<br />     (princ)<br />   )<br />   ;;<br />   (_main)<br />   (princ)<br /> )<br />