プリファードアクシスリファレンスとして機能するX3DObjectオブジェクトを設定したり、戻したりします。優先軸リファレンスを削除する場合は、PreferredAxisReference プロパティを 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
|