Picking a block to save it's name for later in a routine

[Anonymous]

I know this is a simple thing to do, but I'm a hack, so I'm putting it out there:

I want to be able to select a block in a drawing and set it's name as a setq value, so I can use that name later in the same routine in an "insert" string.

What's the best way to achieve this??

Thanks.

[Kent1Cooper · Accepted solution]

This should cover either an ordinary or a dynamic Block:

(setq blkname

  (vla-get-effectivename

    (vlax-ename->vla-object (car (entsel "\nSelect Block: ")))

  )

)

If they will never be dynamic  Blocks, it can be slightly simpler:

(setq blkname (cdr (assoc 2 (entget (car (entsel "\nSelect Block: "))))))

[Anonymous]

Thanks Kent! Greatly appreciated!

Doug