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