清除DWG文件垃圾的LISP程序

ZL88067344

这是给初学者看的，高手请略过！
许多人画图不注意清楚DWG文件的垃圾，结果一张图内容不多，文件字节数却不小，
9 W$ n3 |0 X: \$ F  q* G5 BPURGE命令可以清除垃圾，但常常清理不干净，WBLOCK清理最彻底，
; w* S8 x0 N9 b下面是WBLOCK应用的LISP小程序，简单，但很实用！
9 L4 Z3 i1 A, \% M  Z5 t% X' N运行方法：
3 b9 q* w* F% o$ Q1 |' q, A$ K) y6 T先加载zlpurge.lsp，然后运行zlpurge命令，框选全部图形，回车，
, T- z) ]- S; z退出时不要存盘，清理干净的DWG文件在当前文件夹下！
2 z* s2 @2 K8 n: Y8 C
- G% V% C# \% y, R(defun c:ZLPURGE ( )
, H2 p/ P. G/ S( A( ^1 @3 O
2 u2 o  D8 _. ^" o+ c5 }1 Y) r, r3 u(SETQ TM (GETVAR "DWGNAME"))
(setq list1 (LIST 0 0)  yn "y")
5 h' C6 }- j$ I$ |6 i(setq ss1 (ssget))
+ C! T6 g: B/ D0 }8 J+ Y. O(command "WBLOCK" TM yn "" list1 ss1 "")
)