Метод присваивает сдвиг штриха вдоль направления линии. (только для прерывистых линий)

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

LineStyleElement

Синтаксис:

Visual Basic:

Sub SetLineShiftHor(dShift As Double)

dShift - величина сдвига вдоль направления линии.

Описание:

Смещение может иметь как положительное, так и отрицательное значение.

Пример:

sub LineStyleElement_SetLineShiftHor
Set L = Zulu.ActiveMapDoc.Layers.Active
'создаем объект LineStyleDef
Set lsd = CreateObject ("ZuluLib.LineStyleDef")	
'создаем объект LineStyleElement
Set lse = CreateObject ("ZuluLib.LineStyleElement")
'присваиваем цвет линии объекту lse
lse.SetLineColor 255
'присваиваем тип линии объекту lse
lse.SetLineType 1
'смещаем штрихи вдоль линии
lse.SetLineShiftHor 5
'присваиваем длину штриха объекту lse
lse.SetLineDash	 3
'присваиваем шаг штриха объекту lse
lse.SetLineStep 10		
'добавляем lse в объект lsd
lsd.AddLineElement lse	
'добавляем объект lsd в коллекцию стилей линий слоя
L.LineStyles.AddItem lsd, -1		
end sub