 - ;; tt(清理垃圾)
- (defun c:tt ()
- ;;(dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")
- (setq a (namedobjdict)
- lst (entget a)
- )
- (foreach b lst
- (if (= (car b) 350)
- (entdel (cdr b))
- )
- )
- (VLA-PurgeAll
- (vla-get-ActiveDocument (vlax-get-acad-object))
- )
- (command "qsave")
- (princ)
- )
|