Here ya go!
Code:
;;Function to convert Curve Text created by LandDesktop labels into MTEXT objects
;;by Jeff Mishler August 2005
(defun c:ctxt2mtxt (/ ang doc ent inspt mtxt obj space ss styl txt1 txt2)
(if (not (setq ss (ssget ":S" '((0 . "AEC_CURVETEXT")))))
(alert "You must select AEC_CURVETEXT to use this function!")
(progn
(setq ent (ssname ss 0)
obj (vlax-ename->vla-object ent)
ent (entget ent)
doc (vla-get-activedocument (vlax-get-acad-object))
space (if (= (getvar "cvport") 1)
(vla-get-paperspace doc)
(vla-get-modelspace doc)
)
txt1 (vlax-get obj 'textabove)
txt2 (vlax-get obj 'textbelow)
styl (cdr (assoc 7 ent))
inspt (cdr (assoc 11 ent))
ang (cdr (assoc 54 ent))
)
(setq mtxt (vlax-invoke space 'addmtext inspt 0 (strcat txt1 "\\P" txt2)))
(vla-put-stylename mtxt styl)
(vla-put-layer mtxt (vla-get-layer obj))
(vla-put-height mtxt (cdr (assoc 40 ent)))
(vla-put-rotation mtxt (- ang (/ pi 2)))
(vla-put-attachmentpoint mtxt acAttachmentPointMiddleCenter)
(vlax-put mtxt 'insertionpoint inspt)
(vla-delete obj)
)
)
(princ)
)