[原创]：用vl类lisp 实现批处理的框架

zhang8755

用vl类lisp 实现批处理的框架
其中 dwg_path 为要处理的图形所在的目录

2. 
   
3.   [FONT=courier new]
   
4. (setq QQ (vl-directory-files dwg_path "*.DWG"))
   
5. 
   
6.   (setq NN 0)
   
7. 
   
8.   (if (/= QQ NIL)
   
9.         (progn
   
10.           (setq APP (vlax-get-acad-object))
    
11.           (repeat (length QQ)
    
12.                 (setq DWGNAME (strcase (strcat dwg_path (nth NN QQ))))
    
13.                 (setq WW (vla-open (vla-get-documents APP) DWGNAME))
    
14.                 (setq N (vla-get-ModelSpace WW))
    
15.                 (vlax-for ENT N
    
16. ;;加入自己的代码
    
17.                 )
    
18.                 (vla-save WW)
    
19.                 (vla-close WW :vlax-false)
    
20.                 (setq NN (1+ NN))
    
21.           )
    
22.           (vlax-release-object WW)
    
23.           (vlax-release-object APP)
    
24.         )
    
25.         (prompt "\n所选目录中未有任何图档!!!")
    
26.   )
    
27.   [/FONT]
    

<br />   [FONT=courier new]<br /> (setq QQ (vl-directory-files dwg_path "*.DWG"))<br /> <br />   (setq NN 0)<br /> <br />   (if (/= QQ NIL)<br />         (progn<br />           (setq APP (vlax-get-acad-object))<br />           (repeat (length QQ)<br />                 (setq DWGNAME (strcase (strcat dwg_path (nth NN QQ))))<br />                 (setq WW (vla-open (vla-get-documents APP) DWGNAME))<br />                 (setq N (vla-get-ModelSpace WW))<br />                 (vlax-for ENT N<br /> ;;加入自己的代码<br />                 )<br />                 (vla-save WW) <br />                 (vla-close WW :vlax-false)<br />                 (setq NN (1+ NN))<br />           )<br />           (vlax-release-object WW)<br />           (vlax-release-object APP)<br />         )<br />         (prompt "\n所选目录中未有任何图档!!!")<br />   )<br />   [/FONT]<br />

LUCAS

這個"用vl类lisp 实现批处理的框架",不是你)原創)的吧!

因為"原創"是我!

陌生人

哈哈，不如来个滴血认亲。
说笑了。lucas，把你的连接给一个啊，我也想看看你是怎么弄的：）

LUCAS

http://www.xdcad.net/article/art ... &articleid=1861

http://www.mjtd.com/bbs/dispbbs. ... ID=47151&skin=1