CAD Forum

Dwight wrote: ↑Thu Oct 28, 2021 7:41 am All

I would like to modify Property Tab Builder code so that a user can enter a "Description" property and what they enter is applied to both Global and to the "Default" configuration. I would like this to be applied when a user runs the Property Tab Builder, without them having to do anything else. Ideally, this would work even if the user has a different configuration active.

ResidentAtLarge wrote: ↑Thu Oct 28, 2021 8:05 am If I'm not mistaken, Solidworks always checks first to see if a configuration property exists. If it does exists, then it would ignore the values in the Global and only use the Configuration property value. If it doesnt exist, then it would take the value from the Global.

So unless you have another purpose for needing both values, having the Configuration property value should be good enough to use.

mattpeneguy wrote: ↑Thu Oct 28, 2021 8:16 am @ResidentAtLarge,
He mentioned SAP. So just because what you state may be fine with just SW, it appears his data management system may require this.
@Dwight, the only thing that comes to mind from my end would be a macro...

'**********************
'Copyright(C) 2020 Xarial Pty Limited
'Reference: https://www.codestack.net/solidworks-api/data-storage/custom-properties/copy-file-specific-to-configuration/
'License: https://www.codestack.net/license/
'**********************

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swCustPrpMgr As SldWorks.CustomPropertyManager
Dim swConfCustPrpMgr As SldWorks.CustomPropertyManager
 
Sub main()
 
    Set swApp = Application.SldWorks
 
    Set swModel = swApp.ActiveDoc

    If Not swModel Is Nothing Then
   
        Set swCustPrpMgr = swModel.Extension.CustomPropertyManager("")
       
        Dim vNames As Variant
        Dim vTypes As Variant
        Dim vValues As Variant
        swCustPrpMgr.GetAll vNames, vTypes, vValues
   
        Dim activeConfName As String
        activeConfName = swModel.ConfigurationManager.ActiveConfiguration.Name

        Set swConfCustPrpMgr = swModel.Extension.CustomPropertyManager(activeConfName)
 
        Dim i As Integer
   
        For i = 0 To UBound(vNames)
            swConfCustPrpMgr.Add2 vNames(i), vTypes(i), vValues(i)
            swConfCustPrpMgr.Set vNames(i), vValues(i)
        Next

    Else

        MsgBox "Please open part or assembly"

    End If
   
End Sub

ResidentAtLarge wrote: ↑Thu Oct 28, 2021 8:05 am If I'm not mistaken, Solidworks always checks first to see if a configuration property exists. If it does exists, then it would ignore the values in the Global and only use the Configuration property value. If it doesnt exist, then it would take the value from the Global.