(defun c:getareascale (/ bd sc)
    (setq bd (entget (car (entsel "\nSelect scale area border: "))
       '("GENIUS_GENSCREG_15")
      )
   sc (cdr (nth 1 (cadr (assoc -3 bd))))
    )
  (eval sc)
)