アップベクターリファレンスとして機能するX3DObjectを設定したり、戻したりします。
'
' This example creates a constraint and sets its upvector reference.
'
NewScene , false
set oRoot = Application.ActiveProject.ActiveScene.Root
set oNull = oRoot.AddNull("ConstrainingNull")
set oNull2 = oRoot.AddNull("UpVectorReference")
set oGrid = oRoot.AddGeometry("Grid","MeshSurface")
set oDirectionCns = oGrid.Kinematics.AddConstraint("Direction", oNull )
oDirectionCns.Parameters("upvct_active").Value = True
set oDirectionCns.UpVectorReference = oNull2
|