Метод возвращает толщину линии в миллиметрах.
Visual Basic:
Function GetLineWidth() As Double
Sub GetLineWidth 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.GetLineWidth) End Sub