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