---

HI,
ich habe mal wieder ein Problemchen. ich möchter gerne EInzelteile in einer Baugruppe via constraint ausrichten.
constraint anlegen etc pp klappt auch, wird auch in nx angelegt usw.
Jedoch scheint er das constraint irgendwie nicht zu aktualisieren oder so, jedenfalls steht bei "informationen" am schluss ds ganzen immer
"Status              Neu erzeugt"
wo doch stehen sollte:
"Status              Gelöst"
auch wird der solvestatus nicht geändert, obwohl ich das network solve.
jemand ne idee, was ich vergessen habe?

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()

---

den code hab ich analog zum aufgezeichneten jouranl erstellt
Grüße
Hauki

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP