PolyCounts Property

PolyCounts returns the number of vertices per sub-polygon or 3D polygon. Returns an array of longs. This is a read-only property.

Syntax

object.PolyCounts

Example

This example demonstrates how to return the number of vertices per sub-polygon within a polygon. The first two statements create an array of longs named PolyCounts then store the number of vertices per sub-polygon within the array. The remaining statements allow the number of vertices of all sub-polygons within any polygon to be returned.

Dim PolyCounts() As Long

PolyCounts() = Polygon.PolyCounts

 

Dim FirstSubPoly As Integer

FirstSubPoly = LBound(PolyCounts)

 

Dim LastSubPoly As Integer

LastSubPoly = UBound(PolyCounts)

 

Dim SubPolyNumber as Integer

For SubPolyNumber = FirstSubPoly To LastSubPoly Step 1

Debug.Print PolyCounts(SubPolyNumber)

Next SubPolyNumber

Used by: Polygon object, Polygon3D object