Возвращает поликонтур составного поликонтура объекта по индексу.
Visual Basic:
Property PolygonItem(Index As Long) As PolyContour
read only
Index - индекс поликонтура.
В случае неудачи свойство вернет Null:
Set L = Zulu.ActiveMapDoc.Layers.Active 'в перменную ID записывает ключ выбранного объекта ID = L.CurrentID 'получаем элемент по ключу Set element = L.Elements.GetElement(ID) 'получаем составной поликонтур объекта Set polyContours = element.polyContour 'получаем поликонтур по индексу set polyContour = polyContours.PolygonItem(0) 'выводим количество контуров в выбраном поликонтуре MsgBox(polyContour.Count) End Sub