---

Moin Zusammen,

es ist mal wieder soweit, ich brauche Hilfe. Ich glaube, dass die Lösung eigentlich recht trivial ist, aber ich hänge gerade son bisschen in der Luft.

Also ich habe ein Makro, das läuft und funktioniert soweit, basiert allerdings nur auf Parts.

Ich möchte nun, dass vor dem Makrostart ein Fenster kommt mit dem Hinweis, dass nur Parts erlaubt sind oder über Open in new Window gearbeitet wird.  -> das Fenster klappt auch soweit

Das Fenster sollte nun am besten so gestaltet sein, dass es die Möglichkeit [OK] und [Cancel] existiert. Bei OK soll das Makro einfach Fortfahren, wenn jedoch ein Product geöffnet ist, den Code überspringen und beenden. -> Meldung "Öfnnen Sie ein Part"
Wenn Cancel gewählt wird, soll das Makro einfach beendet werden.
Problem ist, in dem Makro habe ich bereits eine If-Schleife, kann ich trotzdem noch eine drum herum legen? Oder funktioniert das dann nicht ?

Für Tipps, Ideen und Lösungen bin ich euch sehr sehr dankbar!!!

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

---

Hallo,

damit sollte es gehen:

Code:

---

If TypeName(CATIA.ActiveDocument) <> "PartDocument" Then
    Answer = MsgBox("The current document isn't a part. Do you want to continue?", vbOKCancel, "Error")
    If Answer = vbCancel Then
        Exit Sub
    Else
        MsgBox ("Please open a part")
    End If
End If

---

[Diese Nachricht wurde von ptit.tom am 03. Mai. 2016 editiert.]

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

---

Vielen Dank!

Wenn ich ein Produkt geöffnet habe, funktioniert das auch soweit. Also ich hab das jetzt mit meinem Code so gemacht:

Code:

---

If TypeName(CATIA.ActiveDocument) <> "PartDocument" Then
    Answer = MsgBox("The current document isn't a part. Do you want to continue?", vbOKCancel, "Error")
    If Answer = vbCancel Then
        Exit Sub
   
'[HIER STEHT MEIN QUELLCODE DAZWISCHEN]

Else
        MsgBox ("Please open a part")
    End If
End If

---

Allerdings wenn ich diesen zusammengesetzten Code nun auf ein Part anwenden möchte, passiert nix mehr, wenn ich das Makro starte!?!?!? Hilfeeee?

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

---

Servus
Du musst den Code auch verstehen und entsprechend deinen Anforderungen anpassen.
Vorschlag (ungetestet)

Code:

---

If TypeName(CATIA.ActiveDocument) <> "PartDocument" Then
    Answer = MsgBox("The current document isn't a part. The macro will be canceled.", OKOnly, "Error")
    Exit Sub
end if

Answer = MsgBox("The current document is a part. Shall the macro be started?", OKCancel, "Warning")
if Answer = vbCancel Then
    Exit Sub
else
 
'[HIER dann dein Code]       
End If

---

Gruß
Bernd

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

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

---

Vielen Dank euch!!
Läuft jetzt alles 

Und entschuldigt, gestern war irgendwie nicht mein Tag 

Letzte Frage:
Wie kann man dieses Thema nun als geklärt kennzeichnen ?

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

---

Mit einem grünen Haken ...

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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