;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 7-15-94
;;;>		   EDITED: 03-24-2004
;;;
(defun c:TXT2attr ()
  (setq att_ss (ssget '((0 . "TEXT"))))
  (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 "ATTDEF")
	)
      )
      (if (assoc 39 attent)
        (setq txtent (append txtent (list (assoc 39 attent))))
      )
      (setq txtent
        (append txtent
          (list 
            (assoc 10 attent)
            (assoc 40 attent)
            (assoc 1 attent)
	    (CONS 100 "AcDbAttributeDefinition")
            (assoc 8 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 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 11 attent)
        (setq txtent (append txtent (list (assoc 11 attent))))
      )
      (setq txtent (append txtent (list
      	  (CONS 100 "AcDbAttributeDefinition")
	  )))
      (setq txtent (append txtent (list
      	  (CONS 3 (ustr 1 "Prompt ?" nil T));prompt
	  )))
      (setq txtent (append txtent (list
      	  (CONS 2 (ustr 1 "Tag ?" nil nil));tag
	  )))
      (setq txtent (append txtent (list (cons 70 0))))
      (if (assoc 73 attent)
        (setq txtent (append txtent (list (cons 74 (cdr(assoc 73 attent))))))
      )
      (if (assoc 210 attent)
        (setq txtent (append txtent (list (assoc 210 attent))))
      )
      (entmake txtent)
      (setq cntr (1+ cntr))
    )
  )
)