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

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

FillStyleElement

Синтаксис:

Visual Basic:

Sub SetShiftVer(dShift As Double)

dShift - сдвиг по вертикали.

Описание:

Смещение начальных координат элемента по вертикальной оси. Смещение задает относительное стартовое положение элемента и полезно при построении комбинированной заливки из нескольких элементов.

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

Пример:

Visual Basic:

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

Python:

import zulu

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