[求助]：关于用vlisp批量处理DWG文件的疑问

haijiangl

2. 
   
3.   [FONT=courier new]
   
4.   (if (/= QQ NIL)
   
5.     (progn
   
6.       (setq APP (vlax-get-acad-object))
   
7.       (repeat (length QQ)
   
8.         (setq DWGNAME (strcase (strcat PREFIX_DWG (nth NN QQ))))
   
9.         (setq WW (vla-open (vla-get-documents APP) DWGNAME))
   
10. 
    
11. 
    
12.                      ;......
    
13.         (repeat TIMES (vla-purgeall WW))
    
14.                      ;此部分需要运行autolisp代码，
    
15.           ;如何用activex方法实现？
    
16.                      ;......
    
17. 
    
18. 
    
19.         (vla-save WW)
    
20.         (prompt (strcat "\n" DWGNAME " !!!"))
    
21.         (vla-close WW :vlax-false)
    
22.         (setq NN (1+ NN))
    
23.       )
    
24.       (vlax-release-object WW)
    
25.       (vlax-release-object APP)
    
26.     )
    
27.   [/FONT]
    

<br />   [FONT=courier new]<br />   (if (/= QQ NIL)<br />     (progn<br />       (setq APP (vlax-get-acad-object))<br />       (repeat (length QQ)<br />         (setq DWGNAME (strcase (strcat PREFIX_DWG (nth NN QQ))))<br />         (setq WW (vla-open (vla-get-documents APP) DWGNAME))<br /> <br /> <br />                      ;......<br />         (repeat TIMES (vla-purgeall WW))<br />                      ;此部分需要运行autolisp代码，<br />           ;如何用activex方法实现？<br />                      ;......<br /> <br /> <br />         (vla-save WW)<br />         (prompt (strcat "\n" DWGNAME " !!!"))<br />         (vla-close WW :vlax-false)<br />         (setq NN (1+ NN))<br />       )<br />       (vlax-release-object WW)<br />       (vlax-release-object APP)<br />     )<br />   [/FONT]<br />

问题如上，上面的代码用的是这里哪位达人提供的样例，忘记了，不好意思。

看过一个帖子，说用vlisp批处理的时候，对每个文件的操作都需要用activex方式，我刚刚接触vlisp，不清楚具体要怎样弄，所以请教各位，谢谢