Метод присваивает символ объекту LineStyleElement по его ID.

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

LineStyleElement

Синтаксис:

Visual Basic:

Sub SetSymbol(Symbol As Symbol)

Symbol - ID символа.

Пример:

Sub SetSymbol
Set L = Zulu.ActiveMapDoc.Layers.Active
'создаем объект LineStyleDef
Set lsd = CreateObject ("ZuluLib.LineStyleDef")	
'создаем объект LineStyleElement
Set lse = CreateObject ("ZuluLib.LineStyleElement")
'задаем символ с ID 2
lse.SetSymbol L.Symbols.ItemById(2)	
'задаем масштаб элемента
lse.SetSymbolScale 1
'задаем шаг между элементами
lse.SetSymbolStep 25		
'добавляем lse в объект lsd
lsd.AddSymbolElement	 lse	
L.LineStyles.AddItem lsd, -1	
End Sub