---

Hallo Zusammen!
Ich habe keine Ahnung von Makros, brauche aber dringend ein Makro, das alle Geometrischen Sets in einem CATPart löscht.
Ich habe schon mit der Makroaufzeichnung Funktion mal Folgendes generiert:

Code:

---

Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = partDocument1.Selection

selection1.Search "CATPrtSearch.OpenBodyFeature,all"

Dim selection2 As Selection
Set selection2 = partDocument1.Selection

selection2.Search "CATPrtSearch.OpenBodyFeature,all"

Set partDocument1 = CATIA.ActiveDocument

Dim selection3 As Selection
Set selection3 = partDocument1.Selection

selection3.Clear

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("GEOEFFNETE_STELLUNG.1\5881333__0179__DRUCKSTUECK.1\Konstruktionselemente")

selection3.Add hybridBody1

Dim hybridBodies2 As HybridBodies
Set hybridBodies2 = hybridBody1.HybridBodies

Dim hybridBody2 As HybridBody
Set hybridBody2 = hybridBodies2.Item("7376585 LI VERSTAERKUNG B-SAEULE")

selection3.Add hybridBody2

Dim hybridBody3 As HybridBody
Set hybridBody3 = hybridBodies1.Item("5881333__0179__DRUCKSTUECK.1\Konstruktionselemente")

selection3.Add hybridBody3

Dim hybridBodies3 As HybridBodies
Set hybridBodies3 = hybridBody3.HybridBodies

Dim hybridBody4 As HybridBody
Set hybridBody4 = hybridBodies3.Item("7376585 LI VERSTAERKUNG B-SAEULE")

selection3.Add hybridBody4

Dim hybridBody5 As HybridBody
Set hybridBody5 = hybridBodies1.Item("5881333__0181__AUFLAGE.1\Konstruktionselemente")

selection3.Add hybridBody5

Dim hybridBodies4 As HybridBodies
Set hybridBodies4 = hybridBody5.HybridBodies

Dim hybridBody6 As HybridBody
Set hybridBody6 = hybridBodies4.Item("PT_NULLPUNKT")

selection3.Add hybridBody6

Dim hybridBody7 As HybridBody
Set hybridBody7 = hybridBodies4.Item("7376585 LI VERSTAERKUNG B-SAEULE")

selection3.Add hybridBody7

Dim hybridBody8 As HybridBody
Set hybridBody8 = hybridBodies1.Item("5881365__0201__FRAESTEIL.1\Weitergabeelemente")

selection3.Add hybridBody8

selection3.Delete

End Sub

---

Damit wird es aber in einem konkreten CATPart gesucht.
Wie kann man diese Code ändert so, dass es überall funktioniert?
Vielen Dank im Voraus!

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

---

Mach es mit einem Selection.Search()

Das lässt sich auch gut mit dem Macrorecorder unter Erweitert aufzeichnen.

Dann brauchste auch nichts weiter, wie Schleifen, dazu programmieren.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

Danke für eine schnelle Antwort, aber ich finde keine "Erweitert" unter Makroaufzeichnung 

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

---

Servus
Probiere es mal so:

Code:

---

Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim selection1 As Object
Set selection1 = partDocument1.Selection

selection1.Search "CATPrtSearch.OpenBodyFeature,all"

selection1.Delete

End Sub

---

Gruß
Bernd

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

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

---

TOP!
Funktioniert einwandfrei!
Vielen Dank!

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

---

Ich meinte das Erweitert in der Selection.Search()

Also der CATIA-Suche. Da kannst Du die Elemente angeben.

Bernd hat Dir das Resultat aber bereits geliefert.

Wollte Dir nur Fischen beibringen, statt Dir gleich den Fisch zu geben. ;-)

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

[Diese Nachricht wurde von HoBLila am 11. Mrz. 2015 editiert.]

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