Where are Those Dang Blocks?

[CS]

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...

 

[Jason Piercey]

Catchy function name <g>

 

[R. Robert Bell]

Thanks! ;-)

 

[DonB]

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:

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...