automatic reibuild

Macro is not automatically update

how to

Dim swApp As Object

Dim Part As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

Dim myDimension As Object

Set myDimension = Part.Parameter("EN@Sketch1")

myDimension.SystemValue = TextBox1.Text / 1000

Set myDimension = Part.Parameter("BOY@Sketch1")

myDimension.SystemValue = TextBox2.Text / 1000

Set myDimension = Part.Parameter("KALINLIK@Boss-Extrude1")

myDimension.SystemValue = TextBox3.Text / 1000

End Sub