set oRoot = application.activeproject.activescene.root

set oObj = oRoot.addgeometry( "Cube", "MeshSurface" )

set oGeometry = oObj.activeprimitive.geometry

for each oFacet in oGeometry.Facets

	LogMessage "Geometry.Facet.Index = " & oFacet.Index

next