After you know the name of the block, For example:
(setq blkname (cdr (assoc 2 (entget (car (entsel))))))
you can pass it into (tblsearch), get the details of the block table record (whether for a normal block or an xref) using:
(tblsearch "BLOCK" blkname)
This returns information from the block table, including the path of the xref (if applicable). The 70 group code differentiates blocks from xrefs, and the 1 group code gives you the path information.

Leave a Reply