'
'       This example shows how to set the reference plane from the  
'       data stored in the refplane transform 
'
NewScene
TranslateTool
'Create a sphere 
CreatePrim "Sphere", "MeshSurface" 
'Use reference plane XZ
SetCurrentReferencePlane "RefPlanes.XZ" 
'Set-up snapping to the reference plane 
'Set plane reference mode in MCP 
SetValue "Preferences.SnapProperties.Enable", True 
SetValue "Preferences.SnapProperties.EnableGrid", True 
SetUserPref "3D_TRANSFO_REFERENTIAL_CHANGED", 7 
MsgBox "Translate the sphere - note it is locked to the XZ reference plane."
'NOTE: you can set back the current reference plane to  
'the one created from CreateReferencePlane or SetTransientReferencePlane 
'by doing SetCurrentReferencePlane "RefPlanes.Transform"