Метод возвращает сдвиг линии по вертикали.

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

LineStyleElement

Синтаксис:

Visual Basic:

Function GetLineShiftVer() As Double

Пример:

Sub GetLineShiftVer
Set L = Zulu.ActiveMapDoc.Layers.Active
'объекту lsd присваиваем стиль линии по ID 85
Set lsd = L.LineStyles.ItemById(85)
' объекту lses присваиваем объект LineStyleElements
Set lses = lsd.StyleElements
' объекту lse присваиваем объект LineStyleElement по индексу 1 из набора LineStyleElements
Set lse = lses.Item(1)
' выводим сдвиг линии.
MsgBox(lse.GetLineShiftVer)					
End Sub