---

Hallo zusammen,

ich möchte in einer Produktstruktur in den Parts Releatons löschen.

Wie kann ich das entsprechende Part aktivieren? (Blau hinterlegtes Part)
Andernfalls bekomme ich eine Fehlermeldung da ich das Part nicht aktiv habe.

Alternative:
Meine Versuche das Part im neuen Fenster zu öffnen hat nur bedingt zum Ziel geführt, da das schließen nicht funktioniert.

Mit CATIA.ActiveDocument.Close werden nicht alle Fenster geschlossen.

Vieleicht hat jemand hierzu einen Tipp.

Code:

---

Function FuncDelete_Relations(RefDoc As Document, Prod As Product) As Integer
   
    Dim PartProd        'As Part
    Dim oRel            As relations
    Dim oSel            As Selection
    Dim aktiRel        As Relation
    Dim SelDoc          'As Document
   
    '***BESTIMMUNG DES DOKUMENTENTYPES
    If TypeName(RefDoc) = "PartDocument" Then
       
       
        Set PartProd = RefDoc.Part
        Set oRel = RefDoc.Part.relations
        Set oSel = RefDoc.Selection
        Set SelDoc = CATIA.ActiveDocument.Selection
        SelDoc.Add PartProd

        CATIA.StartCommand "Open in New Window"
       
        oSel.Clear
            For Each aktiRel In oRel
                    oSel.Add aktiRel
                    oSel.Delete
                    oSel.Clear
            Next

         
            CATIA.ActiveDocument.Close

       
    ElseIf TypeName(RefDoc) = "ProductDocument" Then 'Produkt
    Exit Function
   
    Else
        MsgBox "Unerwarteter Dokumententyp!", vbExclamation, "DOKUMENT: FEHLER"
    End If

End Function

---

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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

---

Hallo Uwe,

ja die Dokumentenverwaltung im CATIA selbst ist in der Tat etwas Tricky 

Du musst quasy das Bauteil selektieren und dann die gewünschte Workbench aufrufen. Dabei wird automatisch das selektierte Bauteil aktiviert.

Code:

---

   
    WorkBench = "Part Design"
   
    Set TmpPartDoc = tmpnode.ReferenceProduct.Parent
    Set TmpPart = TmpPartDoc.Part

    TmpSelection.Add TmpPart
    If CATIA.GetWorkbenchId <> WorkBench Then               
        CATIA.StartWorkbench (WorkBench)                   
    End If
    TmpSelection.Clear

---

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

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

---

01-07-202014-46-38.jpg 01-07-202015-01-22.jpg

Hallo Rick,

Danke für deinen Code.

Leider funktioniert es noch nicht.
Bekomme immer noch folgende Fehlermeldung. (siehe Bild).

Bin laut Watchfenster in dem gewünschten Part, aber bei dem löschen der Selection läufts in den Fehler.
Wird denn das entsprechende Part im Baum blau beim Wechsel in die Workbench?
Das ist bei mir nicht der Fall.

Code:

---

Function FuncDelete_Relations(RefDoc As Document, Prod As Product) As Integer
 
    Dim PartProd        'As Part
    Dim oRel            As relations
    Dim oSel            As Selection
    Dim aktiRel        As Relation
    Dim SelDoc          'As Document
    Dim Workbench      As String
   

    '***BESTIMMUNG DES DOKUMENTENTYPES
    If TypeName(RefDoc) = "PartDocument" Then
     
     
        Set PartProd = RefDoc.Part
        Set oRel = RefDoc.Part.relations
        Set oSel = RefDoc.Selection
        Set SelDoc = CATIA.ActiveDocument.Selection
        SelDoc.Add PartProd
        Dim Workbench      As String
        Workbench = "Part Design"

        If CATIA.GetWorkbenchId <> Workbench Then
            CATIA.StartWorkbench (Workbench)
        End If
        SelDoc.Clear
     
        oSel.Clear
            For Each aktiRel In oRel
                    oSel.Add aktiRel
                    oSel.Delete
                    oSel.Clear
            Next

       
            'CATIA.ActiveDocument.Close

     
    ElseIf TypeName(RefDoc) = "ProductDocument" Then 'Produkt
    Exit Function
 
    Else
        MsgBox "Unerwarteter Dokumententyp!", vbExclamation, "DOKUMENT: FEHLER"
    End If

End Function

---

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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

---

Hallo Uwe,

bist du sicher, dass die Selektion leer ist? Denn es sollte natürlich nur das Part selektiert sein.

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

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

---

Servus Uwe

Schon mal probiert satt die Relations zu selektieren diese einfach über Remove (Methode des Relations-Objekts) zu löschen?
Zusätzlich gibt es nur eine Selection (und nur auf das aktive Dokument im eigenen Fenster ansprechbar), also dürfte Set oSel = RefDoc.Selection so auch nicht gehen.

Gruß
Bernd

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

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

---

Hallo Rick hallo Bernd

Selection war/ist leer.
habe nun festgestellt das die Workbench immer noch im Assambly ist.

Das mit der Removemethode schaue ich mir mal an.

Danke euch beiden fürs erste.

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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