'//createAllSelPNTclusters
'//copyright mail@grahamdclark.com
'//creates a cluster for each selected point of objects
for each selected in selection
	if ( selected.Type = "pntSubComponent" ) then
		for each thing in selected.SubElements
			CreateClusterFromSubComponent selected.Subcomponent.Parent3DObject.Name&".pnt["&thing&"]", "Pointy"&thing
		next
	end if
next