AnsweredAssumed Answered

automatic reibuild

Question asked by Arif Akbas on Dec 23, 2016
Latest reply on Dec 23, 2016 by Arif Akbas

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

 

Ekran Alıntısı.JPG

Outcomes