set oRoot = Application.ActiveProject.ActiveScene.Root

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

set oGeometry = oObj.ActivePrimitive.Geometry

set oFacets = oGeometry.Facets