---

Hallo,

ich bin im Produkt und durchlaufe mit einer Schleife die Bedingungen, über die die Parts zueinander Positioniert wurden.

Was ich möchte ist dass mir mein Makro zu einer jeden Bedingung sagt, zwischen welchen beiden Referenzelementen sie gilt (z.B. Offset von 30mm zwischen Part1 und Part2).

Hier mein Code:

Sub CATMain()

Set productDocument1 = CATIA.ActiveDocument
Set product1 = productDocument1.Product
Set constraints1 = product1.Connections("CATIAConstraints")

for i = 1 to constraints1.count
' Name des Ersten Constraint-Elementes
msgbox constraints1.item(i).GetConstraintElement(1).name

' Names des Elementes, auf dem sich der erste Constraint bezieht (z.B. Part1)
msgbox constraints1.item(i). ???

End sub

Weis da jemand mit welcher Methode ich auf den Namen zugreifen kann? Vielleicht mit mit
constraints1.item(i).GetConstraintElement(1).irgendwas???

Danke schon mal für eure Zuschriften!

------------------
Es gibt nichts langweiligeres als ein vollständiges, stabil laufendes Catia...

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

---

Ein Beispiel sagt mehr als tausend Worte:

' **************************************************
' * VBA Makro
' * Version        0.9
' * Beispiel        Makro zum Anzeigen von Bedingungen
' * Geschreiben von Carl Tenschert
' * Datum          07.09.2005
' * System          Win 2K Catia V5 R12 Sp 5
' **************************************************

Sub CATMain()
Dim myProductDocument As ProductDocument
Set myProductDocument = CATIA.ActiveDocument
Dim myProduct As Product
Set myProduct = myProductDocument.Product
Dim myConstraints As Constraints
Set myConstraints = myProduct.Connections("CATIAConstraints")
Dim myConstraint As Constraint
For i = 1 To myConstraints.Count
    Set myConstraint = myConstraints.Item(i)
        Select Case myConstraint.ReferenceType
            Case catCstRefTypeFixInSpace ' = 1
                MsgBox ("Im Raum Fixiert " & myConstraint.GetConstraintElement(1).DisplayName)
            Case catCstRefTypeRelative ' = 0
                Select Case myConstraint.Type
                    Case catCstTypeOn ' = 2
                        MsgBox ("Kongruenz zwischen " & myConstraint.GetConstraintElement(1).DisplayName & " und " & myConstraint.GetConstraintElement(2).DisplayName)
                    Case catCstTypeDistance ' = 1
                        MsgBox ("Offset zwischen " & myConstraint.GetConstraintElement(1).DisplayName & " und " & myConstraint.GetConstraintElement(2).DisplayName)
                End Select
        End Select
Next
End Sub
' ************* Ende *****************
Fertige Makros Sammle ich übrigends ;-)

------------------
Mit freundlichem Gruß von Carl Tenschert

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

---

Oh, danke für dass Beispiel!

Und Sorry dafür dass ich erst jetzt wieder drauf gestoßen bin aber mein Prob hatte ne Auszeit ;-)

Danke nochmal für die Hilfe!

------------------
Es gibt nichts langweiligeres als ein vollständiges, stabil laufendes Catia...

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

---

Hey!

Und gibt es auch eine Möglichkeit die geometrischen Elemente, wie Flächen oder Linien, die an dem constraint beteiligt sind, auszulesen? Also nicht nur die Parts, sondern auch die Flächen oder Linien dieser Parts?

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

---

Der Vollständigkeit halber, da ich in diesem Bereich auch suche bin ich auf diesen Beitrag gestoßen:
https://stackoverflow.com/questions/30383561/finding-components-of-constraint-in-catia-via-macro

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