Sets or returns the X3DObject object acting as the preferred axis reference. You can remove the preferred axis reference by setting the property to Nothing.
set oRoot = application.activeproject.activescene.root
set oNull = 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 = siPreferredAxis
set oJoint.PreferredAxisReference = oNull
|