Возвращает графический тип текущего объекта.
Visual Basic:
Property GraphType As eElemGraphType
read-only
От графического типа зависит, какие из остальных членов имеют смысл: текст возвращает GetText только у текстовых объектов, площадь и периметр — Area и Perimeter только у площадных.
Visual Basic:
Sub IZEnumElements_GraphType 'Итератор по объектам активного слоя карты Set L = Zulu.ActiveMapDoc.Layers.Active Set En = L.EnumElements En.MoveFirst 'Сколько объектов каждого графического типа в слое Set d = CreateObject("Scripting.Dictionary") Do While Not En.IsEOF g = En.GraphType d(g) = d(g) + 1 En.MoveNext Loop s = "" For Each g In d.Keys s = s & "тип " & g & ": " & d(g) & vbCrLf Next MsgBox s End SubPython:
import zulu def Macro_IZEnumElements_GraphType(): # Итератор по объектам активного слоя карты L = zulu.App.ActiveMapDoc.Layers.Active En = L.EnumElements() En.MoveFirst() # Сколько объектов каждого графического типа в слое d = {} while not En.IsEOF(): g = En.GraphType d[g] = d.get(g, 0) + 1 En.MoveNext() for g in sorted(d): print("тип %d: %d" % (g, d[g]))