(defun c:txt2line ( / elem )
  (command"_line" pause )
  (while(=(getvar"cmdactive")1)
    (command pause)
    (if(setq elem(entlast))
    (progn
      
    (entmakex (list (cons 0 "TEXT")
		    (cons 100 "AcDbEntity")
		    (cons 62 2)
		    (cons 100 "AcDbText")
		    (cons 10 (vlax-curve-getpointatdist
    (vlax-ename->vla-object elem)
    (/ (vlax-curve-getdistatparam
         (vlax-ename->vla-object elem)
         (vlax-curve-getendparam (vlax-ename->vla-object elem))
         ) ;_ end of vlax-curve-getdistatparam
       2.0
       ) ;_ end of /
    ))
		    (cons 40 (getvar"textsize"))
		    (cons 1 (VL-PRIN1-TO-STRING(vla-get-length(vlax-ename->vla-object elem))))
		    (cons 50 0.0)
		    (cons 72 0)
		    (cons 73 0)
		    (cons 210 (trans (getvar "viewdir") 1 0))
	      )
    )
    )
      )
)
  )