源码，分享两个清理程序

sunny_8848 · 发表于 2020-12-10 10:31

669423907 发表于 2014-3-26 15:42
感觉这个更好用些
;;清理图层 www.xdcad.net
(defun cU(/ thisdrawing ss lyrlst olderr myerr)

挺好用的，多谢分享

哆啦A梦_oELxg · 发表于 2022-3-19 11:49

厉害了，收下了。

qazxswk · 发表于 2022-3-23 03:52

669423907 发表于 2014-3-26 15:42
感觉这个更好用些
;;清理图层 www.xdcad.net
(defun cU(/ thisdrawing ss lyrlst olderr myerr)

(setvar"clayer""0") 清理时，设置当前为0层，是防止出错吗？

qazxswk · 发表于 2022-3-26 04:48

我这有个更简单的。

(defun c:11()
(dictremove(namedobjdict)"ACAD_DGNLINESTYLECOMP")
(vl-cmdf "-SCALELISTEDIT" "R" "Y" "E"
"_audit" "Y"
"_purge" "A" "" "N"
)
(princ))

00放飞梦想00 · 发表于 2022-6-7 16:23

您上传的两个，哪个好用些呢

一张单程票 · 发表于 2022-6-7 17:41

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

白色微風1991 · 发表于 2022-6-8 07:22

都很好用，學習了

friendship · 发表于 2022-6-8 22:06

谢谢楼主，谢谢了

3278 · 发表于 2022-7-30 19:51

好东西收藏

菜鸟初来乍到 · 发表于 2022-12-14 07:22

感谢分享，好人一生平安

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

[源码] 源码，分享两个清理程序