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