AnsweredAssumed Answered

Get "Custom Property" values using a VBA macro

Question asked by Darren Smith on Apr 17, 2013
Latest reply on Apr 23, 2019 by Christian Chu

Can anybody help?

 

I have the following VBA macro....

 

Dim swApp As Object

 

Sub Main()
    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    vConfName = swModel.GetConfigurationNames

    For i = 0 To UBound(vConfName)
        Set swConfig = swModel.GetConfigurationByName(vConfName(i))
      
        nNumProp = swConfig.GetCustomProperties(vPropName, vPropValue, vPropType)

        MsgBox "  Config       = " & vConfName(0)

        For j = 0 To nNumProp - 1
            MsgBox vPropName(j) & " = " & vPropValue(j)
        Next j
    Next i
End Sub

 

The above macro displays the values in the "Configuration Specific" tab.

 

How do I change the above macro to display the values in the "Custom" tab?

 

Many thanks in advance!!!!!

 

Darren

Outcomes