(defun C:grow () (while (setq e (entsel)) (setq e1 (entget (car e))) (command "scale" (cdr (assoc -1 e1)) "" (cdr (assoc 10 e1)) "1.01") ) (princ) )