各コンストレイニングX3DObjectから構成されるX3DObjectCollectionを戻します。
コンストレイントは、「コンストレイニング」オブジェクトおよび「被コンストレイント」オブジェクトを仲介します。コンストレイントを「所有」するのは、拘束される側の被コンストレイントオブジェクトです。コンストレイントは、被コンストレイントオブジェクトのキネマティクスからアクセスできます。詳細については、Softimage
ユーザ ガイドの「コンストレイント プリセット」を参照してください。
NewScene , false
Dim oRoot, oNull, oSphere
set oRoot = Application.ActiveProject.ActiveScene.Root
set oNull = oRoot.AddNull
set oSphere = oRoot.AddGeometry("Sphere","MeshSurface")
oSphere.Kinematics.AddConstraint "Direction", oNull
oSphere.Kinematics.AddConstraint "Direction", oNull
oSphere.Kinematics.AddConstraint "Direction", oNull
set oConstraints = oSphere.Kinematics.Constraints
Application.LogMessage typename(oConstraints)
for each oCns in oConstraints
Application.LogMessage oCns.Name & ", Constrained : " & oCns.Constrained
Application.LogMessage "Constraining : "
for each oConstraining in oCns.Constraining
Application.LogMessage oConstraining
next
next
' Expected results:
'INFO : ConstraintCollection
'INFO : Direction Cns, Constrained : sphere
'INFO : Constraining :
'INFO : null
'INFO : Direction Cns, Constrained : sphere
'INFO : Constraining :
'INFO : null
'INFO : Direction Cns, Constrained : sphere
'INFO : Constraining :
'INFO : null
|