Macro "opslaan"

Macro
1

Hallo

Het is heel eenvoudig, maar ik kan geen macro maken om een document op te slaan.

Sla gewoon op met dezelfde^me naam, op dezelfde locatie.

Heeft iemand de oplossing?

Bij voorbaat dank.

2

misschien met "swSaveAsCurrentVersion"? maar ik weet niet hoe ik moet coderen. Hoe integreer ik het in mijn macro?

3

Hallo

van API Help

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 like
4

Ha ik heb je antwoord te snel gevalideerd: het werkt niet voor mij.

Compilatie fout.

Terwijl: einde onderzoek.

Ik heb stom genoeg de taxte in VBA geplakt

5

Hallo

Je moet alles kopiëren, behalve de eerste regel die geen commentaar geeft.

Welke versie van SW (code is geldig vanaf 2018)

6

Ik heb SW 2015 (voorlopig)

Door op het net te zoeken op basis van jouw antwoord, denk ik dat ik dezelfde heb gevonden voor 2015 (geen verschil met het blote oog...)

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

7

Ja, het werkt!

Heel erg bedankt;)