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

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

FillStyleElement

Синтаксис:

Visual Basic:

Sub SetShiftHor(dShift As Double)

dShift - сдвиг по горизонтали.

Описание:

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

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

Пример:

Visual Basic:

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

Python:

import zulu

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