---

Hallo,

ich erzeuge per Makro eine Section durch mein Part, welches in einem Produkt ist. Ich will nachdem ich sie erzeugt habe ( und ein paar zwischenschritte waren..) wieder löschen. Mein derzeitiger Lösungsweg ist folgender....
ich benenne die Sections beim erstellen mit den Präfix "sXs_" beim löschen habe ich folgenden Code

Code:

---

Set Selektion = CATIA.ActiveDocument.Selection
    Selektion.Clear
    Selektion.Search "Name=sXs_*;all"
    If Selektion.Count > 0 Then
            Selektion.Delete
    End If

---

der code funktioniert auch soweit. alle Sections werden gelöscht...ABER..nur wenn ich vorher die Sections im Baum aktive geschaltet habe. wenn ich quasi doppelklick auf sections habe, werden sie gelöscht. wenn mein part allerdings aktiv ist, kann der die sections nicht löschen.
Weiß jemand wie ich meine Selektion aktive schalte damit ich sie löschen kann? Oder hat jemand eine andere art die sections zu löschen?

Mfg

Sepp

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

---

Servus
Erstellst du eine Section im Product (DMU)?
Wo willst du was löschen, bzw ist das auch das aktive Dokument? (ggf wäre mal ein Screenshot des Baumes sinnvoll)

Gruß
Bernd

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

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

---

Anhang.jpg

Hallo

ich habe ein Product mit 3 Unterprodukten/Parts. In Part1 ist ein Körper welches ich schneiden will. Aktiv ist meistens Part2 in welchem ich Geometrien erzeuge. Ich benutze hierfür die Workbench GSD. meine Sections werden Standardmäßig in applications/Sections gespeichert (hier "test").

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

---

Hallo!

Code:

---

Sub CATMain()

Dim oprod As Product
Set oprod = CATIA.ActiveDocument.Product

Set TheSections = oprod.GetTechnologicalObject("Sections")
TheSections.Remove ("Test")

End Sub

---

------------------
Mit freundlichen Grüßen,
JuPaV

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

---

Hallo

Zitat:

---

wenn mein part allerdings aktiv ist, kann der die sections nicht löschen.

---

Das ist auch normal. Versuch mal die Section von Hand zu löschen. Geht auch nicht wenn ein Part aktiv ist.
Ich würde vor der Selection des Produkt in dem die Section erzeugt wurde aktivieren. Dann funzt es.

Gruß Uwe

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

---

Hallo

vielen Dank. So gehts!!! Ich les die Namen aus der Selektion aus und lösch sie dann mit deinem Tipp.

Vielen Dank:-)

Code:

---

Set Selektion = CATIA.ActiveDocument.Selection
    Selektion.Clear
    Selektion.Search "Name=*sXs_*;all"
    Dim oprod As Product
    Set oprod = CATIA.ActiveDocument.Product
    Set TheSections = oprod.GetTechnologicalObject("Sections")
    For i = 1 To Selektion.Count
        TheSections.Remove (Selektion.Item(i).Value.Name)
    Next

---

[Diese Nachricht wurde von pfannensepp am 18. Jan. 2012 editiert.]

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