清除DWG文件垃圾的LISP程序

ZL88067344

这是给初学者看的，高手请略过！
" ]2 D' @; Y) [5 g许多人画图不注意清楚DWG文件的垃圾，结果一张图内容不多，文件字节数却不小，
4 q* D/ H( f' S$ ]PURGE命令可以清除垃圾，但常常清理不干净，WBLOCK清理最彻底，
下面是WBLOCK应用的LISP小程序，简单，但很实用！
+ s' C8 q9 H# [1 C运行方法：
- u0 }7 L, C8 R$ _0 A4 I: ~; y4 d先加载zlpurge.lsp，然后运行zlpurge命令，框选全部图形，回车，
, I$ K" X' y7 j' O, p% b5 C3 L退出时不要存盘，清理干净的DWG文件在当前文件夹下！
6 b/ x# i3 o0 T/ U) j3 Z% p/ B6 F
% {8 g" O" O* x/ w) s. x7 Q(defun c:ZLPURGE ( )

& V* k' e5 l5 g- n(SETQ TM (GETVAR "DWGNAME"))
0 d% @$ R# p( p* I(setq list1 (LIST 0 0)  yn "y")
3 a7 V6 b& L  g! @* H0 h2 m(setq ss1 (ssget))
2 z/ S; J& d" a(command "WBLOCK" TM yn "" list1 ss1 "")
1 a1 L' M; a! |)