I have used a lisp which Lee Mac wrote and posted here a few years back, a lot, it lives in my startup folder. It extracts the Block Name from a selected object in Modelspace, and creates an Mtext of the block name in Paperspace. I have used it for years when annotating Erection Drawings, and absolutely love it.
Recently our company started using ProSteel (the Autocad based add on), and as our new detailing and drawing creation process has evolved, I now find myself missing the ease of Lee's wonderful lisp, as the composition of our Model has changed. Our Model is now a mixture of newly designed and modeled ProSteel entities, and our longtime Standard Items are Autocad 3D Solids which are Xrefed into the Model. One of these xrefs typically contains from 6 to 20 different items. In this way we do not need to recreate all of our standard dwgs every time we do a new job. ProSteel takes care of the bulk of the detailing work on the rest of the new parts.
What I need now, is basically the functionality of the Express Tool XLIST, incorporated into Lee's Block Name lisp, which would enable me to quickly label in Paperspace, as descibed above, the names of those Standard blocks which are now nested within an Xref.
BN.lsp