清除DWG文件垃圾的LISP程序

ZL88067344

这是给初学者看的，高手请略过！
1 O- B) k# `, c5 ?* q: c8 n1 c许多人画图不注意清楚DWG文件的垃圾，结果一张图内容不多，文件字节数却不小，
PURGE命令可以清除垃圾，但常常清理不干净，WBLOCK清理最彻底，
) V* q5 d$ ^: c7 u下面是WBLOCK应用的LISP小程序，简单，但很实用！
/ E3 c3 u, E7 b4 n/ k2 k1 ?  }运行方法：
9 U' i3 V. F3 K: z先加载zlpurge.lsp，然后运行zlpurge命令，框选全部图形，回车，
退出时不要存盘，清理干净的DWG文件在当前文件夹下！
# @8 Q( i/ E$ v) ]
1 z3 `- B+ C: t9 X1 D' B) S(defun c:ZLPURGE ( )
, |2 s  u( f0 Q5 o, B
+ _4 y9 k  V9 c6 W! f& x(SETQ TM (GETVAR "DWGNAME"))
(setq list1 (LIST 0 0)  yn "y")
5 p8 L4 q2 a0 r3 p* @(setq ss1 (ssget))
5 z( T$ z$ Z( `- K(command "WBLOCK" TM yn "" list1 ss1 "")
)