![](source/plugin/imc_colorcode/images/loading.gif) - ;;;;;;;;;;;;;;;;;;;;;;;;;;;清理图纸
- (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)
- )
用我这个吧,包治百病! |