set oRoot = Application.ActiveProject.ActiveScene.Root

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

set oGeometry = oObj.ActivePrimitive.Geometry

for each oSegment in oGeometry.Segments

	LogMessage "segment[" & oSegment.Index & "]"

	for each oPoint in oSegment.Points

		LogMessage oPoint.Position.x & "," & oPoint.Position.y & "," &oPoint.Position.z

	next

next