求一个可以批处理“清理”命令的LISP程序
<P>最近得到一个图集，里面有几千张图形，可是很多图纸都是还没有经过“清理”命令就保存了，所以很占空间。以前我是有看到一个LISP程序，可以批处理“清理”命令的。有哪位兄弟有的，可否能传给我，<A href="mailto:lihuawu01@163.com" target="_blank" >lihuawu01@163.com</A>。谢谢</P> 1、程序在空白图中运行。2、文件DWG.txt中为要清理的DWG文件名，每行一个文件名，包括路径。
(DEFUN C:MPU ()
(SETVAR "CMDECHO" 0)
(IF (SETQ F (OPEN "DWG.txt" "r")) (PROGN
(WHILE (SETQ NMM (READ-LINE F))
(COMMAND "_UNDO" "BE")
(COMMAND "-INSERT" (STRCAT "*" NMM) "0,0" "1" "0" "ZOOM" "E" "REGEN")
(COMMAND "-WBLOCK" NMM "Y" "" "0,0" "C" (GETVAR "EXTMIN") (GETVAR "EXTMAX"))
(COMMAND "_UNDO" "E")
(COMMAND "_U")
)
(CLOSE F)
))
(PRINC)
)
<p>能不能改进一下</p><p>这样还要生成一个<font color="#ff00ff">DWG.txt</font>文件</p>
页:
[1]