List of Blocks in Xref

[cadconcepts]

Hi Everyone-

I need help writing a routine that will build a list of all the blocks in the current drawing including those residing in an xreference. I tried using the tblsearch function but it only returns those blocks in the current drawing. Any help is greatly appreciated. Thanks.

Manuel

[MarkTheSwampThomas]

probably more than you need but ........

(defun get-active-doc ()
 (vla-get-activedocument (vlax-get-acad-object))
 )

(defun get-blk-names2 (/			blk			 layout_blks
					   xref_blks	blks		 blk_name_list
					   )

  (vlax-for	blk	(vlax-get-property (get-active-doc) 'Blocks)
	(cond ((= (vlax-get-property blk 'IsLayout) :vlax-true)
		   (setq layout_blks
				  (cons (vlax-get-property blk 'Name) layout_blks)
				 )
		   )
		  ((= (vlax-get-property blk 'IsXRef) :vlax-true)
		   (setq xref_blks
				  (cons (vlax-get-property blk 'Name) xref_blks)
				 )
		   )
		  (T (setq blks (cons (vlax-get-property blk 'Name) blks)))
		  )
	)
  (setq blk_name_list (list layout_blks xref_blks blks))
  )

(setq blst (get-blk-names2))

[cadconcepts]

Mark-

Thanks for the code. I'll try it out.

Manuel