'VBScript example : remove a parameter from a custom property

dim oSphere, oProp, oParam

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

set oProp = oSphere.AddProperty("Custom_parameter_list",,"MyCustomParamList")

set oParam = oProp.AddParameter ("StrCustomParam", siString, , , , , , "val")

set oParam2 = oProp.AddParameter ("BoolCustomParam", siBool, , , , , , true)

for each p in oProp.Parameters

	LogMessage p.Name & ", " & typename(p)

next

oProp.RemoveParameter(oParam)

'There should be only one custom parameter left

InspectObj "Sphere.MyCustomParamList"