Perhaps use mtext?
;(command "text" "j" "ML" NPTXY (/ HT 3) 90 NPTYY)
;(command "._Change" (entlast) "" "p" "color" "80" "")
(command-s "._mtext" NPTXY "j" "ml" "r" 90 "h" (/ HT 3) "w" 0 NPTYY "")
(entmod (append (entget (entlast)) (list '(90 . 16) '(63 . 256) '(45 . 1.5) '(441 . 0)))); 1.5 = offset distance of the border
(command-s "._CHPROP" (entlast) "" "c" 80 ""); or add '(62 . 80) to the list in the previous line of code
If you don't want to use MTEXT, then you can explode it and the result will be a 'text + lwpolyline'.