(vl-load-com)
;;D. C. Broad, Jr. 2012
;;Use to get rid of unreferenced anonymous blocks
;;Then purge the drawing of dependent symbols.
;;Caution:  Use at your own risk. No verifications.
(defun c:purgeblks () 
(vlax-for n (vla-get-blocks
	      (vla-get-activedocument
		(vlax-get-acad-object)))
  (vl-catch-all-apply 'vla-delete (list n)))
  (princ))