; Lisp routine written by John R.Baker
;
;
; There is a four step procedure for using CLEAN:
;
; 1.  Run CLEAN in Tilemode 1
; 2.  Purge Tilemode 1
; 3.  Run CLEAN in Tilemode 0
; 4.  Purge Tilemode 0
;
; The lisp routine assumes no layers are frozen.
; Users should record which layers are off so they can restore their on/off configuration after.
;
;
;
;
; -----------------------------------------

;;; Definition: CLEAN = CLEAN otherwise "un-erasable" trash from drawing

(defun C:CLEAN ()
   (setq a (getvar "extmin"))
   (setq b (getvar "extmax"))
   (command "zoom" "window" a b)
   (setq c (ssget "x"))
   (command "layer" "on" "*" "")
   (command "erase" c "remove" "crossing" a b "")
   (prompt "\nTrash has been erased - Be sure to CLEAN the other tilemode too!")
   (prompt "\nDon't forget to PURGE this drawing, as necessary.")
   (prin1)
)