I NEED SELECT TEXT, COPY LAST TEXT , DELET LAST TEST, AND IN LEADER....

[rolisonfelipe]

(defun c:TLXT()

(command "layer" "m" "txt_cota" "c" "1" "" "")
(setq laymo (getvar "clayer"))
(setq osmo (getvar "osmode"))

(setq SS1 (ssget))
(while
(setq DATATEXT (entget (ssname  SS1 ))

(command "_ERASE SS1 "))
(command "_LEADER" pt pause "" "" "m" DATATEXT ""))

(setvar "clayer" laymo)
(setvar "osmode" osmo)
(PRINC))

[devitg · Accepted solution]

test it 

(setq SS1 (ssget "_:S+." '( ( 0 . "TEXT")   )))
(while
(setq DATATEXT (cdr (assoc 1 (entget (ssname  SS1 0 )))))

(command "_ERASE" SS1 "")
(setq osmode (getvar 'osmode))
(setvar 'osmode 0)
(command "_LEADER" pause  pause  "" "" "m" DATATEXT "")

);end while

(setvar 'osmode osmode)

[rolisonfelipe]

THANK YOU, IT'S PERFECT! I WILL TRY ADD TEXT AND MTEXT