set oRoot = ActiveProject.ActiveScene.Root

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

set oGeometry = oCube.ActivePrimitive.Geometry

set oFacets = oGeometry.Facets

LogMessage typename(oFacets(0).Points)

for each oFacet in oFacets

	for each oPoint in oFacet.Points

		LogMessage "Facet.Point  : " & oPoint.Position.X & "," & oPoint.Position.y & "," & oPoint.Position.z 

	next

next