---

selection.jpg

Hallo zusammen,

Gibt es eine Möglichkeit das Fenster von der Fehlermeldung zu unterdrücken, das Makro welches ich entwickelt habe soll im Product laufen, Wird das Makro aber in einem Unterpart gestartet soll es eine Fehlermeldung an den benutzer haben, dass das Product aktiv gesetzt werden soll. Wie kann ich das Fenster(siehe Bild) unterdücken?

Code:

---

On Error Resume Next

Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = productDocument1.Selection

selection1.Add oCopyObject_dicke_part1

selection1.Copy

If Err.Number <> 0 Then

Err.Clear
product_aktiv = False
Fehler_beheben

Else

product_aktiv = True
End If

---

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

---

Servus

Was meinst du im "Unterpart gestartet"?
Könntest du nicht den Dokumententyp oder die aktive Workbench auswerten?

Gruß
Bernd

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

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

---

CATPart mit Generative Shape Design

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

---

Also kannst du ja den Dokumententyp und die Workbench auswerten und musst nicht mit unbedingt das Makro in einen Fehler laufen lassen.
Mein Tipp: On Error Resume next nur sehr sparsam und bewusst verwenden

Gruß
Bernd

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

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