Метод возвращает цвет линии.

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

LineStyleElement

Синтаксис:

Visual Basic:

Function GetLineColor() As Long

Пример:

Sub Color
Set L = Zulu.ActiveMapDoc.Layers.Active
'объекту lsd присваиваем стиль линии по ID 85
Set lsd = L.LineStyles.ItemById(85)
' объекту lses присваиваем объект LineStyleElements
Set lses = lsd.StyleElements
' объекту lse присваиваем объект LineStyleElement по индексу 1 из набора LineStyleElements
Set lse = lses.Item(1)
' выводим цвет линии
MsgBox(lse.GetLineColor)					
End Sub