Метод задает горизонтальный сдвиг символа объекту LineStyleElement.

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

LineStyleElement

Синтаксис:

Visual Basic:

Sub SetSymbolShiftHor(dShift As Double)

dShift - горизонтальный сдвиг.

Пример:

Sub SetSymbolShiftHor
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.SetSymbolShiftHor 10
'задаем шаг между элементами
lse.SetSymbolStep 25		
'добавляем lse в объект lsd
lsd.AddSymbolElement	 lse	
L.LineStyles.AddItem lsd, -1	
End Sub