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 "p.position: " & p.position.x & "," & p.position.y & "," & p.position.z
next