Why is this not working? I tried serching for the answer online but I didn't find anything that helped. When I run the lisp routine, it gives me this "bad argument type: numberp: "30"" the 30 is the user entered Original Scale.
; CORRECT SCALE OF OBJECT
(DEFUN C:FXS ()
(setq DS (getvar 'dimscale))
(setq OS (getstring "\nOriginal Scale: "))
(PROMPT "\nPick object to SCALE : ")
(setq A (ssget))
(setq DST (rtos DS 2 4))
(setq OST (rtos OS 2 4))
(SETQ SF (/ DST OST))
(COMMAND "scale" A "" PAUSE SF)
(princ)
)