Метод присваивает цвет линии объекту LineStyleElement.

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

LineStyleElement

Синтаксис:

Visual Basic:

Sub SetLineColor(nColor As Long)

nColor - цвет линии.

Описание:

Цвет задается числом, как его составляет функция RGB: у только что созданного элемента он равен 0 - черному.

Особое значение -16777215 означает, что своего цвета у элемента нет: тогда линия рисуется цветом, который передан в метод Draw. Такое значение стоит у элементов большинства готовых стилей.

Заданный цвет сильнее: линия рисуется им, какой бы цвет ни передали в Draw.

Пример:

Пример собирает стиль из синей линии и кладет его в библиотеку стилей слоя.

Visual Basic:

Sub LineStyleElement_SetLineColor
'Берем активный слой карты
Set L = Zulu.ActiveMapDoc.Layers.Active
Set lsd = CreateObject("ZuluLib.LineStyleDef")
Set lse = CreateObject("ZuluLib.LineStyleElement")
'Синяя сплошная линия
lse.SetLineColor RGB(0, 0, 255)
lse.SetLineType 0
lsd.AddLineElement lse
S = "Цвет в элементе: " & lsd.StyleElements.Item(0).GetLineColor
S = S & vbCrLf & "новый стиль получил Id " & L.LineStyles.AddItem(lsd, -1)
MsgBox S
End Sub

Python:

import zulu

def Macro_LineStyleElement_SetLineColor():
    # Берем активный слой карты
    L = zulu.App.ActiveMapDoc.Layers.Active
    lsd = zulu.LineStyleDef()
    lse = zulu.LineStyleElement()
    # Синяя сплошная линия: в числе цвета синяя составляющая старшая
    lse.SetLineColor(16711680)
    lse.SetLineType(0)
    lsd.AddLineElement(lse)
    print("Цвет в элементе:", lsd.StyleElements.Item(0).GetLineColor())
    print("новый стиль получил Id", L.LineStyles.AddItem(lsd, -1))