Mode:
Duration:
1
2
3
4
5
6
7
(defun c:ScaleObjects ()
(setq ss (ssget))
(setq base (getpoint "\nBase point: "))
(setq factor (getreal "\nScale factor: "))
(command "_.SCALE" ss "" base factor)
(princ)
)Coding works best on desktop or with an external keyboard.