6 Replies Latest reply on Aug 21, 2018 12:47 PM by Attilio Colangelo

    How to use macro to control configuration (code attached)?

    Jason Apple

      What I want is a macro to control all configuration to be set hide and show.

       

      I have the following code, it prints out the name correctly for each configuration, but does not set the hide/show right.

       

      Please help

       

       

       

      Option Explicit
      Dim swApp As SldWorks.SldWorks
      Dim Part As Object
      Dim Doc As SldWorks.ModelDoc2
      Dim SelMgr As SldWorks.SelectionMgr
      Dim boolstatus As Boolean
      
      
      
      
      Function InspectConfigurations(Doc As SldWorks.ModelDoc2)
          Dim params As Variant
          params = Doc.GetConfigurationNames
          Dim vName As Variant
          Dim Name As String
          Dim thisConfig As Configuration
          For Each vName In params
              Name = vName
              Set thisConfig = Doc.GetConfigurationByName(Name)
              Debug.Print "Name                      ", thisConfig.Name
      
      
      
      
              Debug.Print "------------------------------------------------------------------"
          Next vName
      End Function
      Sub main()
          Set swApp = Application.SldWorks
          Set Part = swApp.ActiveDoc
          Set Doc = Part
          Set SelMgr = Doc.SelectionManager
          Call InspectConfigurations(Doc)
          Dim params As Variant
          params = Doc.GetConfigurationNames
          Dim vName As Variant
          Dim Name As String
          Dim thisConfig As Configuration
          Debug.Print "Modifying the configurations..."
          For Each vName In params
              Name = vName
              Set thisConfig = Doc.GetConfigurationByName(Name)
              boolstatus = Part.EditConfiguration3(Name, "", "", "", 32)
      
      
          Next vName
          Debug.Print "------------------------------------------------------------------"
          Call InspectConfigurations(Doc)
      End Sub