set root = application.activeproject.activescene.root
set obj = root.addgeometry( "Cube", "MeshSurface" )
set triangle = obj.activeprimitive.geometry.Triangles(0)
set Points = triangle.Points
a = triangle.points.indexarray
for i = LBound(a,1) to UBound(a,1)
        logmessage "p.index = " & a(i)
next