import win32com.client
from win32com.client import constants

xsi = Application
log = xsi.LogMessage
oSelection = xsi.Selection



for oObj in oSelection:
	 
	if oObj.Type != "pntSubComponent":
		log("You don't have any points selected", 2)
	
	else:
		oSubCom = oObj.SubComponent
		oSelectedVerts = oSubCom.ElementArray
		oParent = oSubCom.Parent3dObject
		oGeom = oParent.ActivePrimitive.Geometry
	
		for oVert in oSelectedVerts:
	
			#Create a null for each selected point and create a cluster for each selected point
			oClusterNull = xsi.ActiveSceneRoot.AddNull("Vert" + str(oVert) + "_Null")
			oCluster = oGeom.AddCluster(constants.siVertexCluster,"Pnt" + str(oVert) + "_Cluster", oVert)

			#Add Constraint
			oClusterNull.Kinematics.AddConstraint("ObjectToCluster", oCluster)