[编程交流] 审核/清除/快速LSP

;;; APQC.LSP, Audit-->Purge-->Qsave-->Close
;;; Mehre Taban Co., Mehrdad Ahankhah, [url="http://www.irancad.com/"]www.irancad.com[/url], [email="ahankhah@irancad.com"]ahankhah@irancad.com[/email]
(vl-load-com) 
(defun [b][color=purple]C:APQC[/color][/b] ()
   (MT:Do:Audit)
   (MT:Do:PurgeAllNested)
   (if (MT:Do:Qsave)
       (MT:Do:CloseDwg)
   )
)
(defun [b][color=purple]MT:Do:Audit[/color][/b] () (command "_.Audit" "y" ""))
(defun [b][color=purple]MT:Do:PurgeAllNested[/color][/b] (/ Cont)
   (princ "\nPurging unused objects...\n")
   (setq Cont T)
   (while Cont
       (MT:Do:PurgeALL)
       (if (zerop (boole 1 1 (getvar 'Dbmod)))
           (progn (acad-pop-dbmod) (setq Cont nil))
           (progn (acad-pop-dbmod)
                  (if (not (zerop (getvar 'Dbmod)))
                      (progn (MT:Do:Qsave) (acad-pop-dbmod))
                  )
                  (princ "\n\tPurging unused nested objects...")
           )                                     ; if false
       )                                         ; if
   )                                             ; while
   (princ "\nPurging unused objects done.\n")
)
(defun [b][color=purple]MT:Do:PurgeALL[/color][/b] ()
   (vla-PurgeAll
       (vla-get-ActiveDocument
           (vlax-get-acad-object)
           )
   ); Visual Lisp version
   ;;(command "_.PURGE" "_All" "*" "_No"); AutoLISP version
)
(defun [b][color=purple]MT:Do:Qsave[/color][/b] (/ ret)
   (if (zerop (getvar "Dwgtitled"))
       (progn (alert "Drawing has no name, QSAVEing is not probable.")
              (setq ret nil)
       )
       (progn (command "_.QSAVE") (setq ret T))
   )
   ret
)
(defun [b][color=purple]MT:Do:CloseDwg[/color][/b] ()
   (command "_.CLOSE")
   (and (= 1 (getvar 'cmdactive)) (command "_Yes"))
)
[b][color=purple](C:APQC)[/color][/b]

;;; APQC.LSP, Audit-->Purge-->Qsave-->Close
;;; Mehre Taban Co., Mehrdad Ahankhah, www.irancad.com, ahankhah@irancad.com
;;; Modified by Lee Mac - 20.06.11 in places marked 'LM'
(vl-load-com) 
(defun C:APQC nil
   (MT:Do:Audit)
   (MT:Do:PurgeAllNested)
;;;    (if
       (MT:Do:Qsave)
;;;        (MT:Do:CloseDwg)
;;;    )
)
(defun MT:Do:Audit nil (command "_.Audit" "y" ""))
(defun MT:Do:PurgeAllNested (/ Cont)
   (princ "\nPurging unused objects...\n")
   (setq Cont T)
   (while Cont
       (MT:Do:PurgeALL)
       (if (zerop (boole 1 1 (getvar 'Dbmod)))
           (progn (acad-pop-dbmod) (setq Cont nil))
           (progn (acad-pop-dbmod)
                  (if (not (zerop (getvar 'Dbmod)))
                      (progn (MT:Do:Qsave) (acad-pop-dbmod))
                  )
                  (princ "\n\tPurging unused nested objects...")
           )                                     ; if false
       )                                         ; if
   )                                             ; while
   (princ "\nPurging unused objects done.\n")
)
(defun MT:Do:PurgeALL nil
   (or *acdoc (setq *acdoc (vla-get-activedocument (vlax-get-acad-object))))  ;; LM
   (vla-PurgeAll *acdoc) ;; LM
)
(defun MT:Do:Qsave (/ ret)
   (if (zerop (getvar "Dwgtitled"))
       (progn (alert "Drawing has no name, QSAVEing is not probable.")
              (setq ret nil)
       )
       (progn (command "_.QSAVE") (setq ret T))
   )
   ret
)
;;;(defun MT:Do:CloseDwg nil
;;;    (command "_.CLOSE")
;;;    (and (= 1 (getvar 'cmdactive)) (command "_Yes"))
;;
(C:APQC)