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