When it comes time to annotate your drawings, wouldn’t it be nice for you to be able to select a block and then have its name appear as a text object and then place that text object?
Here ya go:
- BLOCKN <enter> to start
- Select block
- Place text
; places name of block as text via pick (defun C:blockn() (setvar "cmdecho" 0) (setq pt(cadr(entsel"\nSelect Block:"))) (setq e1(ssget pt)) (setq e2 (entget (ssname e1 0))) (setq blname (cdr(assoc 2 e2))) (setq pt1 (getpoint"\nSelect point for block title:")) (command "text" pt1 "" 0 blname) )