dim u,v

set root = application.activeproject.activescene.root

set obj = root.addgeometry( "Cube", "MeshSurface" )

set triangle = obj.activeprimitive.geometry.Triangles(0)

for each p in triangle.Points

	logmessage "uv = " & p.uv.u & "," & p.uv.v

next