---

Hallo zusammen,

ich versuche mittels VBA Assembly-Constraints zu bearbeiten. Genauer: Ich habe Fixierungen (Fix Together), deren Parts ich verändern möchte.

Hier mal der Code:

Code:

---

Dim document As document
Dim prod As Product
Dim documents1 As Documents
Dim i As Integer
Dim constr As fixtogether
Dim rohprod As Product
Dim rohbaufix As String

rohbaufix = "KIN_L2_7"    'Erste Zeichen des Namens des neuen Parts

Set documents1 = CATIA.Documents

i = 1

Do Until i > documents1.Count
    Set document = documents1.Item(i)

    If Left(document.name, 15) = "STRICHKINEMATIK" Then  'ist das Produkt, indem sich die Constraints und die Parts befinden

        Set prod = document.Product 

    End If

    If Left(document.name, 8) = rohbaufix Then 'hier wird das neue Part gespeichert

        Set rohprod = document.Product
     
    End If

    i = i + 1
Loop

For Each constr In prod.Connections("CATIAFixTogethers")

    If constr.name = "Rohbau" Then
       
        constr.RemoveProduct (2)  'diese Zeile funktioniert noch. Das zweite Element des Constraints wird entfernt.

        constr.AddProduct rohprod 'hier bricht er ab - Run-time error'-2147467259(80004005) Method 'SetImpl' of object 'Fixtogether' failed
       
    End If
   
Next

---

Ich suche also in meinem Produkt nach einem Part mit einem bestimmten Namen. Dieses soll dann anstatt des Elements 2 im Constraint gespeichert werden.

Das Komische ist, die Funktion .addproduct kennt er, wenn man ihm allerdings ein Produkt liefert, funktioniert es nicht. Auffällig dabei ist natürlich, dass er ein Element "Product" benötigt, da ja eigentlich CATParts herangezogen werden. Aber die Deklaration 'Set rohprod = document.Product' funktioniert einwandfrei...

Bei der Onlinesuche nach dem Fehler habe ich leider nichts hilfreiches gefunden.

Ich hoffe ich konnte mich klar ausdrücken. Vielen Dank schonmal

MfG Robert

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

---

Servus
Du musst auf das Exemplar des entsprechende Parts/Products zugreifen und nicht auf das Dokument. zB

Code:

---

Set rohprod = prod.products.item("Rohbau.1") 'bzw item(3)

---

dann solte es klappen

Gruß
Bernd

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

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

---

Genau da war das Problem!

Vielen Dank!

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

---

hallo,

ich will alle Teile in Assy fixieren.
warum funktioniert nicht?

Sub CATMain()

Set productDocument1 = CATIA.ActiveDocument

Set selection1 = productDocument1.Selection

selection1.Search "Type=*,all"

Set product1 = productDocument1.Product

Set constraints1 = product1.Connections("CATIAConstraints")

Dim S

Dim Root as Product
Set Root=Docs.Add(Product").Product
S= Root.PartNumber
Set reference1 = product1.CreateReferenceFromName(S)

Set constraint1 = constraints1.AddMonoEltCst(catCstTypeReference, reference1)

End Sub

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