---

Hallo Experten,

folgendes Problem konnte ich trotz Dr. Google nicht lösen.

Ich möchte, dass bei folgendem kleinen Script der StartCommand zuerst ausgeführt wird und dann die MsgBox erscheint.

Wenn ich das im VB Editor (Alt + F11) mit PLAY laufen lasse, dann funktioniert das auch einwandfrei.

Nutze ich selbiges Makro aber nun direkt in CATIA (z.B. als eingebundenes Icon) bzw. klicke auf "Run", so kommt zuerst die MsgBox bzw. die zusätzliche Pause. Erst bei Abschluss des Makros (also beim OK-Klick der MsgBox) wird dann der StartCommand ausgeführt.

Kann mir hier jemand helfen? Danke!

Code:

---

Sub CATMain()

'erst StartCommand ausführen
'---------------------------
CATIA.StartCommand ("fit all in")

'auch Pause hat keinen Einfluss
'------------------------------
Dim Start As Single
Start = Timer
     
Do While Timer < Start + 2
  DoEvents
Loop

'MsgBox soll erst erscheinen, wenn StartCommand ausgeführt wurde
'---------------------------------------------------------------
MsgBox "User prüft, ob Fenster tatsächlich eingepasst worden ist.."

End Sub

---

Danke!
Steve

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

---

Hi Steve,

kommt bei mir praktisch zeitgleich.

Probier mal folgendes:

Code:

---

Sub catmain()
  CATIA.StartCommand "fit all in"
  CATIA.RefreshDisplay = True
  MsgBox "done."
End Sub

---

Tschau,
Joe

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

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

---

Hey Joe!

Vielen Dank!

Das "refresh display" ist die Lösung!
Dies funktioniert dann auch mit den anderen StartCommands.

Vielen Dank!
Steve

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

---

Hi Steve,

hätt'st auch hier nachlesen können:

http://catia2.cad.de/index.php/de/tipps-tricks/programmierung/297-dialog-mit-startcommand-oeffnen

Tschau,
Joe

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

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