アップベクターリファレンスとして機能するX3DObjectオブジェクトを設定したり、戻したりします。アップベクターリファレンスを削除するには、UpVectorReference プロパティをNothing に設定します。
set oRoot = application.activeproject.activescene.root
set oNull = oRoot.AddNull("UpVectorReference")
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
set oJoint.UpVectorReference = oNull
oJoint.parameters("resplane").value = siUpVector
|