ds-blue-logo
Preview  |  SOLIDWORKS USER FORUM
Use your SOLIDWORKS ID or 3DEXPERIENCE ID to log in.
ABAndreas Beck02/02/2018

Hello,

this is my simplified code and the problem is with assemblies:

Dim swApp           As SldWorks.SldWorks

Dim swModel         As SldWorks.ModelDoc2

Dim thisConfig      As SldWorks.Configuration

Dim ConfigNames     As Variant

Dim KonfigName      As String

Dim value           As Boolean

Dim i               As Integer

Private Sub CommandButton1_Click()

    Set swApp = CreateObject("SldWorks.Application")

    Set swModel = swApp.ActiveDoc

    ConfigCount = swModel.GetConfigurationCount

    ConfigNames = swModel.GetConfigurationNames

    For i = 0 To (ConfigCount - 1)

        KonfigName = ConfigNames(i)

        Set thisConfig = swModel.GetConfigurationByName(KonfigName)

        If CheckBox3.value = True Then

            thisConfig.HideNewComponentModels = True

        Else

            thisConfig.HideNewComponentModels = False     

       End If

   Next i

  value = swModel.EditRebuild3()

End Sub

If thisConfig.HideNewComponentModels is set to True, then the checkmark is set correctly.

You can see this in the Properties of Display State Properties.

If thisConfig.HideNewComponentModels is set to False, the checkmark will not be reset.

Why, is this a Bug?

Greetings, Andi