Ejection Button.

Eject all your unused baggage. A long time ago I wrote a purge routine that would purge all nested items. I am reposting to help you "lighten the load"

(defun pp_PurgeAllReport (/ test tpurgd purgd total)
(command "_.LAYER" "M" "0" "")
(setq tpurgd 0)
(setq purgd 2)
(while (>= purgd 2)
(progn (setq purgd 0)
(cond
(t
(setvar "cmdecho" 0)
(command "_.purge" "_all" "*")
(while (not (zerop (getvar "cmdactive")))
(command "_y")
(setq purgd (1+ purgd))
(setq tpurgd (1+ tpurgd))
)
)
)
(prompt "\nPurging nested items!")
(princ "\n")
(setq tpurgd (1- tpurgd))
)
)
(setq total (cons tpurgd '(items purged)))
(princ total)
(princ)
)