[推荐]：龙龙仔的一个VLISP的批量处理范例

jdhszh

一个VLISP的批量处理范例从这个范例可以了解VLISP批量处理图档
虽然速度慢了点,但非常实用

2. 
   
3.   [FONT=courier new]
   
4. ;;一个VLISP的批量处理范例
   
5. ;;从这个范例可以了解VLISP批量处理图档
   
6. ;;虽然速度慢了点,但非常实用
   
7. ;;By LUCAS(龙龙仔)
   
8. ;;从文件移除未使用之具名参考                                 
   
9. ;;                                                           
   
10. ;;虽配合Expresstools__(acetutil.arx)                        
    
11. ;;为加度程序执行,程序将设定系统变量ACADLSPASDOC              
    
12. ;;即<只载入 acad.lsp 至 AutoCAD 执行期所开启的第一个图面>   
    
13. ;;当然程序结束后,会还原系统变量ACADLSPASDOC
    
14. ;;                 
    
15. ;;Usage: (PURGEALL <循环次数>)                                                            
    
16. ;;command: (PURGEALL 5)                                       
    
17. 
    
18. (arxload "acetutil.arx" NIL)
    
19. (vl-load-com)
    
20. (defun PURGEALL (TIMES / HOLDECHO APP DWGNAME PREFIX_DWG NN QQ HOLDLSP
    
21.    WW)
    
22.   (setq HOLDECHO (getvar "cmdecho"))
    
23.   (setvar "cmdecho" 0)
    
24.   (setq PREFIX_DWG
    
25.   (strcat
    
26.     (strcase (acet-ui-pickdir
    
27. ;; "选择目录"
    
28. ;;(vl-string-right-trim "\" (getvar "dwgprefix"))
    
29. ;;"移除未使用之具名参考"
    
30.       )
    
31.     )
    
32.     "\"
    
33.   )
    
34.   )
    
35.   (setq HOLDLSP (getvar "ACADLSPASDOC"))
    
36.   (setvar "acadlspasdoc" 0)
    
37.   (setq QQ (vl-directory-files PREFIX_DWG "*.DWG"))
    
38.   (setq NN 0)
    
39.   (if (/= QQ NIL)
    
40.     (progn
    
41.       (setq APP (vlax-get-acad-object))
    
42.       (repeat (length QQ)
    
43. (setq DWGNAME (strcase (strcat PREFIX_DWG (nth NN QQ))))
    
44. (setq WW (vla-open (vla-get-documents APP) DWGNAME))
    
45. (repeat TIMES (vla-purgeall WW))
    
46. (vla-save WW)
    
47. (prompt (strcat "\n" DWGNAME " !!!"))
    
48. (vla-close WW :vlax-false)
    
49. (setq NN (1+ NN))
    
50.       )
    
51.       (vlax-release-object WW)
    
52.       (vlax-release-object APP)
    
53.     )
    
54.     (prompt "\n所选目录中未有任何图档!!!")
    
55.   ))
    

<br />   [FONT=courier new]<br /> ;;一个VLISP的批量处理范例<br /> ;;从这个范例可以了解VLISP批量处理图档<br /> ;;虽然速度慢了点,但非常实用<br /> ;;By LUCAS(龙龙仔)<br /> ;;从文件移除未使用之具名参考                                 <br /> ;;                                                           <br /> ;;虽配合Expresstools__(acetutil.arx)                         <br /> ;;为加度程序执行,程序将设定系统变量ACADLSPASDOC              <br /> ;;即<只载入 acad.lsp 至 AutoCAD 执行期所开启的第一个图面>    <br /> ;;当然程序结束后,会还原系统变量ACADLSPASDOC <br /> ;;                 <br /> ;;Usage: (PURGEALL <循环次数>)                                                            <br /> ;;command: (PURGEALL 5)                                        <br /> <br /> (arxload "acetutil.arx" NIL)<br /> (vl-load-com)<br /> (defun PURGEALL (TIMES / HOLDECHO APP DWGNAME PREFIX_DWG NN QQ HOLDLSP<br />    WW)<br />   (setq HOLDECHO (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (setq PREFIX_DWG<br />   (strcat<br />     (strcase (acet-ui-pickdir<br /> ;; "选择目录"<br /> ;;(vl-string-right-trim "\" (getvar "dwgprefix"))<br /> ;;"移除未使用之具名参考"<br />       )<br />     )<br />     "\"<br />   )<br />   )<br />   (setq HOLDLSP (getvar "ACADLSPASDOC"))<br />   (setvar "acadlspasdoc" 0)<br />   (setq QQ (vl-directory-files PREFIX_DWG "*.DWG"))<br />   (setq NN 0)<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 /> (repeat TIMES (vla-purgeall WW))<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 />     (prompt "\n所选目录中未有任何图档!!!")<br />   ))<br />

mjtd_7777

好例子，仔细研究研究