BLOCK NAMES

[tyeelaw13]

Here's a lisp routine that will prompt to select a block, and then it will jump to the text command and enter the name of the block into the drawing. I've found this is very helpful when trying to set up design standard books that have the blocks but no block names.

Once you select the block, you will need to select the point where the text will begin (text not mtext fyi), and go from there! IF you get a "/" under the previous block name- you're not selecting the text placement correctly.


ENJOY
(defun c:blkname ()
(setq obj (car (entsel "\nPick Block...")))
(setq bname (cdr (assoc 2 (entget obj))))
(command "text" pause pause bname enter)
)

[gilsoto13]

Here's a lisp routine that will prompt to select a block, and then it will jump to the text command and enter the name of the block into the drawing. I've found this is very helpful when trying to set up design standard books that have the blocks but no block names.

Once you select the block, you will need to select the point where the text will begin (text not mtext fyi), and go from there! IF you get a "/" under the previous block name- you're not selecting the text placement correctly.


ENJOY
(defun c:blkname ()
(setq obj (car (entsel "\nPick Block...")))
(setq bname (cdr (assoc 2 (entget obj))))
(command "text" pause pause bname enter)
)


Didn´t work, but it gave me an idea... and this one works... I am no programmer... but I worked... there must be many other goog codes to do it...

[alanjt]

How about something like this?

(defun c:BlockName (/ #Ent #Point)
(and
(setq #Ent (car (entsel "\nSpecify block: ")))
(eq "INSERT" (cdr (assoc 0 (entget #Ent))))
(setq #Point (getpoint "\nSpecify placement point for MText: "))
(entmake (list
'(0 . "MTEXT")
'(100 . "AcDbEntity")
'(100 . "AcDbMText")
(cons 7 (getvar "textstyle"))
(cons 10 (trans #Point 1 0))
(cons 1 (cdr (assoc 2 (entget #Ent))))
) ;_ list
) ;_ entmake
) ;_ and
(princ)
) ;_ defun