清除DWG文件垃圾的LISP程序

ZL88067344

这是给初学者看的，高手请略过！
$ m4 ]% y5 y5 M许多人画图不注意清楚DWG文件的垃圾，结果一张图内容不多，文件字节数却不小，
% S2 d1 x1 F- @* n9 iPURGE命令可以清除垃圾，但常常清理不干净，WBLOCK清理最彻底，
下面是WBLOCK应用的LISP小程序，简单，但很实用！
运行方法：
# N" S% N$ A/ @7 L' d: b先加载zlpurge.lsp，然后运行zlpurge命令，框选全部图形，回车，
退出时不要存盘，清理干净的DWG文件在当前文件夹下！

(defun c:ZLPURGE ( )
7 s7 P6 _& j6 M0 d) l4 _% ]+ x
(SETQ TM (GETVAR "DWGNAME"))
. M7 `& X3 Y' l9 k4 i(setq list1 (LIST 0 0)  yn "y")
0 P3 N7 Z1 S/ W( w8 E* M4 ~# y; g(setq ss1 (ssget))
(command "WBLOCK" TM yn "" list1 ss1 "")
)