set root = Application.ActiveProject.ActiveScene.Root
set obj = root.AddGeometry( "Cube", "MeshSurface" )
set geometry = obj.ActivePrimitive.Geometry
set triangles = geometry.Triangles