'VBScript example

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

LogMessage typename(oConstraints)

for each oCns in oConstraints

	LogMessage oCns.Name

next