[LISP程序]：简单的DWG文件减肥程序

zl19661017 · 发表于 2004-11-16 12:55:07

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

很多DWG文件减肥方法太麻烦,以下程序简单实用

;清除DWG文件垃圾的程序
(defun c:ZLPURGE ( )
(SETQ TM (GETVAR "DWGNAME"))
(setq list1 (LIST 0 0) yn "y")
(setq ss1 (ssget))
(command "WBLOCK" TM yn "" list1 ss1 "")
)

xyp1964 · 发表于 2004-11-16 22:57:59

还是用purge all较好
参见：批量dwg文件“减肥”程序
http://www.xdcad.net/forum/showthread.php?s=&threadid=286900

zxq0220 · 发表于 2004-11-17 09:16:40

有时用PURGE ALL不能清除的东西用1楼楼主的方法都可以清除。
我曾经碰到过这样的图，图形文件有近2.5M，文件打开速度极慢，用PURGE ALL数次，已无可PURGE的内容，文件长度未变。只好用WBLOCK的方法，一次搞定。文件长度减为380k。

xyp1964 · 发表于 2004-11-17 21:51:41

用“WBLOCK”的方法当心将冻结的“东东”搞丢！

账号		自动登录	找回密码
密码			立即注册

[LISP程序]：简单的DWG文件减肥程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子