set oRoot = Application.ActiveProject.ActiveScene.Root

set oObj = oRoot.AddGeometry( "Cube", "MeshSurface" )

set oGeometry = oObj.ActivePrimitive.Geometry

for i=0 to oGeometry.Points.Count - 1

	set oPos = oGeometry.Points(i).Position

	Application.LogMessage oPos.x & "," & oPos.y & "," & oPos.z

next