Метод присваивает сдвиг линии по вертикали.
Visual Basic:
Sub SetLineShiftVer(dShift As Double)
dShift - величина сдвига по вертикали.
Смещение может иметь как положительное, так и отрицательное значение.
sub LineStyleElement_SetLineShiftVer 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 0 'смещаем линию по вертикали. lse.SetLineShiftVer 5 'добавляем lse в объект lsd lsd.AddLineElement lse 'добавляем объект lsd в коллекцию стилей линий слоя L.LineStyles.AddItem lsd, -1 end sub