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