I want to make the following Lisp file underline the top line using lisp code is this possible?
MLEADER Code
(defun C:crd ()
(setq pntlist (getpoint "\n Pick Point: "))
(setq px (rtos (car pntlist))
py (rtos(cadr pntlist))
)
(setq coordstr (strcat "N " py "\nE " px))
(Setq P2 (Getpoint pntlist "Pick Leader End:"))
(If(<=(Car P2)(Car pntlist))
(Setq B(* -0.1 (getvar "dimscale")))
(Setq B (* 0.1 (getvar "dimscale")))
)
(Setq P3 (List (+ (Car P2) B) (Cadr P2)))
(Command "mleader" pntlist p3 "y" coordstr "")
(princ)
)