Here's a way to distinguish Blocks from Xref's, with 'objdata' being the object's entity-data list such as you would get from (entget):
(= (logand 4 (cdr (assoc 70 (tblsearch "block" (cdr (assoc 2 objdata)))))) 4)
If that returns T, it's an Xref; otherwise, it's a Block insertion. You would need to force-substitute the 'xref' part into your dotted pair in the result you're looking for.
--
Kent Cooper
Kiwi Russ wrote:
I would like to differentiate between blocks and xrefs when 'vla-get-ObjectName' is used - It returns the name 'acdbBlock' regardless of whether it is a block or an xref.
....
Kent Cooper, AIA