I have a lisp that uses the ssget function to select objects that I want to scale up or down. I will eventually add a line to then move what was just scaled. Here is my code (warning - I tend to oversimplify my code).
(defun c:scd ( / xfrom xto xinsert xdetail xretrieve sf) (setq xdetail (ssget)) (setq xfrom (getint "\nCurrent scale factor: ")) (setq xto (getint "\nNew scale factor: ")) (if (> xfrom xto)(setq sf (/ xfrom xto))(setq sf (/ xto xfrom))) (setq xretrieve (getpoint "\nScale from box : ")) (setq xinsert (getpoint "\nScale to box : ")) (command "scale" xdetail xretrieve sf)
)
For some reason everything works until it gets to the scale command then it craps out. Can anyone tell me what is wrong?
Thanks,
(defun c:scd ( / xfrom xto xinsert xdetail xretrieve sf) (setq xdetail (ssget)) (setq xfrom (getint "\nCurrent scale factor: ")) (setq xto (getint "\nNew scale factor: ")) (if (> xfrom xto)(setq sf (/ xfrom xto))(setq sf (/ xto xfrom))) (setq xretrieve (getpoint "\nScale from box : ")) (setq xinsert (getpoint "\nScale to box : ")) (command "scale" xdetail xretrieve sf)
)
For some reason everything works until it gets to the scale command then it craps out. Can anyone tell me what is wrong?
Thanks,
