---

Drive_Constraint.zip

Hallo zusammen,

ich versuche gerade ein kleine Programm zu schreiben, mit welchem ich einen Constraint anklicken und den Wert ändern kann.

Das Programm funktioniert in kleinen Baugruppen. In gr. Baugruppen geht es leider nicht. An was liegt das?

Vielen Dank

Georg

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

---

Hallo Georg,

leider kann man nicht mehr auf die *.zip Datei zugreifen weil du sie vom Server gelöscht hast. Ich hätte aber mal eine Frage dazu. In welcher WB bist du überhaupt. Es scheint mir als bist du im Assembly Design. Dort kannst du doch einen Constaint einfach mit einem Doppelklick bearbeiten (Wert ändern). Oder bist du im Drafting und du willst das du ein Maß anklickst, und anschließend dieses Maß automatisch auf Driven gesetzt wird und du den Wert ändern kannst 

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Hallo Daniel,

ich habe die Constraints im Assembly Design. Mir geht es darum schnell verschiedene Bewegungen ausprobieren zu können.

Der Ablauf sollte wie folgt sein:

- Constraint selektieren
- Wert eingeben
- Modell wird aktualisiert

In der erweiterten Version soll es wie im DMU einen "Player" geben indem ein Start und Stop-Wert und Schrittweiten eingegeben werden können - mit Loop-Funktion.

Leider ging das Programm nicht immer. Vielleicht hast Du eine Idee wie man das lösen könnte.

Vielen Dank

Georg

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

---

Servus
Poste doch mal dein Scipt (als Export aus VBA). Die VBA-Datei konnte ich nicht öffnen.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Mache ich gerne. Leider geht das erst morgen wieder.

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

---

Zitat:

---

Original erstellt von GeorgK:
Hallo Daniel,

ich habe die Constraints im Assembly Design. Mir geht es darum schnell verschiedene Bewegungen ausprobieren zu können.

Der Ablauf sollte wie folgt sein:

- Constraint selektieren
- Wert eingeben
- Modell wird aktualisiert

In der erweiterten Version soll es wie im DMU einen "Player" geben indem ein Start und Stop-Wert und Schrittweiten eingegeben werden können - mit Loop-Funktion.

Leider ging das Programm nicht immer. Vielleicht hast Du eine Idee wie man das lösen könnte.

Vielen Dank

Georg

---

Hallo  ,

also eigentlich sollte das von der Idee her schon funktionieren. Ich sehe jedoch ein Riesen Problem bei der Performance. Falls du größere Baugruppen hast dann brauchst der Player sehr lange. Er muss ja nach jedem Wert Updaten (und das kann bekanntlich sein Zeit dauern). Hier ist auch nichts zu optimieren da die Zeit die das Update in Anspruch nimmt durch interne CATIA Routinen bestimmt wird. Stell mal das Script ein dann helfe ich dir gerne 

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Hier nun der Code:

Private Sub btn_select_Click()

    Me.Hide
    Dim oSel

    Dim sFilter(0)

    sFilter(0) = "Constraint"
   

    Dim oDoc As ProductDocument

    Set oDoc = CATIA.ActiveDocument

    Set oSel = oDoc.Selection

    oSel.Clear

    If oSel.SelectElement2(sFilter, "Constraint auswählen", False) = "Normal" Then

        Dim oCon As Constraint

        Set oCon = oSel.Item2(1).Value

        'Call MsgBox("Name der Constraint:" + oCon.Name, vbInformation)
        txtbx_constraint = oCon.Name
       
    End If
    Me.Show
End Sub

Private Sub btn_start_Click()
            Dim productDocument1 As Document
            Set productDocument1 = CATIA.ActiveDocument
           
            Dim product1 As Product
            Set product1 = productDocument1.Product
           
            Set product1 = product1.ReferenceProduct
           
            Dim constraints1 'As Collection
            Set constraints1 = product1.Connections("CATIAConstraints")
           
            Dim constraint1 As Constraint
            Set constraint1 = constraints1.Item(txtbx_constraint.Value)
           
            Dim length1 As Dimension
            Set length1 = constraint1.Dimension
            length1.Value = txtbx_value.Value
                               
                     
            'constraint1.Orientation = catCstOrientOpposite
            product1.Update
           
End Sub

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

---

Kann mir keiner helfen? Oder tritt das Problem nur bei mir auf?

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