SetSymbolStep method (LineStyleElement)

Метод задает шаг между символами объекту LineStyleElement.

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

LineStyleElement

Синтаксис:

Visual Basic:

Sub SetSymbolStep(dStep As Double)

dStep - шаг между символами.

Пример:

Sub SetSymbolStep
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