'This vbscript example demonstrates how you can create user data maps on seperate 

	'clusters with a single call to CreateUserDataMap

	dim oRoot, oCircle, oCluster1, oCluster2, oCluster3, l_ClusterList, oUserDataMapList, oUserDataMap

	set oRoot = Application.ActiveProject.ActiveScene.Root

	set oCircle = oRoot.AddGeometry("Circle","NurbsCurve")

	set oCluster1 = oCircle.ActivePrimitive.Geometry.AddCluster( siIsoPointCluster )		

	set oCluster2 = oCircle.ActivePrimitive.Geometry.AddCluster( siVertexCluster,"PntCluster",Array(1,4,7,10,13,16) )		

	set oCluster3 = oCircle.ActivePrimitive.Geometry.AddCluster( siKnotCluster )

	'Build a list of clusters, similar to what happens is you select multiple clusters

	'(the duplicates will be filtered out)

	set l_ClusterList = CreateObject("XSI.Collection")

	l_ClusterList.Add oCluster1

	l_ClusterList.Add oCluster2

	l_ClusterList.Add oCluster3

	l_ClusterList.Add oCluster1	

	set oUserDataMapList = CreateUserDataMap( l_ClusterList, "MultiCreatedUserData" )	

	'We can get at the individual object in the collection

	'by iterating like this:	

	for each oUserDataMap in oUserDataMapList

		logmessage oUserDataMap.FullName

	next

	'Output of this script is something like:

	'INFO : "circle1.crvlist.cls.Isopoint.MultiCreatedUserData"

	'INFO : "circle1.crvlist.cls.PntCluster.MultiCreatedUserData"

	'INFO : "circle1.crvlist.cls.knot.clslist.Knot.MultiCreatedUserData"

'This vbscript example demonstrates creating a templated User Data Map using CreateUserDataMap

	option explicit

	dim oRoot, oObj, oCluster, oPSet, oUserDataMap

	set oRoot = Application.ActiveProject.ActiveScene.Root

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

	set oCluster = oObj.ActivePrimitive.Geometry.AddCluster( siPolygonCluster, "UserDataCls" )	

	'Create a custom parameter that will serve as the template.  In this case we 

	'choose to create it underneath the object, but we could create it elsewhere if we like

	set oPSet = oObj.AddProperty( "Custom_parameter_list",,"MyDataFormat" )

	oPSet.AddParameter "MyFlag", siBool,,,,,, true

	oPSet.AddParameter "Z", siUInt4,,,,,, 100, 0, 1000

	set oUserDataMap = CreateUserDataMap( oCluster, "UserData", oPSet ).Item( 0 )

	logmessage "Name of template for " & oUserDataMap.FullName & " is " & oUserDataMap.Template.FullName

	'Output of this script is the following:

	'INFO : "Name of template for grid.polymsh.cls.UserDataCls.UserData is grid.MyDataFormat"