Возвращает объект MapGrid с настройками сетки карты.
Visual Basic:
Property MapGrid As MapGrid
read-only
Через объект сетку настраивают полностью: видимость, шаг и сдвиг по каждой оси, цвет и стиль линий. Это та же сетка, которой управляет свойство Grid: выбор готового размера планшетов заполняет шаги объекта и включает сетку. Так, у карты в сантиметрах Grid = 1 (планшеты 1:100) дает шаг 5000 по обеим осям, 2 - 25000, 3 - 100000. Если задать свой шаг и включить сетку, Grid становится равным 6 - eGridCustom.
Свойство отдает не копию, а саму сетку карты: два обращения подряд дают один и тот же объект, изменения сразу действуют на карту и отмечают ее несохраненной (Saved становится False). Настройки сетки сохраняются в файле карты: после SaveAs и Open видимость, шаг и цвет читаются теми же.
У только что созданной карты сетка выключена, а шаги, сдвиги, цвет и стиль нулевые.
Пример включает на карте свою сетку - красную, с шагом 2000 единиц карты - и выключает ее обратно.
Visual Basic:
Sub MapDoc_MapGrid 'Берем рабочую карту Set M = Zulu.ActiveMapDoc Set G = M.MapGrid S = "Было: сетка видна " & G.Visible & ", Grid = " & M.Grid 'Своя сетка: красная, шаг 2000 по обеим осям G.StepX = 2000 G.StepY = 2000 G.Color = RGB(255, 0, 0) G.Visible = True S = S & vbCrLf & "своя сетка: шаг " & M.MapGrid.StepX & ", Grid = " & M.Grid 'Выключаем сетку G.Visible = False S = S & vbCrLf & "после выключения: сетка видна " & M.MapGrid.Visible MsgBox S End SubPython:
import zulu def Macro_MapDoc_MapGrid(): # Берем рабочую карту M = zulu.App.ActiveMapDoc G = M.MapGrid print("Было: сетка видна", G.Visible, ", Grid =", M.Grid) # Своя сетка: красная, шаг 2000 по обеим осям G.StepX = 2000 G.StepY = 2000 G.Color = 255 G.Visible = True print("своя сетка: шаг", M.MapGrid.StepX, ", Grid =", M.Grid) # Выключаем сетку G.Visible = False print("после выключения: сетка видна", M.MapGrid.Visible)