清理垃圾瘦身程序
经常一张图形大功告成保存结束前,总会使用图形清理命令,并保证不留难看手尾,所以,我编写了个小程序(程序虽小,但很实用)放在按键中,一按“就此成交”吧;;;清理垃圾瘦身程序
(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:48 编辑
这个功能好像在哪见过,哈哈学习源码中 回帖是一种美德!感谢楼主的无私分享 谢谢 加1条,检查文件错误
(command "_audit" "y") :lol:lol:lol
页:
[1]