'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"
|