convert "attributes value" to text

[reynaldomalasaga]

Please some one help me is there any lisp for convert attribute value to text

note:

1)the value of attributes will remain even if i exploded the block

[Tharwat]

Are you aware of the command 'burst' that explodes attributed blocks and convert attribute objects to texts?

[Lee Mac]

Alternatively, there is this.

[asos2000]

And for exisiting attributes

Found somewhere I don't remeber exactly

;Converts attributes (attr. definitions, tags) to plain texts
(defun C:A2T ( / ss ssl i e new grp grplst addg)
 (if (setq ss (ssget '((0 . "ATTDEF"))))
   (progn
     (setq ssl (sslength ss)
    i 0
    )
     (setq grplst (list 7 8 10 11 39 40 41 50 51 62 71 72 73))
     (while (< i ssl)
(setq e (ssname ss i))
(setq ent (entget e))
(setq new '((0 . "TEXT")))
(setq new (append new (list (cons 1 (cdr (assoc 2 ent))))))
(foreach grp grplst
  (setq addg (assoc grp ent))
  (if (/= addg nil)
    (setq new (append new (list (assoc grp ent))))
    )
  )
(entmake new)
(entdel e)
(setq i (1+ i))
)
     )
   (princ "\nNo attribute Selected")
   )
 (princ)
 ) ; defun

[mwade93]

Alternatively, there is this.

 

Love this one is extremely helpful.

[Lee Mac]

Love this one is extremely helpful.

 

Thank you!

[dieptp]

On 3/5/2017 at 4:11 PM, asos2000 said:

And for exisiting attributes

Found somewhere I don't remeber exactly

 

;Converts attributes (attr. definitions, tags) to plain texts
(defun C:A2T ( / ss ssl i e new grp grplst addg)
 (if (setq ss (ssget '((0 . "ATTDEF"))))
   (progn
     (setq ssl (sslength ss)
    i 0
    )
     (setq grplst (list 7 8 10 11 39 40 41 50 51 62 71 72 73))
     (while (< i ssl)
(setq e (ssname ss i))
(setq ent (entget e))
(setq new '((0 . "TEXT")))
(setq new (append new (list (cons 1 (cdr (assoc 2 ent))))))
(foreach grp grplst
  (setq addg (assoc grp ent))
  (if (/= addg nil)
    (setq new (append new (list (assoc grp ent))))
    )
  )
(entmake new)
(entdel e)
(setq i (1+ i))
)
     )
   (princ "\nNo attribute Selected")
   )
 (princ)
 ) ; defun

 

 

Thanks so much. It worked on my case!