---

Hallo Profi- Programmierer hier ist wider einmal ZORG !

Kurze Frage ?
Wie kann ich mein Makro nach (Sichern unter) so lange stoppen bis die Speicherung fertig ist?
Derzeit läuft mein Makro im Hintergrund weiter, und die Speicherung erfolgt erst am Makro -Ende.
Aber ich benötige die Speicherung direkt nach dem Befehlsaufruf, da ich anschließend mit dem Pfad weiterarbeite.

Dim version, makroname
Sub CATMain()
version = " V1.0 "
makroname = " Speicherkontrolle "
'''********************************
'Speicherkontrolle
On Error Resume Next
Dim Pfad1 As String
Pfad1 = CATIA.ActiveDocument.Path
If (Right(Pfad1, 10) = "") Then
MsgBox "Dokument ist nicht gespeichert, jetzt speichern!", 4, makroname + " " + version
CATIA.StartCommand ("Sichern unter")
End If
'In den Hintergrund wecheln
Set oDraw = CATIA.ActiveDocument
Set oSheets = oDraw.Sheets
Set oSheet = oSheets.ActiveSheet
oSheet.Activate
Set oViews = oSheet.Views
oSheet.Views.Item(2).Activate
Set oView = oViews.Item(2)
oView.Activate
' Zurück zur Arbeitsansicht [ Item (2) mit Item (1) ersetzen ]
'******************************************************
Nocheinmahl  DANKE !
Mit freundlichen Grüßen
ZORG.

------------------
MFG
ZORG

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

---

Hallo Zorg
da du StartComand arbeitest ist es klar das dein Script nicht wartet bis der Vorgang abgeschlossen ist. StartCommand erzeugt einen asyncronen Prozess. Arbeite doch lieber mit der SaveAs - Methode des Document Objektes.

------------------
Grüße TStone
   "Respektiere die Macht der Worte, wähle sie mit Bedacht!"

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

---

Danke für die rasche Antworf TStone !

Mfg
ZORG

------------------
MFG
ZORG

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