This is shortcut command to scale selected object bigger 2 times refer selected reference clicked point.
Here is LISP source code :
(defun c:SCALE2X ( / ss basept)
(prompt "\nSelect objects to scale: ")
(setq ss (ssget))
(if ss
(progn
(prompt "\nSpecify base point: ")
(setq basept (getpoint "\nPick base point: "))
(if basept
(progn
(command "_.SCALE" ss "" basept "2")
(prompt "\nObjects scaled by 2×.")
)
(prompt "\nBase point not selected.")
)
)
(prompt "\nNo objects selected.")
)
(princ)
)
command is SCALE2x
--------------
Tip : user can adjust scale size by changing number in this line in source code
(command "_.SCALE" ss "" basept "2")
