清除DWG文件垃圾的LISP程序

ZL88067344

这是给初学者看的，高手请略过！
7 `2 r- G- d) D6 @( r! Y2 H' N8 o许多人画图不注意清楚DWG文件的垃圾，结果一张图内容不多，文件字节数却不小，
/ z3 }% z' L) _" o# `/ y( ?6 w3 DPURGE命令可以清除垃圾，但常常清理不干净，WBLOCK清理最彻底，
8 `& u0 D+ t9 d( [/ ^4 j下面是WBLOCK应用的LISP小程序，简单，但很实用！
. G8 j- g4 U- F运行方法：
- {  H8 Q  w- I3 e& s先加载zlpurge.lsp，然后运行zlpurge命令，框选全部图形，回车，
" q1 ~6 w7 y1 i- M9 F/ n退出时不要存盘，清理干净的DWG文件在当前文件夹下！

(defun c:ZLPURGE ( )
1 c  y5 G/ F0 Y
(SETQ TM (GETVAR "DWGNAME"))
% N+ h# }1 r7 {% c) s(setq list1 (LIST 0 0)  yn "y")
(setq ss1 (ssget))
8 P$ B& B: o9 r; i6 H+ D(command "WBLOCK" TM yn "" list1 ss1 "")
* D% `2 \* v; h0 E; N9 K# I; Z)