---

Hallo Zusammen,

ich habe ein Produkt der Besteht aus mehrere Unterprodukten und Parts.

Ich möchte alle Bohrungen und Rechteckmuster in diesem Produkt deaktivieren.

Ich habe es mal so versucht:

Dim selection1 As Selection
Set selection1 = partDocument1.Selection
selection1.Search "(CATPrtSearch.SimpleHole + (CATPrtSearch.RectPattern + CATGmoSearch.RectPattern)),all"

For iI = 1 To CATIA.ActiveDocument.Selection.Count
CATIA.ActiveDocument.Selection.Item(iI).Value.Deactivate
Next

------------------
Gruss BADU

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

---

Hallo Miteinander,

ich muss das Thema noch mal aus der Versegnung holen. Gibts dafür wirklich keine Lösung. Ich hätte nämlich das selbe Anliegen.

Grüße

Jürgen

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

---

Ich denke schon, dass das geht.

Du wirst nur die Produktstruktur durchgehen müssen, dann würde ich jedes einzelne Part im PartDesign öffnen und die Suche nur innerhalb des jeweiligen Parts starten und für jedes Element einzeln, also erst Hole und dann Pattern, dann die Elemente deaktivieren.

------------------
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