'---------------------------------------------------------
' Example: Saving an loading a preset file. This example 
' demonstrates creating a custom p-set, saving it to a 
' preset file, and then re-loading that file.
'---------------------------------------------------------
' Add a custom PSet to the scene root, with a parameter, and set its value to 8.
SelectObj ActiveProject.ActiveScene.Root
AddProp "Custom_parameter_list", , , "MyPSet"
SIAddCustomParameter "MyPSet", "MyParam", siDouble, 5, 0, 10, null, 4, 0, 10, null, null
SetValue "MyPSet.MyParam", 8, null
' Now save the 'MyPSet' as a preset file named 'Example'.
SavePreset "MyPSet", "Example", null, siUser, null, false, null
' Change the value of the parameter to 6, and then load the example just saved.
SetValue "MyPSet.MyParam", 6, null
ParamVal = GetValue( "MyPSet.MyParam", null )
LogMessage "Value of MyPSet.MyParam = " & ParamVal
PresetFile = Application.InstallationPath( siUserPath ) & "\Data\DSPresets\Properties\Example.Preset"
LoadPreset PresetFile, "MyPSet"
' Notice how custom property set has been renamed to the Preset name
ParamVal = GetValue( "Example.MyParam", null )
LogMessage "Value of Example.MyParam = " & ParamVal
'---------------------------------------------------------
' Output from this script:
'INFO : "Value of MyPSet.MyParam = 6"
'INFO : "Value of Example.MyParam = 8"
' Object : "Example.MyParam"
'---------------------------------------------------------