Folge 14 – UserForm mit Code nutzbar machen

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
Private Sub btnABBRECHEN_Click()
    End
End Sub
Private Sub btnSPEICHERN_Click()
    If ckbPDF.Value = True Then
        mod_pdf.speichern
    End If
    If ckbDXF.Value = True Then
        mod_dxf.speichern
    End If
    If ckbSTEP.Value = True Then
        mod_step.speichern
    End If
    End
End Sub
Private Sub UserForm_Initialize()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    If swModel Is Nothing Then
        swApp.SendMsgToUser "Keine Dokument geladen."
        End
    End If
    Dim FullName As String
    FullName = swModel.GetPathName
    If FullName = "" Then
        swApp.SendMsgToUser "Die Datei wurde noch nie gespeichert." & vbCrLf & "Makrolauf wird abgebrochen."
        End
    End If
    Dim Dateiname As String
    Dim temp As Variant
    temp = Split(FullName, "\")
    Dateiname = temp(UBound(temp))
    Dateiname = Left(Dateiname, Len(Dateiname) - 7)
    Debug.Print Dateiname
    tbxDATEINAME.Text = Dateiname
End Sub

Option Explicit
Sub speichern()
    Debug.Print "STEP speichern"
End Sub

Option Explicit
Sub speichern()
    Debug.Print "PDF speichern"
End Sub

Option Explicit
Sub speichern()
    Debug.Print "DXF speichern"
End Sub