---

Fehlermeldung.jpg

Hallo,

ich brauche dringend ein lösung zu diese Problem:

Bei dieses Makro (siehe weiter unten) muss der Anwender ein Element auswählen. Wählt der Anwender ein Element oder bricht das Makro mit der Taste "ESC" dann wird das Makro beendet und CATIA bekommt wieder die Kontrolle.
Wird aber stat ein Element eine Funktion von der Symbolleiste gewählt dann wird das Makro beendet aber CATIA bekommt keine Kontrolle mehr, d.h. CATIA reagiert auf keine Funktion mehr. Man kann sogar werder Sichern noch beenden.:-((
Erst wenn man das Makro nochmal ausführt und diese Fehlermeldung (siehe Fehlermeldung.jpg) bekommt und auf die Taste "Beenden" klickt bekommt CATIA die volle Kontrolle.

Meine Frage: hat jemand diese Erfahrung schon gemacht, wenn Ja gibt es eine Lösung?
Wie kann man die Kontrolle an CATIA zurück geben?

Makro:
Sub CATMain()
  Dim InputObjectType(0)
  Set Document = CATIA.ActiveDocument
  Set Selection = Document.Selection
  'We propose to the user that he select an edge
  InputObjectType(0) = "TriDimFeatEdge"
  Status = Selection.SelectElement2(InputObjectType, "Select an edge", True)
  If (Status = "cancel") Then Exit Sub
End Sub

Ich bedanke mich schon in voraus für die Hilfe

Ciao
Filippo

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

---

schon mal versucht "Cancel" zu schreiben?
Was steht denn in der Variablen? (msgbox)

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

---

Hallo Stoffel,

es hat leider nichts mit "Cancel" oder "cancel" zu tun.
Trotzdem Danke.

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

---

Hallo Filippo,

versuchs mal mit:

  Dim Status As Integer

und

  If Status = "2" Then Exit Sub

mfg,
Lusilnie

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

---

Hallo Lusilnie,

man kann nicht Status als Integer definieren und dann eine Zeichenkette in die Variable aufnehmen. Es geht nicht!

Ciao
Filippo

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

---

Hallo V5-Gemeinde,

vielen Dank für die Hilfe.
Ich weiss jetzt woran es liegt. Dassault hat wieder an der Comm-schnittstelle etwas geändert.
Ich habe das gleiche Makro in Release 12 ausgeführt und es lauft einwandfrei!
Ab Release 14 lauft es nicht mehr stabil bzw. CATIA bekommt, nach eine falsche Eingabe, nicht mehr die volle Kontrolle und sturzt ab.

Ciao
Filippo

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

---

Geht sowas nicht mit:

If Status <> "Normal" then
Exit Sub
End if

????

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

---

Hallo Filippo,

entschuldige bitte, war die Abfrage fuer MsgBox!

Habe Dein Scenario nochmal durchgespielt und muss "Stoffel" recht geben:  Es funktioniert mit "Cancel" und bringt einen Fehler mit "cancel"!

Meine Test-Umgebungen: V5R14SP3HF22 und V5R14SP3HF26

mfg,
Lusilnie

PS: Bei V5R14 (ohne SP und HF) funktioniert sowohl "Cancel" als auch "cancel" !!!

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

---

Hallo prosper,
Hallo Lusilnie,

vielen Dank für Hilfe, aber es liegt wirklich nicht an die Befehlzeile <If (Status = "cancel") Then Exit Sub> denn ich fange diese Abfrage eigendlich so: <If LCase(Status) = "cancel" Then Exit Sub> .
Damit ist es egal ob der inhalt von "Status" klein oder gross geschrieben ist.

Ciao
Filippo

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