Not sure if 0 for mtext width works better. Here is my try at it.
TK
Code:
(defun c:QL ()
(initget 128);allow arbitrary entry
(setq pt1 (getpoint "\nSpecify first leader point, or [Settings] <Settings>: "))
(if (= (type pt1) 'LIST)
(progn
(setq pt2 (getpoint pt1 "\nSpecify next point: "))
;(setq mtw (getvar "dimscale"))
(setq mtw 0);this also works
(command "_qleader" pt1 pt2 "" mtw "")
)
(progn
(if (member pt1 (list nil "S" "s"))
(progn
(command "_qleader" "s" ^c)
(c:QL)
)
(progn
(princ "\nInvalid Input.")
(c:QL)
)
)
)
)
(princ)
)