'

'	This example shows how to initialize the current reference frame and use it. 

'

NewScene 

CreatePrim "Sphere", "MeshSurface" 

Rotate , 0, 0, 45, siAbsolute, siParent, siObj, siZ 

CreatePrim "Cube", "MeshSurface"

Scale , 0.234042553191489, 0.234042553191489, 0.234042553191489, siRelative, siGlobal, siObj, siXYZ, , , , , , , , 0

SelectObj "sphere", , True 

Translate , -5, 0, 0, siAbsolute, siParent, siObj, siX 

Rotate , -29.25, 0, 0, siRelative, siLocal, siObj, siXYZ, , , , , , , , 0

TranslateTool

'Initialize reference frame and use it 

SetReferencePlane "RefPlanes.Transform", "sphere" 

SetCurrentReferencePlane "RefPlanes.Transform" 

'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 

SelectObj "Cube" 

MsgBox "Move the cube interactively.  It will move with respect to the reference plane defined by the sphere."