;;Elise Moss
;;Moss Designs
;;www.mossdesigns.com
;;1/2005

;;scales one selected object .5

(defun c:sc5 ()
(setq en (cadr(entsel)))
(setq bspt (getpoint "\nGet basepoint for scale:"))
(command "scale" en "" bspt "0.5")
)