AnsweredAssumed Answered

List of Configurations - API Macro

Question asked by E. G. on Nov 11, 2016
Latest reply on Nov 14, 2016 by E. G.

I am trying to get a list of the current configuration names of a part in order to populate those names in a comboBox (On a Form).

I followed the example from : 2015 SOLIDWORKS API Help - Get List of Configurations Example (VBA)

In the example, it spits out the configuration names using a msgbox. I need to put it in an array and then populate that into the comboBox so that the user can select which configuration they would like to make the changes to.

The issue with my code is that only the last configuration is being listed (I'm assuming that the UBound has something to do with it?)

How can i rewrite the code so that the list will populate correctly?

 

 

Private Sub getconfignamesbutton_Click()

Dim configArray() As Variant

Dim swConfig As Configuration

Set SwApp = Application.SldWorks

Set swModel = SwApp.ActiveDoc

Set swConfig = swModel.GetActiveConfiguration

 

If Not swConfig Is Nothing And newconfigcheckbox.value = False Then

    configComboBox.Locked = False

        configComboBox.Clear

            configNames = swModel.GetConfigurationNames

For i = 0 To UBound(configNames)

    configName = configNames(i)

        Set swConfig = swModel.GetConfigurationByName(configName)

            'MsgBox ("Config Name:(" & i & ") = " + configName)

                 configArray = Array(configNames)

    Next i

        MsgBox ("You may now select a Configuration")

           configComboBox.List = configArray

Else

        MsgBox ("Unselect New Configuration")

End If

End Sub

config.JPG

Outcomes