/*
        This example shows how to create a temporary instance of the Self-Installed 
        Custom Property called "CustomColor". This object is not part of the scene 
        so you don't have to delete it after you are done using it.
*/
var oColor = XSIFactory.CreateObject( "CustomColor" )
bCancelled = InspectObj( oColor, null, "Pick your favorite color", siModal, false ) ;
if ( !bCancelled )
{
        Application.LogMessage( "You picked " + oColor.Color_R.Value + "," + oColor.Color_G.Value + "," + oColor.Color_B.Value ) ;
}

' 
' This example shows a typical use of XSIFactory.CreateObject to create a temporary
' CustomProperty object used as the UI for an Import or Export operation.
'
' There are two routines.  DoScanUI is a user-friendly version that lets the user pick
' the options for the operation via a temporary custom pset.  It then calls DoScanLowLevel 
' which does the actual operation without any UI.
'
DoScanUI Application.InstallationPath( siUserPath ), false 
sub DoScanUI( in_defaultScanLocation, in_bRecursive )
        if NOT Application.Interactive then                     
                ' If you want your script to work in batch mode you could skip the modal dialog box and just 
                ' use the default values.  But it would be clearly code to call DoScanLowLevel directly.
                DoScanLowLevel in_defaultScanLocation, in_bRecursive
                exit sub
        end if
        ' This CustomProperty is not part of the scene 
        ' and will not be persisted
        set oTempPSet = XSIFactory.CreateObject( "CustomProperty" )
        oTempPSet.Name = "Scan Options"
        oTempPSet.AddParameter3 "ScanFolder", siString
        oTempPSet.AddParameter3 "Recursive", siBool, , , , false
        ' Establish the default values in the Custom PSet
        oTempPSet.ScanFolder.Value = in_defaultScanLocation
        oTempPSet.Recursive.Value = in_bRecursive
        ' Build a custom layout
        set oLayout = oTempPSet.PPGLayout
        oLayout.AddItem "ScanFolder", "Scan Folder", siControlFolder
        oLayout.AddItem "Recursive"
        ' Show the custom ui, Softimage is frozen until the user closes the dialog
        bCancel = InspectObj( oTempPSet,,,siModal,false )
        if bCancel then
                Logmessage "Operation cancelled"
        else
                'Read the values from the pset  
                strScanLocation = oTempPSet.ScanFolder.Value
                bRecursive = oTempPSet.Recursive.Value
                DoScanLowLevel strScanLocation, bRecursive 
        end if
        ' No need to call DeleteObj
end sub
sub DoScanLowLevel( in_folder, in_bRecursive )
        ' Do the scanning operation not actually implemented in this example)
        strMsg = "Doing "
        if in_bRecursive then
                strMsg = strMsg & "recursive "
        end if
        Application.LogMessage strMsg & "scan of " & in_folder
end sub