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...