このオブジェクトの親をコンストレイニングする各 Constraint オブジェクトを含む ConstraintCollection を戻します。
// get accessor ConstraintCollection rtn = Kinematics.Constraints; |
Dim oRoot, oNull, oSphere
set oRoot = Application.ActiveProject.ActiveScene.Root
set oNull = oRoot.AddNull
set oSphere = oRoot.AddGeometry("Sphere","MeshSurface")
oSphere.Kinematics.AddConstraint "Position", oNull, False, Array(0,45.0,90.0)
oSphere.Kinematics.AddConstraint "Direction", oNull
logmessage "Number of constraints on oSphere: " & oSphere.Kinematics.Constraints.Count
for each cns in oSphere.Kinematics.Constraints
logmessage "oSphere's constraint: " & cns.FullName
next |