;; APURGE.LSP Copyright 1990-1996  Tony Tanzillo  all rights reserved
;;
;;    Author: Tony Tanzillo,
;;            Design Automation Consulting
;;

;; Automatic PURGE ALL
;; TO use this, add it to your ACAD.LSP file,
;; and when you want to purge everything, you
;; just type APURGE and that's it.

(defun C:APURGE ()
   (command "._purge" "_all")
   (while (not (zerop (getvar "cmdactive")))
      (command "Y")
   )
   (princ)
)

; -----------------------eof APURGE.lsp--------------------------