清除DWG文件垃圾的LISP程序

ZL88067344

这是给初学者看的，高手请略过！
5 X1 A" o$ r) u7 y2 e% b) d. z3 z许多人画图不注意清楚DWG文件的垃圾，结果一张图内容不多，文件字节数却不小，
3 x0 c0 l0 w! _$ d" j% c  }PURGE命令可以清除垃圾，但常常清理不干净，WBLOCK清理最彻底，
/ e! G% T  H) k6 j( R* g下面是WBLOCK应用的LISP小程序，简单，但很实用！
5 j5 e& P, Z* t1 R) Y运行方法：
) @8 N. A1 |. ?' B9 u0 C先加载zlpurge.lsp，然后运行zlpurge命令，框选全部图形，回车，
退出时不要存盘，清理干净的DWG文件在当前文件夹下！
5 M5 l' ]7 L% E/ Y6 Z
(defun c:ZLPURGE ( )
' \6 Q* G( o# P/ R' V& S& [$ H
7 X' M7 M5 g/ s* g- Y6 x9 ~(SETQ TM (GETVAR "DWGNAME"))
(setq list1 (LIST 0 0)  yn "y")
(setq ss1 (ssget))
(command "WBLOCK" TM yn "" list1 ss1 "")
# v. z- h6 ?' ~8 z$ k)