清除DWG文件垃圾的LISP程序

ZL88067344

这是给初学者看的，高手请略过！
# Q# k( l4 c6 l0 `许多人画图不注意清楚DWG文件的垃圾，结果一张图内容不多，文件字节数却不小，
PURGE命令可以清除垃圾，但常常清理不干净，WBLOCK清理最彻底，
下面是WBLOCK应用的LISP小程序，简单，但很实用！
运行方法：
3 g% M$ X  Q8 w& L- d先加载zlpurge.lsp，然后运行zlpurge命令，框选全部图形，回车，
0 C2 @$ Z9 Y  C5 S  h退出时不要存盘，清理干净的DWG文件在当前文件夹下！

" }8 z# a) p: ~% H! B3 }(defun c:ZLPURGE ( )
* m* C& r6 j5 m6 n! I
(SETQ TM (GETVAR "DWGNAME"))
+ h# S5 B3 L( J# `(setq list1 (LIST 0 0)  yn "y")
( \: U/ c/ g3 w# P  o(setq ss1 (ssget))
, R. F, R3 E% B(command "WBLOCK" TM yn "" list1 ss1 "")
8 p) K* T" g. F' W+ Z$ J" I)