Is there a way to change Exploded Tags to Text?

[muck]

Is there a way to change Exploded Tags to Text? I would like to have the value of the tag shown
in the text string.
Thank you,

[Tiger]

Use BURST instead of EXPLODE

[muck]

What if they have all ready been exploded in a drawing by a previous user?

[pBe]

What if they have all ready been exploded in a drawing by a previous user?



;; pBe 2010
(defun c:sbtx ()
(princ "\nSelect Exploded Attributes")(princ)
(setq xpldat (ssget '((0 . "ATTDEF"))) nmbr 0)
(while (< nmbr (sslength xpldat))
(setq fao (ssname xpldat nmbr)
fao_pro (entget fao)
get_str (cdr (assoc 2 fao_pro)))

(setq newness (list '(0 . "TEXT")
(cons 10 (cdr (assoc 10 fao_pro)))(cons 40 (cdr (assoc 40 fao_pro)))
(cons 1 (cdr (assoc 2 fao_pro)))(cons 41 (cdr (assoc 41 fao_pro)))
(cons 7 (cdr (assoc 7 fao_pro)))
)
)
(entmake newness)(entdel fao)
(setq nmbr (1+ nmbr))
)
)



Try this... :)