set oRoot = ActiveProject.ActiveScene.Root
set oNull = oRoot.AddNull
set oChainRoot = oRoot.Add3DChain
set oChainEffector = oChainRoot.Effector
set oJoint = oChainEffector.Joint
' set preferred axis
set oJoint.PreferredAxisReference = oNull