change attribute to text

[motee-z]

any one can help to write a lisp to pick attribute and change it to text with same value

thanks

[asos2000]

its in express menu

Express>Blocks>Explodes blocks to text.

Command: Burst

[ReMark]

I believe the correct definition for the Burst command is that it explodes attributes to text and not blocks. I totally agree this appears to be the most logical approach.

 

motee-z: What version of AutoCAD are you using?

[motee-z]

burst command is active when attribute attached with block but when attribute is not attached with block i mean single the command became not active also from express tools, i use autocad 2008

thanks

[MSasu]

I think this I you are looking for:

 

(defun c:AtoT( / theAttributeEntity AttributeList TextList )
(if (not (setq theAttributeEntity (car (entsel "\nSelect attribute to convert to text: ")))) (exit))
(setq AttributeList (entget theAttributeEntity)
      TextList      (list '(0 . "TEXT")
                          '(100 . "AcDbEntity")
                          '(100 . "AcDbText")))
(foreach DXFCode '(7 8 10 11 40 41 50 51 67 71 72 210 410)
 (setq TextList (append TextList (list (assoc DXFCode AttributeList))))
)
(setq TextList (append TextList
                       (list (cons '1  (cdr (assoc 2  AttributeList))))
                       (list (cons '73 (cdr (assoc 74 AttributeList))))))
(entdel theAttributeEntity)
(entmake TextList)
(princ)
)

 

Regards,

[motee-z]

Realy Thanks