;;;;;;;;;;;;;;;;;;;;;;;;;;;清理图纸
(defun c:cca ()
(setvar "cmdecho" 0)
(dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")
(command "-scalelistedit" "reset" "y" "e")
(command "_purge" "all" "" "n")
(command "audit" "y")
(setvar "cmdecho" 1)
(princ)
)
用我这个吧,包治百病! 小毛草 发表于 2024-7-9 15:28
用我这个吧,包治百病!
感谢分享,收藏了 好東西,謝謝分享,感謝!!!
页:
1
[2]