'VBScript example : find the custom properties on an object

set oSphere = ActiveProject.ActiveScene.Root.AddGeometry("Sphere", "NurbsSurface")

'Add two empty custom property sets

oSphere.AddProperty "Custom_parameter_list",,"MyFirstCustomProperty"

oSphere.AddProperty "Custom_parameter_list",,"MySecondCustomProperty"

'List all the custom property sets on the object

for each oLocalProp in oSphere.LocalProperties

if ( oLocalProp.Type = "customparamset" ) then

		logmessage oLocalProp.Name & ", " & oLocalProp.Type & ", " & typename(oLocalProp)

end if

next 

'Results of running this script:

'INFO : "MyFirstCustomProperty, customparamset, CustomProperty"

'INFO : "MySecondCustomProperty, customparamset, CustomProperty"

'VBScript example : Demonstrate creating a cluster with custom property set based on the

'                   selected points

'Setup the scenario

CreatePrim "Grid", "MeshSurface"

DeselectAll

ActivateVertexSelTool

SelectGeometryComponents "grid.pnt[34,35,42-44]"

'Now based on selection we create a cluster and property set on the cluster

dim oObj, oNewCluster, oPSet

dim item

set oObj = application.selection

set item = oObj.Item(0)

if ( item.Type = "pntSubComponent" ) then

	set oNewCluster = item.SubComponent.CreateCluster( "MyPointCluster" )

	'Add custom property set to the new cluster

	set oPSet = oNewCluster.AddProperty("Custom_parameter_list",,"MyClusterPSet")

	oPSet.AddParameter "StrCustomParam", siString								

	oPSet.Parameters( "StrCustomParam" ).Value = "TestValue"

	logmessage oPSet.Parameters( "StrCustomParam" ).FullName

end if

'Results of running this script

'INFO : "grid.polymsh.cls.MyPointCluster.MyClusterPSet.StrCustomParam"

var app = Application;

var root = app.ActiveSceneRoot;

var nullobj;

nullobj = root.AddNull( "" );

var cpset;

cpset = nullobj.AddCustomProperty("MyCustomPSet", false );

var x, y, bitfield, label, flag, unused;

x = cpset.AddParameter( "x", siDouble, siClassifUnknown, siAnimatable, "Double", "Double X", unused, 10.0, 0.0, 100.0, 10.0, 90.0 );

y = cpset.AddParameter( "y", siInt4, siClassifUnknown, siAnimatable, "Integer", "Integer Y", unused, 10, 0, 100, 10, 90 );

z = cpset.AddParameter( "x", siDouble, siClassifUnknown, siAnimatable, "Double", "Double Z" );

label = cpset.AddParameter( "label", siString, siClassifUnknown, siAnimatable, "Text", "Text Field", unused, "Hello World" );

flag = cpset.AddParameter( "flag", siBool, siClassifUnknown, siAnimatable, "Flag", "Boolean Field", unused, true );

bitfield = cpset.AddParameter( "bitfield", siUByte, siClassifUnknown, siAnimatable, "UByte", "Bitfield", 32 );