Creates a UserDataMap cluster property for holding user data.
oReturn = CreateUserDataMap( [InputObj], [PropertyName], [Template] ); |
Returns a collection of the newly created properties. If no clusters are specified in the InputObjs argument the returned collection will be empty.
Parameter | Type | Description |
---|---|---|
InputObj | String | A cluster or a list of
clusters to create user data on
Default Value: Current selection |
PropertyName | String | Name of the user data property. To clearly identify the
property and to avoid conflict with other plugins, it is
recommended that the name reflects the plugin or author of the
plugin.
Default Value: "UserData" |
Template | CustomProperty | Name of the a custom property that will serve as the template for the contents of the user data map. This argument is not necessary if the user data map will be used for storing binary data. |
'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" |