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

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


挺好用的，多谢分享

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

厉害了，收下了。

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

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:38

我这有个更简单的。

(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:18

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

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

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

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

都很好用，學習了

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

谢谢楼主，谢谢了

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

好东西收藏

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

感谢分享，好人一生平安
页: 1 2 [3] 4
查看完整版本: 源码，分享两个清理程序