set oRoot = Application.ActiveProject.ActiveScene.Root

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

set oGeometry = oObj.ActivePrimitive.Geometry

set oClusters = oGeometry.Clusters

for each oCluster in oClusters

	Application.LogMessage oCluster.Type

next