Code:
Dim thesession As Session = Session.GetSession
Dim componentPositioner1 As Positioning.ComponentPositioner componentPositioner1 = thesession.Parts.Work.ComponentAssembly.Positioner
componentPositioner1.ClearNetwork()
componentPositioner1.BeginAssemblyConstraints()
Dim network1 As Positioning.Network
network1 = componentPositioner1.EstablishNetwork()
network1.DisplayComponent = Nothing
network1.MoveObjectsState = True
Dim constraint1 As Positioning.ComponentConstraint
constraint1 = CType(componentPositioner1.CreateConstraint(), Positioning.ComponentConstraint)
Dim ComponentConstraint1 As Positioning.ComponentConstraint
ComponentConstraint1 = CType(constraint1, Positioning.ComponentConstraint)
ComponentConstraint1.ConstraintType = Positioning.Constraint.Type.Distance
Dim face1 As Features.DatumPlaneFeature = CType(obj1, Features.DatumPlaneFeature)
Dim constraintReference1 As Positioning.ConstraintReference
constraintReference1 = ComponentConstraint1.CreateConstraintReference(comp1, face1, False, False, False)
'Dim face2 As Face = CType(obj2, Face)
Dim face2 As Features.DatumPlaneFeature = CType(obj2, Features.DatumPlaneFeature)
Dim constraintReference2 As Positioning.ConstraintReference
constraintReference2 = ComponentConstraint1.CreateConstraintReference(comp2, face2, False, False, False)
Dim expression1 As Expression
expression1 = ComponentConstraint1.Expression
expression1.RightHandSide = drehwinkel '"11"
network1.Solve()
network1.ResetDisplay()
network1.ApplyToModel()
componentPositioner1.ClearNetwork()
componentPositioner1.EndAssemblyConstraints()