Remove all 3DSolids within Blocks Script

Hi

Does anybody know of a script for AutoCAD 2012 that will remove all 3DSolids within a drawing even if they are nested within a block/s?

Any help would be great

Thanks

Bob

This can't be done with a script (*.scr). But a Lisp solution is possible:

(defun c:Test ( / doc)
 (setq doc (vla-get-activedocument (vlax-get-acad-object)))
 (vla-endundomark doc)
 (vla-startundomark doc)
 (vlax-for blk (vla-get-blocks doc)
   (vlax-for obj blk
     (if (= "AcDb3dSolid" (vla-get-objectname obj))
       (vla-delete obj)
     )
   )
 )
 (vla-endundomark doc)
 (princ)
)

Add this before the (princ) to remove other solids

(setq ss (ssget "X" (list (cons 0 "3dSolid"))))
(command "erase" ss "")

Thank you both for your help.