If you do not want the leader associated with text then try this routine.
; Ldr.lsp Tim Wilson
; Similar to the Quick Leader but without the text prompts
(defun c:lk (/ lpt1 lpt2 lpt3)
(setq #OSM (getvar "osmode"

)
(setq #OTM (getvar "orthomode"

)
(setq #CLE (getvar "clayer"

)
(setvar "OSMODE" 0)
(setvar "orthomode" 0)
(IF (NULL (tblsearch "layer" "G-Text"

)
(command "layer" "m" "G-Text" "c" "7" "" ""

(command "layer" "s" "G-Text" "" ""

);end if
(setq lpt1 (getpoint "\nPick Start Point..: "

)
(setq lpt2 (getpoint lpt1 "\nPick Next Point..: "

)
(setvar "ORTHOMODE" 1)
(setq lpt3 (getpoint lpt2 "\nPick End Point..: "

)
(if
(null lpt3)
(command "leader" lpt1 lpt2 "a" "" "n"

(command "leader" lpt1 lpt2 lpt3 "a" "" "n"

);end if
(setvar "osmode" #osm)
(setvar "orthomode" #otm)
(setvar "clayer" #CLE)
(princ)
);end defun
(PRINC)