Returns an X3DObjectCollection consisting of
each 'constraining' X3DObject.
A constraint mediate between 'constraining' object(s) and the
'constrained' object. It is the constrained object which "owns" the
constraint: you can access the constraint via the constrained
object's kinematics. For more information, see "Constraint Presets"
in the Softimage user guide.
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
|