Метод возвращает горизонтальный сдвиг символа.
Visual Basic:
Function GetSymbolShiftHor() As Double
Sub GetSymbolShiftHor Set L = Zulu.ActiveMapDoc.Layers.Active 'объекту lsd присваиваем стиль линии по ID 85 Set lsd = L.LineStyles.ItemById(85) ' объекту lses присваиваем объект LineStyleElements Set lses = lsd.StyleElements ' объекту lse присваиваем объект LineStyleElement по индексу 0 из набора LineStyleElements Set lse = lses.Item(0) ' выводим горизонтальный сдвиг MsgBox(lse.GetSymbolShiftHor) End Sub