'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