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
Add
Part.ForceRebuild3 True
before End sub