(defun c:lft (/ ent ins_pt_txt p1)
(if (setq ent (car (entsel "\nSelect (D)Text: ")))
(setq ins_pt_txt (cdr (assoc 10 (entget ent))))
)
(if ins_pt_txt
(if (setq p1 (getpoint ins_pt_txt "\nSelect end point of line: "))
(command "_.line" ins_pt_txt p1 "")
)
)
)