Where are Those Dang Blocks?

I am trying to locate a particular block in an Acad 2000 drawing in order to delete all occurances of it in that drawing. When I purge the drawing, that block still shows up on the block list as being referenced in the drawing. Is there a way to "find" that block's location in the drawing?

Thanks...

 

Catchy function name <g>

 

Thanks! ;-)

--
R. Robert Bell, MCSE
www.AcadX.com


| Catchy function name <g>
|
| --
|
| -Jason
| Member of the Autodesk Discussion Forum Moderator Program
|
|
| | > ;;; Written by: R. Robert Bell
| > (defun rrbIieBlockDie (BlkN / Doc)
|
|

 

This should list the enames of all references. From there it's up to you... &nbsp;



&nbsp;



(findBlkEnams YOURBLOCKNAME)



&nbsp;



(defun findBlkEnams (nam)
&nbsp; (if (tblsearch "BLOCK" nam)
&nbsp;&nbsp;&nbsp; (mapcar
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'cdr
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vl-remove-if-not
&nbsp;'(lambda (x) (= (car x) 331))
&nbsp;(entget (cdr (assoc 330 (entget (tblobjname "block" nam)))))
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )
&nbsp;&nbsp;&nbsp; )
&nbsp; )
)



&nbsp;



Don



&nbsp;



"CS" &lt;&gt; wrote in message news:...

I am trying to locate a particular block in an Acad 2000 drawing in order to delete all occurances of it in that drawing. When I purge the drawing, that block still shows up on the block list as being referenced in the drawing. Is there a way to "find" that block's location in the drawing?

Thanks...