Задает шаг вывода элемента узора по вертикали.

Применяется к:

FillStyleElement

Синтаксис:

Visual Basic:

Sub SetStepVer(dStep As Double)

dStep - шаг по вертикали.

Описание:

Если шаг совпадает с размером рисунка по соответствующей оси, соседние рисунки выводятся без зазоров. Если шаг меньше размера рисунка, соседние рисунки накладываются друг на друга.

Значение задается в единицах измерения стиля заливки — пикселях или миллиметрах — и может быть дробным.

Пример:

Visual Basic:

Sub FillStyleElement_SetStepVer
'Берем активный слой карты
Set L = Zulu.ActiveMapDoc.Layers.Active
'Собираем стиль заливки из одного элемента
Set fsd = CreateObject("ZuluLib.FillStyleDef")
Set fse = CreateObject("ZuluLib.FillStyleElement")
'Штриховка рисуется линией стиля 1
fse.SetLine 1
'Шаг узора по вертикали
fse.SetStepVer 12.0
fsd.AddElement fse
'Добавляем стиль в библиотеку стилей слоя
MsgBox "Новый стиль заливки получил Id " & L.FillStyles.AddItem(fsd, -1)
End Sub

Python:

import zulu

def Macro_FillStyleElement_SetStepVer():
    # Берем активный слой карты
    L = zulu.App.ActiveMapDoc.Layers.Active
    # Собираем стиль заливки из одного элемента
    fsd = zulu.FillStyleDef()
    fse = zulu.FillStyleElement()
    # Штриховка рисуется линией стиля 1
    fse.SetLine(1)
    # Шаг узора по вертикали
    fse.SetStepVer(12.0)
    fsd.AddElement(fse)
    # Добавляем стиль в библиотеку стилей слоя
    print("Новый стиль заливки получил Id", L.FillStyles.AddItem(fsd, -1))