求一个可以批处理“清理”命令的LISP程序

lhw721

最近得到一个图集，里面有几千张图形，可是很多图纸都是还没有经过“清理”命令就保存了，所以很占空间。以前我是有看到一个LISP程序，可以批处理“清理”命令的。有哪位兄弟有的，可否能传给我，lihuawu01@163.com。谢谢

ZZXXQQ

1、程序在空白图中运行。
2、文件DWG.txt中为要清理的DWG文件名，每行一个文件名，包括路径。

2. (DEFUN C:MPU ()
3. (SETVAR "CMDECHO" 0)
4. (IF (SETQ F (OPEN "DWG.txt" "r")) (PROGN
5.   (WHILE (SETQ NMM (READ-LINE F))
6.    (COMMAND "_UNDO" "BE")
7.    (COMMAND "-INSERT" (STRCAT "*" NMM) "0,0" "1" "0" "ZOOM" "E" "REGEN")
8.    (COMMAND "-WBLOCK" NMM "Y" "" "0,0" "C" (GETVAR "EXTMIN") (GETVAR "EXTMAX"))
9.    (COMMAND "_UNDO" "E")
10.    (COMMAND "_U")
11.   )
12.   (CLOSE F)
13. ))
14. (PRINC)
15. )

复制代码

cuihongwei

能不能改进一下

这样还要生成一个DWG.txt文件