'//ClsEachComp Vbs
'//copyright mail@grahamdclark.com
'//makes a cluster of each selected component, points, edges or polys
Set oColl = CreateObject("XSI.Collection")
set oSelected = selection
for each selected in oSelected
	Set oSel = selected
	sSubComponentType = oSel.type
	Set oObj = GetValue(oSel.obj)

	For each i in oSel.SubElements
		Select Case sSubComponentType
			Case "polySubComponent"
				set oCluster = oObj.Geometry.AddCluster(  siPolygonCluster,"poly"&i,Array(i) )
			Case "pntSubComponent"
				set oCluster = oObj.Geometry.AddCluster(  siVertexCluster,"pointy"&i,Array(i) )
			Case "edgeSubComponent"
				set oCluster = oObj.Geometry.AddCluster(  siEdgeCluster,"edgey"&i,Array(i) )
		end Select
		oColl.Add oCluster
	Next
next
SelectObj oColl