give me a message of too few arguments when I run it? (defun tds (h1) (if (<= 1 (getvar "DIMSCALE")) (setq h1 (getdist " Text height: ")) (setq h1 (* (getvar "DIMSCALE") 0.25)) ) ) Thanks in advance, Jeff