;;GROW.LSP SCALES SELECTED OBJECT. Use negative number to shrink
;;
(defun C:grow ()
  (setq SC (getREAL "\nEnter Scale Amount: ")) 
  (while  (setq e (entsel))
    (setq e1 (entget (car e)))
    (command "scale" (cdr (assoc -1 e1)) "" (cdr (assoc 10 e1)) SC)
  )
  (princ)
)