[求助]：有没有对多个dwg批量清垃圾的lsp程序?

hzq0033

我有大量的AutoCAD R14版的dwg图纸，清垃圾前几百k,清垃圾后几十k,有没有对多个dwg批量清垃圾的lsp程序?

lt_zzy

2. 
   
3.   [FONT=courier new]
   
4. (defun c:th()
   
5.   (setq ff (getfiled "请输入数据文件名:" "" "txt" 2))
   
6.   (setq kf (open ff "r"))
   
7.   (setq kh (read-line kf))
   
8.   (command "open" kh)
   
9. )
   
10. 
    
11. (defun S::STARTUP()
    
12.   (command "purge" "a" "" "N")
    
13.   (command "purge" "a" "" "N")
    
14.   (command "purge" "a" "" "N")
    
15.   (command "qsave")
    
16.   (th1)
    
17. )
    
18. 
    
19. 
    
20. (defun th1()
    
21.   (setq kh (read-line Kf))
    
22.   (if (/= kh nil)
    
23.     (command "open" kh)
    
24.     (progn
    
25.       (defun S::STARTUP()
    
26.         (princ)
    
27.       )
    
28.     )
    
29.   )
    
30. )  [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:th()<br />   (setq ff (getfiled "请输入数据文件名:" "" "txt" 2))<br />   (setq kf (open ff "r"))<br />   (setq kh (read-line kf))<br />   (command "open" kh)<br /> )<br /> <br /> (defun S::STARTUP()<br />   (command "purge" "a" "" "N")<br />   (command "purge" "a" "" "N")<br />   (command "purge" "a" "" "N")<br />   (command "qsave")<br />   (th1)<br /> )<br /> <br /> <br /> (defun th1()<br />   (setq kh (read-line Kf))<br />   (if (/= kh nil) <br />     (command "open" kh)<br />     (progn<br />       (defun S::STARTUP()<br />         (princ)<br />       )<br />     )<br />   )<br /> )  [/FONT]<br />

cyj789

你可以用优化大师来清理~或我用cn-SuperCleaner226 来清理的

lt_zzy

上面的程序加载后输入th

lt_zzy

将附件中的文件导入到注册表里。

lt_zzy

在你的图形文件夹上右击，选择“列出……”，就会在该目录下面形成一个list.txt的文本文件，在程序提示输入文本文件的时候你找到这个文件就可以了。
如果你不要对所有的文件进行处理，你可以将list.txt文件中的内容进行修改，每个图形文件的路径必须占一行，中间不能留空行。