---

Hallo zusammen,

ich suche nach einer Möglichkeit wie ich ein constraint anklicken und nur die beiden Bauteile, auf die sich der constraint bezieht, im show zu lassen. Alle anderen Bauteile sollen ins noshow.

Eine erste Idee habe ich hier gefunden. http://ww3.cad.de/foren/ubb/Forum137/HTML/001343.shtml#000000

Leider schaffe ich es nicht die Bauteile zu isolieren.
Wer hat eine Idee wie das gehen könnte?

Vielen Dank schon mal

Georg

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

---

Servus
Mögliche Vorgehensweise:
- Constrain selektieren
- alle Prodcts/Parts ausblenden
- Referenz der Constrains einlesen (über GetConstraintElement)
- Exemplarname aus Displyname extrahieren
- beide Parts/Products selektieren und einblenden
Anbei ein Beispiel (Constrain-Name "hart"gecoded, keine Fehlerbehandlung) gescheiben in CATvba:

Code:

---

Sub CatMain()

Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument

Dim product1 As Product
Set product1 = productDocument1.Product

'Alle ausblenden
Dim oProduct As Product
Dim oSel As Selection
Set oSel = productDocument1.Selection

For Each oProduct In product1.Products
    oSel.Clear
    oSel.Add oProduct
    oSel.VisProperties.SetShow catVisPropertyNoShowAttr

    oSel.Clear
Next

'Constrain einlesen

Dim constraints1 As Constraints
Set constraints1 = product1.Connections("CATIAConstraints")

Dim constraint1 As Constraint
Set constraint1 = constraints1.Item("Kongruenz .1")

'Reference auslesen
Dim reference1 As reference
Set reference1 = constraint1.GetConstraintElement(1)

Dim reference2 As reference
Set reference2 = constraint1.GetConstraintElement(2)

'Exemplarnamen extrahieren und selektieren

Dim sArray() As String

sArray = Split(reference1.DisplayName, "/")

oSel.Add product1.Products.Item(sArray(1))

sArray = Split(reference2.DisplayName, "/")

oSel.Add product1.Products.Item(sArray(1))

oSel.VisProperties.SetShow catVisPropertyShowAttr

End Sub

---

Gruß
Bernd

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

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

---

Hallo Bernd,

vielen Dank für Deine Hilfe. Werde es heute testen.
Sonnige Grüße
Georg

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

---

Hallo Bernd,

ich bin erst jetzt zum Testen gekommen. Das Programm bleibt hier hängen:

oSel.Add product1.Products.Item(sArray(1))

An was könnte das liegen?

Vielen Dank

Heorg

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

---

Servus
Gibt es bei dir die Bedingung "Kongurenz .1"? Hier muss logischerweise noch eine Selektion eingebaut werden.

Gruß
Bernd

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

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

---

Eine Selektion habe ich eingebaut. Vorsichtshalber habe ich auch mal den Namen direkt eingefügt. Leider bleibt es an der gleichen Stelle hängen.

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

---

Servus
Lass dir mal die Namen der Referenzen (zB MsgBox reference1.DisplayName) ausgeben. Kommt da mindesten ein "/" vor?

Gruß
Bernd

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

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

---

Hallo Bernd,

kann ich leider erst morgen testen.

Georg

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

---

Hallo Bernd,

den constraint selektiere ich so:

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

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