Возвращает объект ZRectangle, содержащий координаты углов текущего вида.
Visual Basic:
Function GetBoundsRectangle() As ZRectangle
'Получить координаты углов карты: Sub ScreenBounds() 'VBScript Set Doc = Zulu.ActiveMapDoc Set RC = Doc.Views.Active.GetBoundsRectangle msgbox "Xmin: " + Cstr(RC.Xmin) + Chr(10) + "Ymin: " + Cstr(RC.Ymin) + Chr(10) + _ "Xmax: " + Cstr(RC.Xmax) + Chr(10) + "Ymax: " + Cstr(RC.Ymax) End Sub