Метод задает тип линии. Сплошная или прерывистая.

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

LineStyleElement

Синтаксис:

Visual Basic:

Sub SetLineType(eType As eLineType)

eType - тип линии:

0 - сплошная.

1 - прерывистая.

Описание:

У только что созданного элемента тип линии равен 1.

Рисунок прерывистой линии задается шагом и длиной штриха - методами SetLineStep и SetLineDash. Если хотя бы один из них остался нулевым, прерывистая линия не рисуется вовсе. У сплошной линии шаг и штрих не используются.

Значение вне набора констант метод не принимает: тип остается прежним, исключения не возникает.

Пример:

Пример собирает прерывистую линию и кладет ее в библиотеку стилей слоя.

Visual Basic:

Sub LineStyleElement_SetLineType
'Берем активный слой карты
Set L = Zulu.ActiveMapDoc.Layers.Active
Set lsd = CreateObject("ZuluLib.LineStyleDef")
Set lse = CreateObject("ZuluLib.LineStyleElement")
'Красная прерывистая линия: штрих 3 через каждые 10
lse.SetLineColor RGB(255, 0, 0)
lse.SetLineType 1
lse.SetLineDash 3
lse.SetLineStep 10
lsd.AddLineElement lse
'Кладем стиль в библиотеку стилей слоя
S = "Элементов в стиле: " & lsd.StyleElements.Count
S = S & vbCrLf & "новый стиль получил Id " & L.LineStyles.AddItem(lsd, -1)
MsgBox S
End Sub

Python:

import zulu

def Macro_LineStyleElement_SetLineType():
    # Берем активный слой карты
    L = zulu.App.ActiveMapDoc.Layers.Active
    lsd = zulu.LineStyleDef()
    lse = zulu.LineStyleElement()
    # Красная прерывистая линия: штрих 3 через каждые 10
    lse.SetLineColor(255)
    lse.SetLineType(1)
    lse.SetLineDash(3)
    lse.SetLineStep(10)
    lsd.AddLineElement(lse)
    # Кладем стиль в библиотеку стилей слоя
    print("Элементов в стиле:", lsd.StyleElements.Count)
    print("новый стиль получил Id", L.LineStyles.AddItem(lsd, -1))