'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