Makro "zapisz"

Macro
1

Witam

To bardzo proste, ale nie mogę utworzyć makra, aby zapisać dokument.

Po prostu zapisz z tą samą nazwą ^me, w tej samej lokalizacji.

Czy ktoś ma rozwiązanie?

Z góry dziękuję.

2

może z "swSaveAsCurrentVersion"? ale nie umiem kodować. Jak zintegrować go z moim makrem?

3

Witam

z Pomocy API

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

Ha, zbyt szybko zweryfikowałem twoją odpowiedź: To nie działa dla mnie.

Błąd kompilacji.

A także mając na uwadze, co następuje: zakończenie dochodzenia.

Głupio wkleiłem taksację w VBA

5

Witam

Musisz skopiować wszystko z wyjątkiem pierwszej linijki, której nie ma w komentarzu.

Która wersja oprogramowania (kod obowiązuje od 2018 roku)

6

Mam SW 2015 (na razie)

Przeszukując sieć na podstawie Twojej odpowiedzi, wydaje mi się, że znalazłem tę samą na 2015 rok (brak różnicy gołym okiem...)

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

7

Tak, to działa!

Dziękuję bardzo ;)