;; | -----------------------------------------------------------------------------
;; | TX_Txt2AttDef 
;; | -----------------------------------------------------------------------------
;; | Function : Convert a text object to an ATTDEF object
;; | Arguments: 'ename'      - Name of the text object to convert
;; |            'la'         - Layer to create the attdef object in
;; |            'AttFlag'    - Attribute creation flag 70
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------

(defun TX_Txt2AttDef ( ename la AttFlag / entl Txt )
(setq
	entl (entget ename)
	Txt  (LI_item 1 entl)
	entl (LI_CodeStrip entl (list -1 5 8 70 100))
	entl (append entl (list (cons 2 (ST_RepChar " " "_" Txt))))
	entl (subst (cons 1 Txt) (assoc 1 entl) entl)
	entl (subst (cons 0 "ATTDEF") (assoc 0 entl) entl)
	entl (append entl (list (cons 3 "") (cons 8 la) (cons 70 AttFlag) (cons 74 0) (cons 280 1)))
	entl (entmake entl)
)

(if entl (entlast) nil)
)