Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long
Dim Annotation As Object
Dim Gtol As Object
Dim DatumTag As Object
Dim FeatureData As Object
Dim retval As Variant
Dim Error1 As Variant
Dim success As Variant
Dim Feature As Object
Dim WorkingDirectory As String
Dim Component As Object
Sub main()
Set swApp = Application.SldWorks
WorkingDirectory = "\\Wal7\Adept\Integration\SolidWorks\SW_Adept.dll"
retval = swApp.LoadAddIn(WorkingDirectory)
If retval = -1 Then
Error1 = MsgBox("The filepath name is wrong, check to see if it has changed", vbExclamation, "Adept Macro")
End
End If
If retval = 2 Then
swApp.UnloadAddIn (WorkingDirectory)
End If
End Sub