Задает стиль линии, которой рисуется штриховка.

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

FillStyleElement

Синтаксис:

Visual Basic:

Sub SetLine(LineStyle As Long)

LineStyle - номер стиля линии в библиотеке стилей слоя.

Описание:

Элемент узора становится векторной штриховкой, линии которой рисуются указанным стилем. Стили линий слоя перечисляет коллекция LineStyles.

Пример:

Visual Basic:

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

Python:

import zulu

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