EdgeCollection.NeighborPolygons method

This example demonstrates how to use the EdgeCollection.NeighborPolygons method.

set oCube = ActiveSceneRoot.AddGeometry( "Cube", "MeshSurface" )
set oGeometry = oCube.ActivePrimitive.Geometry
set oPolygons = oGeometry.Polygons
set oNeighborEdges = oPolygons(0).NeighborEdges(1)
set oNeighborPolygons = oNeighborEdges.NeighborPolygons( 1 )
str = "Polygons neighbors of this EdgeCollection are :"
for each n in oNeighborPolygons
		str = str & " " & n.index
next
logmessage str

EdgeCollection NeighborPolygons