Folge 5 – IF und SELECT CASE – SolidWorks Makroprogrammierung

In dieser Episode geht es um die IF Abfrage, den SELECT CASE und etwas Fehlerbehandlung.

'Dieses Makro soll prüfen, ob ein Dokument geladen ist
'und ob es sich um ein Teil oder Baugruppen Dokument handelt
Option Explicit
Sub main()
    'Object Variable definieren für Solidworks und zuweisen
    Dim swApp As SldWorks.SldWorks
    Set swApp = Application.SldWorks
    
    'Object Variable definieren für das aktive Dokument und zuweisen
    Dim swModel As ModelDoc2
    Set swModel = swApp.ActiveDoc
    
    'Prüfen ob Dokument geladen und ob der Typ richtig ist
    If Not swModel Is Nothing Then
        Select Case swModel.GetType
            Case swDocumentTypes_e.swDocPART
                swApp.SendMsgToUser "Es ist ein Teil Dokument geladen."
            Case swDocumentTypes_e.swDocASSEMBLY
                swApp.SendMsgToUser "Es ist ein Baugruppen Dokument geladen."
            Case Else
                swApp.SendMsgToUser "Kein Teil Dokument aktiv."
                Exit Sub
        End Select
    End If
    
End Sub

Folge 5: IF und SELECT CASE