set root = Application.ActiveProject.ActiveScene.Root
set obj = root.AddGeometry( "Cube", "MeshSurface" )
set geometry = obj.ActivePrimitive.Geometry
set triangle = geometry.Triangles(0)
Application.LogMessage triangle.name & "'s index = " & triangle.index