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