масштаб в MapObjects

Question

Скажите, есть понятие масштаба в MapObjects? И Как задать масштаб и узнать?

Answer 1

Нашел, помог Олег!!!

Function MapScale(MapDisp As MapObjects2.Map) As Long

   Const INCH2FEET = 12
   Const INCH2METERS = 39.37
   Const INCH2DEGREES = 4322893.46
  
   Dim mapScreenWidth As Double
   Dim mapExtentWidth As Double
   Dim convFactor As Double
   'Если не имеется никаких слоев, мы не можем вычислять масштаб
   MapScale = 0
   If MapDisp.Layers.Count = 0 Then Exit Function
   'Определяем константу пересчета
   convFactor = INCH2METERS
   'Получите ширину экрана, и конвертируйте "twips" к дюймам.
   mapScreenWidth = MapDisp.Width / 1440
   mapExtentWidth = MapDisp.Extent.Width * convFactor
   'Вычислите масштаб, и обновите текст строки состояния
   MapScale = Int(mapExtentWidth / mapScreenWidth)
End Function