Or you could use Keith's endit.lsp. It is the fastest all around drawing cleaning routine I have used.
;original lisp routine by Keith modified by ronjonp
(defun C:ENDIT (/ expert cmdecho)
(progn (textscr)
(Princ "\n____________________________________________________________________________")
(Princ "\n ***ALL - Named Views, Layer Group Filters, Layer Property Filters,
Layer States, Registered Applications, Pagesetups are GONE!!!***")
(Princ "\n____________________________________________________________________________")
(Princ "\n ***IMPORTANT - You must close drawing WITHOUT saving changes
and reopen to complete purge.***")
(Princ "\n____________________________________________________________________________")
)
(setq expert (getvar "EXPERT")
cmdecho (getvar "CMDECHO")
)
(setvar "EXPERT" 5)
(setvar "CMDECHO" 0)
(command "-wblock"
(strcat (getvar "dwgprefix") (getvar "dwgname"))
"*"
)
(setvar "EXPERT" expert)
(setvar "CMDECHO" cmdecho)
)