'
' Animate a path-constrained null. Then, copy and paste this 
' animation onto another (unanimated) path-constrained null.
'
dim oCircle1,oCircle2,oColl
dim oNull1,oNull2
'
' Create two ellipses and put them side by side.
'
set oCircle1 = CreatePrim("Circle", "NurbsCurve")
Rotate oCircle1, 90, 0, 0, siRelative, siAdd, siObj, siXYZ
Scale oCircle1, 1, 0.25, 1, siRelative, siLocal, siObj, siXYZ
'Make a duplicate copy of the circle.
set oColl = Duplicate(oCircle1, 1 , _
                                 siDuplicateHistory, _
                                 siSharedParent, _
                                 siShareGrouping, _
                                 siDuplicateProperties, _
                                 siDuplicateAnimation, _
                                 siShareConstraints, _ 
                                 siSetSelection, _
                                 siApplyRepeatXForm)
'Get the duplicated circle
set oCircle2 = oColl(0)
'Separate the circles
Translate oCircle1 , 0, 0, -2, siAbsolute, siView, siObj, siXYZ
Translate oCircle2 , 0, 0, 2, siAbsolute, siView, siObj, siXYZ
'
' ApplyPath will path-constrain the null to the circle and animate it
' to travel the entire length of the curve. Copy this animation.
'
set oNull1 = GetPrim("Null")
ApplyPath oNull1, oCircle1, 1, 100, 2, False, False
CopyAllAnimation2 oNull1, siAnySource, siAllParam, False
'
' Create a second null, apply a path constraint 
' (no animation), then paste the animation from oNull1
'
set oNull2 = GetPrim("Null")
ApplyCns "Path", oNull2, oCircle2
PasteAllAnimation oNull2
'
' show the constraint relation in top view of viewport A
'
SetValue "Views.ViewA.TopCamera.camvis.*constraint*", True
'
' Play animation to show that it has been copied
'
PlayForwardsFromStart