2 Replies Latest reply on Dec 24, 2016 5:59 AM by Arif Akbas

    automatic reibuild

    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