Chuck, to be honest I can't remember whether I saw it somewhere or I stumbled on it years ago...might be the adesk ng...dunno.
Makes you wonder what else you can get to in the drawing dbase by converting an activex pointer to a lisp ename.
It works because tblobjname return a 0 . "BLOCK" which is BLOCK_BEGIN, whereas a com pointer to a block is actually positioned on the "BLOCK_RECORD" object/dxf code, which is of course where the blockreferenceids live.
All a bit of a moot point for me as i hardly ever write lisp anymore, but I thought it was a pertinent tidbit to share in the current thread context.
Cheers,
Glenn.