Возвращает тип текущего объекта.
Visual Basic:
Property Type As ObjectType
read-only
Свойство Id возвращённого объекта совпадает со значением TypeID.
В слое, где типы объектов не заданы, свойство возвращает Nothing, а TypeID при этом даёт -1.
Visual Basic:
Sub IZEnumElements_Type 'Итератор по объектам активного слоя карты Set L = Zulu.ActiveMapDoc.Layers.Active Set En = L.EnumElements En.MoveFirst Set t = En.Type If t Is Nothing Then MsgBox "У слоя нет типов объектов" Else MsgBox "Тип объекта " & En.ElemID & ": " & t.Id & " — " & t.Name End If End SubPython:
import zulu def Macro_IZEnumElements_Type(): # Итератор по объектам активного слоя карты L = zulu.App.ActiveMapDoc.Layers.Active En = L.EnumElements() En.MoveFirst() t = En.Type if t is None: print("У слоя нет типов объектов") else: print("Тип объекта %d: %d — %s" % (En.ElemID, t.Id, t.Name))