IZ A PROGREM

Option Explicit

Dim swApp As SldWorks.SldWorks
Dim Part As Object
Dim boolstatus As Boolean

Dim varShaftDia1 As Double
Dim varShaftDia2 As Double
Dim varBevDia1 As Double
Dim varBevDia2 As Double

Private Sub cmdHide_Click()
    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc

    boolstatus = Part.Extension.SelectByID2("bevel housing-1@BevelGearbox", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
    Part.HideComponent2
    Part.ClearSelection2 True
End Sub

Private Sub cmdShow_Click()
    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc

    boolstatus = Part.Extension.SelectByID2("bevel housing-1@BevelGearbox", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
    Part.ShowComponent2
    Part.ClearSelection2 True
End Sub

Private Sub cmdWijzigen_Click()

'Kijken of er input is
    If Len(txtShaftDia1.Text) = 0 Then
        MsgBox ("Shaft Diameter 1 input missing")
        frmDimensions.Show
        Exit Sub
'Kijken of de input een getal is
    ElseIf IsNumeric(txtShaftDia1.Text) = False Then
        MsgBox ("Shaft Diameter 1 input isn't a number")
        frmDimensions.Show
        Exit Sub
    End If

    If Len(txtShaftDia2.Text) = 0 Then
        MsgBox ("Shaft Diameter 2 input missing")
        frmDimensions.Show
        Exit Sub
    ElseIf IsNumeric(txtShaftDia2.Text) = False Then
        MsgBox ("Shaft Diameter 2 input isn't a number")
        frmDimensions.Show
        Exit Sub
    End If

    If Len(txtBevDia1.Text) = 0 Then
        MsgBox ("Bevel Diameter 1 input missing")
        frmDimensions.Show
        Exit Sub
    ElseIf IsNumeric(txtBevDia1.Text) = False Then
        MsgBox ("Bevel Diameter 1 input isn't a number")
        frmDimensions.Show
        Exit Sub
    End If

    If Len(txtBevDia2.Text) = 0 Then
        MsgBox ("Bevel Diameter 2 input missing")
        frmDimensions.Show
        Exit Sub
    ElseIf IsNumeric(txtBevDia2.Text) = False Then
        MsgBox ("Bevel Diameter 2 input isn't a number")
        frmDimensions.Show
        Exit Sub
    End If

    'Variable = <inch to meters> * converted input
    varShaftDia1 = 0.0254 * CDbl(txtShaftDia1)
    varShaftDia2 = 0.0254 * CDbl(txtShaftDia2)
    varBevDia1 = 0.0254 * CDbl(txtBevDia1)
    varBevDia2 = 0.0254 * CDbl(txtBevDia2)

    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc

    Dim myDimension As Object

    'Bevel Dia 1
    Set myDimension = Part.Parameter("BevDia1@Sketch1@bevelgear.Part")
    myDimension.SystemValue = varBevDia1

    'Shaft Dia 1
    Set myDimension = Part.Parameter("ShaftDia1@Sketch1@bevelgear.Part")
    myDimension.SystemValue = varShaftDia1

    'Bevel Dia 2
    Set myDimension = Part.Parameter("BevDia2@Sketch1@bevelgear2.Part")
    myDimension.SystemValue = varBevDia2

    'Shaft Dia 2
    Set myDimension = Part.Parameter("ShaftDia2@Sketch1@bevelgear2.Part")
    myDimension.SystemValue = varShaftDia2

    'Force a rebuild
    boolstatus = Part.ForceRebuild3(False)
End Sub