This serves me. If you have something better, please.
OK.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun SPLIT-LINHA (str del / len lst pos SS II LL)
(setq len (1+ (strlen del)))
(while (setq pos (vl-string-search del str))
(setq lst (cons (substr str 1 pos) lst))
(setq str (substr str (+ pos len)))
)
(setq SS (reverse (cons str lst)))
;
(SETQ LL '())
(SETQ II 0)
(REPEAT (LENGTH SS)
(IF (/= "" (NTH II SS)) (SETQ LL (CONS (NTH II SS) LL)))
(SETQ II (+ II 1))
)
(REVERSE LL)
)
;..............................................................................
(SETQ ENT (CAR (ENTSEL)))
(SETQ LIS (ENTGET ENT))
(SETQ TIP (CDR (ASSOC 0 LIS)))
(IF (= TIP "MTEXT")
(PROGN
(SETQ TXTSE (CDR (ASSOC 1 LIS)))
(SETQ TXTPT (CDR (ASSOC 10 LIS)))
(SETQ TXTHE (CDR (ASSOC 40 LIS)))
(SETQ LTXT (SPLIT-LINHA TXTSE "\\P"))
)
)
(PRINT LTXT)
(PRINC)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;