Возвращает количество отдельных составных контуров объекта.

Применяется к:

PolyContour

Синтаксис:

Visual Basic:

Property PolygonCount() As Long

read only

Описание:

Свойство вернет количество полигонов одного объекта, которые не касаются друг друга. Например, если свойство вернуло значение 2, то при операции "разъединить" этот объект превратится в два отдельных элемента.

Пример:

Sub PolyContour_PolygonCount
Set L = Zulu.ActiveMapDoc.Layers.Active
'в перменную ID записывает ключ выбранного объекта
ID = L.CurrentID
'получаем элемент по ключу
Set element = L.Elements.GetElement(ID)		
'получаем polycontour объекта
Set polyContour = element.polyContour
'получаем количество отдельных составных контуров объекта
cnt = polyContour.PolygonCount		
'выводим количество отдельных составных контуров объекта в отдельное окно для проверки
MsgBox(cnt)	 
End Sub