Возвращает количество элементов в наборе FillStyleElements.
Visual Basic:
Property Count As Long
read-only
Visual Basic:
Sub FillStyleElements_Count 'Берем активный слой карты Set L = Zulu.ActiveMapDoc.Layers.Active 'Первый стиль заливки из библиотеки стилей слоя Set fsd = L.FillStyles.Item(0) 'Число элементов узора в стиле MsgBox "Элементов в стиле: " & fsd.StyleElements.Count End SubPython:
import zulu def Macro_FillStyleElements_Count(): # Берем активный слой карты L = zulu.App.ActiveMapDoc.Layers.Active # Первый стиль заливки из библиотеки стилей слоя fsd = L.FillStyles.Item(0) # Число элементов узора в стиле print("Элементов в стиле:", fsd.StyleElements.Count)