Makro "Speichern"

Macro
1

Hallo

Es ist sehr einfach, aber ich kann kein Makro erstellen, um ein Dokument zu speichern.

Speichern Sie einfach mit dem gleichen^me-Namen, am selben Ort.

Hat jemand die Lösung?

Vielen Dank im Voraus.

2

vielleicht mit "swSaveAsCurrentVersion"? aber ich weiß nicht, wie man programmiert. Wie integriere ich es in mein Makro?

3

Hallo

aus der API-Hilfe

This example shows how to save a file.
'-----------------------------------------------------------------
' Preconditions:
' 1. Open a model.
' 2. Open the Immediate window.
'
' Postconditions:
' 1. Zooms to fit the model in the graphics area.
' 2. Saves the model.
' 3. Examine the graphics area and Immediate window.
'------------------------------------------------------------------
Option Explicit

    Dim swApp               As SldWorks.SldWorks
     Dim swModel             As SldWorks.ModelDoc2
     Dim boolstatus          As Boolean
     Dim lErrors             As Long
     Dim lWarnings           As Long

Sub main()

    Set swApp = Application.SldWorks
     Set swModel = swApp.ActiveDoc
     swApp.Visible = True
     

    ' Make a change
     swModel.ViewZoomtofit2
     

    boolstatus = swModel.Save3(swSaveAsOptions_Silent, lErrors, lWarnings)
     

    ' Errors
     Debug.Print ("Errors as defined in swFileSaveError_e: " & lErrors)
     

    ' Warnings
     Debug.Print ("Warnings as defined in swFileSaveWarning_e: " & lWarnings)

End Sub

 

1 „Gefällt mir“
4

Ha, ich habe Ihre Antwort zu schnell bestätigt: Bei mir funktioniert es nicht.

Fehler beim Kompilieren.

in Erwägung nachstehender Gründe: Ende der Ermittlungen.

Ich habe die Taxte dummerweise in VBA eingefügt

5

Hallo

Sie müssen alles kopieren, außer der ersten Zeile, die nicht im Kommentar steht.

Welche Version von SW (Code ist ab 2018 gültig)

6

Ich habe SW 2015 (vorerst)

Bei der Suche im Internet auf der Grundlage Ihrer Antwort glaube ich, dass ich die gleiche für 2015 gefunden habe (kein Unterschied mit bloßem Auge...)

http://help.solidworks.com/2015/English/api/sldworksapi/Save_File_Example_VB.htm

7

Ja, es funktioniert!

Vielen Dank ;)