set oRoot = ActiveProject.ActiveScene.Root

set oCube = oRoot.AddGeometry( "Cube", "MeshSurface" )

set oGeometry = oCube.ActivePrimitive.Geometry

set oFacets = oGeometry.Facets

LogMessage typename(oFacets)

for each oFacet in oFacets

	for each oSegment in oFacet.Segments 

		LogMessage "Facet.Segment.Index " & oSegment.Index 

	next

next