Hi all,

I made my first macro and it seems to work just fine. However I have one problem that i can not solve.

The macro creates a new drawing from a part/assembly based on a drawing template. I added some msgbox in case the file already exists. This al works fine. But when trying to save the newly created or existing file with the save button (or ctrl-s), after running te macro, the 'browse-for-file-dialog' pops up instead of just saving the file.

It looks like the 'session' is not aware of the 'save-action' in my macro. So it reacts like the file was not saved before. If you know what I mean...

Dim swApp As Object<br>Dim Model As SldWorks.ModelDoc2<br>Dim Part As Object<br>Dim Part2 As Object<br>Dim boolstatus As Boolean<br>Dim longstatus As Long, longwarnings As Long<br><br>Sub main()<br><br>Set swApp = Application.SldWorks<br>Set Part = swApp.ActiveDoc<br><br>'Bepalen van path en bestandnamen<br>Dim MyPathName As String<br>Dim MyPath As String<br>Dim MyFolder As String<br>Dim MyFile As String<br>Dim MyPrePath As String<br>Dim MyTemplatePath As String<br>Dim MyDrawingPath As String<br><br>MyPathName = Part.GetPathName<br>MyPath = Left(Part.GetPathName, InStrRev(Part.GetPathName, "\\") - 1)<br>MyPrePath = Left(Part.GetPathName, InStrRev(Part.GetPathName, "\\Google Drive\\") - 1)<br>MyFolder = Right(MyPath, Len(MyPath) - InStrRev(MyPath, "\\"))<br>MyFile = Right(Part.GetPathName, Len(Part.GetPathName) - InStrRev(Part.GetPathName, "\\"))<br><br>MyTemplatePath = MyPrePath & "\\Flemac bvba\\SW Design Team - SW Library\\SW Drawing Templates\\Flemac - A3 Portrait.drwdot"<br>MyDrawingPath = Left(Part.GetPathName, Len(Part.GetPathName) - 6) & "SLDDRW"<br><br>Debug.Print "----------------------------------------------------" & vbCrLf<br>Debug.Print "   My Path & name =  '" & MyPathName & "'"<br>Debug.Print "   My Template path ='" & MyTemplatePath & "'"<br>Debug.Print "   My path =         '" & MyPath & "'"<br>Debug.Print "   My folder =       '" & MyFolder & "'"<br>Debug.Print "   My file =         '" & MyFile & "'"<br>Debug.Print "   Drawing path =    '" & MyDrawingPath & "'" & vbCrLf<br><br><br><br><br>Set fso = CreateObject("Scripting.FileSystemObject")<br><br>If fso.FileExists(MyDrawingPath) Then<br>    If MsgBox("Drawing already exhists. Do you want to open the exhisting file?", vbYesNo, "Exhisting Drawing") = vbYes Then<br>        'Open exhisting document<br>        Set Part2 = swApp.OpenDoc(MyDrawingPath, swDocDRAWING)<br>    Else<br>        ' Create New Document<br>        Dim swSheetWidth As Double<br>        swSheetWidth = 0.297<br>        Dim swSheetHeight As Double<br>        swSheetHeight = 0.42<br><br>        Dim swDrawing As DrawingDoc<br>        Set swDrawing = swApp.NewDocument(MyTemplatePath, 12, swSheetWidth, swSheetHeight)<br><br>        Dim swSheet As sheet<br>        Set swSheet = swDrawing.GetCurrentSheet()<br>        swSheet.SetProperties2 12, 13, 1, 20, False, swSheetWidth, swSheetHeight, True<br>        swSheet.SetTemplateName (MyTemplatePath)<br>        swSheet.ReloadTemplate True<br>        swDrawing.InsertModelInPredefinedView (MyPathName)<br><br>        Dim myModelView As Object<br>        Set myModelView = swDrawing.ActiveView<br>        myModelView.FrameState = swWindowState_e.swWindowMaximized<br><br>        If MsgBox("Would you like to overwrite the exhisting file?", vbYesNo, "Overwrite") = vbYes Then<br>            ' Save As<br>            longstatus = swDrawing.SaveAs3(MyDrawingPath, 0, 2)<br>        End If<br>    End If<br>End If<br><br><br><br><br><br>End Sub‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍<span class="line-numbers-rows"><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span><span>‍</span></span>

This is my first post here. So please forgive me if I do something stupid ;-). I obviously took some codes from examples I I found on the internet.

Hope someone here can help me with this.