'The following code illustrates how to create an axis aligned constraint 

	' and set its upvector reference. 

set oRoot = Application.ActiveProject.ActiveScene.Root

set oNull = oRoot.AddNull

'    set oNull.Kinematics.Local.Translate -6.546, 4.815, -0.482

set oNull2 = oRoot.AddNull

'    set oNull2.Kinematics.Local.Translate 6.624, 5.907, -0.591

set oGrid = oRoot.AddGeometry("Grid","MeshSurface")

set oDirectionCns = oGrid.Kinematics.AddConstraint("Direction", oNull )

set oDirectionCns.UpVectorReference = oNull2