Метод возвращает тип линейных размеров.
Visual Basic:
Function GetLineSizeType() As eLinearSizeType
0 - постоянные.
1 - пропорциональные.
Sub GetLineShiftHor 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.GetLineShiftHor) End Sub