清理垃圾瘦身程序

zwqgdhl · 发表于 2011-7-15 00:51

经常一张图形大功告成保存结束前，总会使用图形清理命令，并保证不留难看手尾，所以，我编写了个小程序（程序虽小，但很实用）放在按键中，一按“就此成交”吧
;;;清理垃圾瘦身程序
(defun c:txql ()
(setvar "cmdecho" 0)
(setvar "dimzin" 0)
(princ "\n选择删除对象: ")
(setq ss (ssget))
(command "erase" ss "")
(command "layer" "s" "0" "")
(command "celweight" "20")
(command "purge" "a" "" "n")
(prin1)
(gc)
)

wgg212 · 发表于 2011-7-21 10:47

本帖最后由 wgg212 于 2011-7-21 10:48 编辑

这个功能好像在哪见过，哈哈学习源码中

pengfei2010 · 发表于 2017-10-24 16:26

回帖是一种美德！感谢楼主的无私分享谢谢

alexmai · 发表于 2017-10-27 23:30

加1条，检查文件错误

(command "_audit" "y")

CADHH450 · 发表于 2024-2-2 02:13

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