---

Hallo!

ich bin gerade dabei für meine CAD Kollegen ein kleines Makro für SWX zu schreiben und komme bei einer Funktion nicht weiter.
Ist vermutlich witzlos für die Profis hier 

Das Makro schreibt erst ein paar Informationen in die Eigenschaften und soll dann die Datei speichern.
Das klappt auch - solange die Datei schon existiert.

Ist die Datei neu (also Datei -> Neu) und noch nicht gespeichert, soll statt dem Silent Save der normale speichern unter Dialog auf gehen.

diese Funktion rufe ich zum speichern auf:
boolstatus = swModel.Save3(swSaveAsOptions_e.swSaveAsOptions_Silent, swErrors, swWarnings)

Geht das irgendwie, dass man bei fehlschlag den normalen Dialog anzeigt?

Dnake schon mal im Voraus für jede Hilfe 

------------------
Timo

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

---

Ich nutze:

swPart.Save2 False

Speichert im Hintergrund oder öffnet den Speicherndialog. Hab nachgesehen, save3 gibt es noch nicht. (SW2020)

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

---

Ha, so einfach kann es sein!

Danke!
Der code sieht jetzt so aus:

                Dim errs As Long
                Dim warns As Long
               
                If False = swModel.Save3(swSaveAsOptions_e.swSaveAsOptions_Silent, errs, warns) Then
                    Debug.Print "Failed to save " & swModel.GetTitle() & ": " & errs
                    swModel.Save2 (False)
                Else
               
                End If

Er speichert silent, wenn das Modell bereits gespeichert wurde und bringt den Dialog, falls ein Fehler (=nicht gespeichert z.B. neue Datei oder Schreibschutz) auftritt

------------------
Timo

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

---

Ich habe ohne IF einfach save2 genommen. Es funktioniert schon Jahre so.

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

---

Ja klar, ich brauche allerdings die zwei varianten. Das wird auch noch um andere dinge erweitert, wofür ich das If sowieso brauche

------------------
Timo

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