set oRoot = application.activeproject.activescene.root
set oNull1 = oRoot.AddNull("UpVectorReference")
set oNull2 = oRoot.AddNull("PreferredAxisReference")
oRootPos = array(0,10,0)
oEffPos = array(10,10,0)
oNormalAxis = array(1,1,1)
set oChainRoot = oRoot.Add3DChain( oRootPos, oEffPos, oNormalAxis )
set oJoint = oChainRoot.Bones(0).Joint
oJoint.parameters("resplane").value = siUpVector
set oJoint.UpVectorReference = oNull1
set oJoint.PreferredAxisReference = oNull2