;;;Convert attribute definition entities (attdef) into text entities.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 08-10-2005
;;;
(defun c:attr2txt ()
  (setq att_ss (ssget '((-4 . "<OR")(0 . "ATTDEF")(0 . "ATTRIB")(-4 . "OR>"))))
  (if att_ss
    (progn
      (setq ssln (sslength att_ss))
      (setq cntr 0)
    )
  )
  (while
    (if (and (< cntr ssln) att_ss)
      (setq attent (entget (ssname att_ss cntr)))
    );if
    (progn
      (setq txtent
        (list
          (cons 0 "TEXT")
          (assoc 1 attent)
          (assoc 8 attent)
          (assoc 10 attent)
          (assoc 40 attent)
        )
      )
      (if (assoc 50 attent)
        (setq txtent (append txtent (list (assoc 50 attent))))
      )
      (if (assoc 50 attent)
        (setq txtent (append txtent (list (assoc 50 attent))))
      )
      (if (assoc 67 attent)
        (setq txtent (append txtent (list (assoc 67 attent))))
      )
      (if (assoc 62 attent)
        (setq txtent (append txtent (list (assoc 62 attent))))
      )
      (if (assoc 6 attent)
        (setq txtent (append txtent (list (assoc 6 attent))))
      )
      (if (assoc 39 attent)
        (setq txtent (append txtent (list (assoc 39 attent))))
      )
      (if (assoc 41 attent)
        (setq txtent (append txtent (list (assoc 41 attent))))
      )
      (if (assoc 51 attent)
        (setq txtent (append txtent (list (assoc 51 attent))))
      )
      (if (assoc 7 attent)
        (setq txtent (append txtent (list (assoc 7 attent))))
      )
      (if (assoc 71 attent)
        (setq txtent (append txtent (list (assoc 71 attent))))
      )
      (if (assoc 72 attent)
        (setq txtent (append txtent (list (assoc 72 attent))))
      )
      (if (assoc 74 attent)
        (setq txtent (append txtent (list (assoc 73 attent))))
      )
      (if (assoc 11 attent)
        (setq txtent (append txtent (list (assoc 11 attent))))
      )
      (if (assoc 210 attent)
        (setq txtent (append txtent (list (assoc 210 attent))))
      )
      (entmake txtent)
      (setq cntr (1+ cntr))
    )
  )
)