Dynamic block names..

[M. Kubitza]

Does anyone know of a way to get the actual name (i. e. the filename) of a dynamic block once you have changed a parameter.. without using vla-get-effectivename or adding an invisible attribute to hold the name?

I thought maybe this would work:

(setq en (ssname ss cntr)
          enlist (entget en)
          ent (tblobjname "BLOCK" (cdr (assoc 2 enlist)))
          entlist (entget ent)
          blkname (cdr (assoc 2 enlist)))

But unfortunately it doesn't

EDIT: Disregard, after rearranging some code, finally got it acceptable for this picky LT addon pkg. However, if there is a way to get the name without using the methods mentioned above, please share!