Get License Type of SOLIDWORKS Example (VB.NET)
This example shows how to get the type of SOLIDWORKS license used when the
model was created.
'----------------------------------------------------------
' Preconditions:
' 1. Verify that the part to open exists.
' 2. Open the Immediate window.
'
' Postconditions:
' 1. Opens the part document.
' 2. Gets the type of SOLIDWORKS license used when
' the model was created.
' 3. Examine the Immediate window.
'----------------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System
Imports System.Diagnostics
Partial Class SolidWorksMacro
Public Sub main()
Dim swModel As ModelDoc2
Dim swModelDocExt As ModelDocExtension
Dim licenseType As Integer
Dim errors As Integer
Dim warnings As Integer
Dim fileName As String
fileName = "C:\Users\Public\Documents\SOLIDWORKS\SOLIDWORKS 2018\samples\tutorial\api\box.sldprt"
swModel = swApp.OpenDoc6(fileName, swDocumentTypes_e.swDocPART, swOpenDocOptions_e.swOpenDocOptions_Silent, "", errors, warnings)
swModelDocExt = swModel.Extension
licenseType = swModelDocExt.GetLicenseType
Debug.Print("Type of SOLIDWORKS license used when the model was created:")
GetLicense(swApp, licenseType)
End Sub
Sub GetLicense(ByVal swApp As SldWorks, ByVal ltype As Integer)
Select Case ltype
Case swLicenseType_e.swLicenseType_Educational
Debug.Print(" Educational")
Case swLicenseType_e.swLicenseType_Student
Debug.Print(" Student")
Case swLicenseType_e.swLicenseType_StudentDesignKit
Debug.Print(" Student Design Kit")
Case swLicenseType_e.swLicenseType_PersonalEdition
Debug.Print(" Personal Edition")
Case swLicenseType_e.swLicenseType_Full_Office
Debug.Print(" Office")
Case swLicenseType_e.swLicenseType_Full_Professional
Debug.Print(" Professional")
Case swLicenseType_e.swLicenseType_Full_Premium
Debug.Print(" Premium")
Case swLicenseType_e.swLicenseType_Full
Debug.Print(" Standard")
End Select
End Sub
''' <summary>
''' The SldWorks swApp variable is pre-assigned for you.
''' </summary>
Public swApp As SldWorks
End Class