Save File Example (VB.NET)
This example shows how to save a file.
'-----------------------------------------------------------------
' Preconditions: Open a document.
'
' Postconditions: The model is zoomed to fit in the graphics area,
' and the document is saved.
'------------------------------------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports
System.Runtime.InteropServices
Imports
System
Imports
System.Diagnostics
Partial
Class
SolidWorksMacro
Dim
swModel As
ModelDoc2
Dim
boolstatus As
Boolean
Dim
lErrors As
Integer
Dim
lWarnings As
Integer
Sub
main()
swModel = swApp.ActiveDoc
swApp.Visible = True
'
Make a change
swModel.ViewZoomtofit2()
boolstatus = swModel.Save3(swSaveAsOptions_e.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
Public
swApp As
SldWorks
End
Class