Hide Table of Contents
CustomPropertyManager Property (IComponent2)

Gets the configuration-specific custom property manager for this assembly component.

.NET Syntax

Visual Basic (Declaration) 
ReadOnly Property CustomPropertyManager( _
   ByVal ConfigurationName As System.String _
) As System.Object
Visual Basic (Usage) 
Dim instance As IComponent2
Dim ConfigurationName As System.String
Dim value As System.Object
value = instance.CustomPropertyManager(ConfigurationName)
System.object CustomPropertyManager( 
   System.string ConfigurationName
) {get;}
property System.Object^ CustomPropertyManager {
   System.Object^ get(System.String^ ConfigurationName);


Name of the configuration for which to get custom properties; empty string to obtain document-specific custom properties

Property Value






' 1. Open public_documents\SOLIDWORKS\SOLIDWORKS 2024\samples\tutorial\mbd\mbdadvanced\beater_assembly.sldasm.

' 2. Create a configuration-specific custom property for pan cross head<3>.

'     a. Open pan cross head<3>.

'     b. Select the ConfigurationManager tab.

'     c. Right-click on CR-PHMS 0.073-72x0.125x0.125-N and select Properties.

'     d. In Configuration Properties, click Custom Properties...

'     e. On the Configuration Specific tab, create a custom property of type Text and provide a value.

' 2. Open the Immediate window.

'Postconditions: Displays the configuration-specific custom properties of all of the components in the assembly.


Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModelDoc As SldWorks.ModelDoc2
Dim swCompCur As SldWorks.Component2
Dim sCompName As String
Dim sRefConfigName As String
Dim swCompModelDoc As SldWorks.ModelDoc2
Dim swCompModelDocExt As SldWorks.ModelDocExtension
Dim swCompModelDocConf As SldWorks.Configuration
Dim swCompModelDocCustPropMgr As SldWorks.CustomPropertyManager
Dim swAssyDoc As SldWorks.AssemblyDoc
Dim vComps As Variant
Dim vComfigNames As Variant
Dim iCompIndex As Integer
Dim swCustPropMgrOfCurComp As SldWorks.CustomPropertyManager
Dim sConfigName As String
Dim iConfigIndex As Integer
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

    Set swApp = Application.SldWorks
    Set swModelDoc = swApp.ActiveDoc
    If swModelDoc.GetType = swDocASSEMBLY Then
        Set swAssyDoc = swModelDoc
        vComps = swAssyDoc.GetComponents(True)
        If Not IsEmpty(vComps) Then
            For iCompIndex = 0 To UBound(vComps)
                Set swCompCur = vComps(iCompIndex)
                sCompName = swCompCur.Name2
                Debug.Print ""
                Debug.Print "********************************************************"
                Debug.Print "Component: " & sCompName
                sRefConfigName = swCompCur.ReferencedConfiguration
                Debug.Print "Referenced configuration: " & sRefConfigName
                'Get the component's document-level CustomPropertyManager
                Set swCustPropMgrOfCurComp = swCompCur.CustomPropertyManager("")
                DisplayCustomPropInfo "", swCustPropMgrOfCurComp
                Set swCompModelDoc = swCompCur.GetModelDoc2
                vComfigNames = swCompModelDoc.GetConfigurationNames
                'Get the configuration-specific CustomPropertyManager for each of the current component's configurations
                If Not IsEmpty(vComfigNames) Then
                    For iConfigIndex = 0 To UBound(vComfigNames)
                        sConfigName = vComfigNames(iConfigIndex)
                        Set swCustPropMgrOfCurComp = swCompCur.CustomPropertyManager(sConfigName)
                        DisplayCustomPropInfo sConfigName, swCustPropMgrOfCurComp
                    Next iConfigIndex
                End If

            Next iCompIndex
            Debug.Print ""
        End If
    End If
End Sub

Sub DisplayCustomPropInfo(sConfigName As String, swCustPropMgr As CustomPropertyManager)
    Dim CustPropCount As Long
    Dim sValOut As String
    Dim sResValOut As String
    Dim bWasResolved As Boolean
    Dim bLinkToProperty As Boolean
    Dim lResult As Long
    Dim vNames As Variant
    Dim i As Long
    Dim lValue As Long
    Dim bValue As Boolean
    Dim lLinkPropValue As Long
    Dim lSetValue As Long
    Dim PropNames As Variant
    Dim PropTypes As Variant
    Dim PropValues As Variant
    Dim Resolved As Variant
    Dim PropLink As Variant
    Dim lGetAllValue As Long
    Dim lPropIndex As Long

    Debug.Print ""
    If sConfigName = "" Then
        Debug.Print "Custom properties: Document level"
        Debug.Print "Custom properties: Configuration = " & sConfigName
    End If
    If swCustPropMgr Is Nothing Then
        Debug.Print "   ***** CustomPropertyManager() Failed! *****"
        CustPropCount = swCustPropMgr.Count
        Debug.Print "   Count: " & CustPropCount
        If CustPropCount > 0 Then
            vNames = swCustPropMgr.GetNames
            For i = 0 To UBound(vNames)
                Debug.Print "   " & vNames(i)

                lResult = swCustPropMgr.Get6(vNames(i), False, sValOut, sResValOut, bWasResolved, bLinkToProperty)

                Debug.Print "      Value: " & sResValOut & "      Evaluated value: " & sValOut
                lValue = swCustPropMgr.GetType2(vNames(i))
                Select Case lValue
                    Case swCustomInfoUnknown
                        Debug.Print "      Type: swCustomInfoUnknown"
                    Case swCustomInfoNumber
                        Debug.Print "      Type: swCustomInfoNumber"
                    Case swCustomInfoDouble
                        Debug.Print "      Type: swCustomInfoDouble"
                    Case swCustomInfoYesOrNo
                        Debug.Print "      Type: swCustomInfoYesOrNo"
                    Case swCustomInfoText
                        Debug.Print "      Type: swCustomInfoText"
                    Case swCustomInfoDate
                        Debug.Print "      Type: swCustomInfoDate"
                    Case Else
                        Debug.Print "      Type: Value not in enum!"
                End Select
                bValue = swCustPropMgr.IsCustomPropertyEditable(vNames(i), sConfigName)
                Debug.Print "      Editable: " & bValue
                lLinkPropValue = swCustPropMgr.LinkProperty(vNames(i), True)
                Select Case lLinkPropValue
                    Case swCustomLinkSetResult_OK
                        Debug.Print "      LinkProperty(True): swCustomLinkSetResult_OK"
                    Case swCustomLinkSetResult_NotPresent
                        Debug.Print "      LinkProperty(True): swCustomLinkSetResult_NotPresent"
                    Case swCustomLinkSetResult_Legacy
                        Debug.Print "      LinkProperty(True): swCustomLinkSetResult_Legacy"
                    Case swCustomLinkSetResult_UserProp
                        Debug.Print "      LinkProperty(True): swCustomLinkSetResult_UserProp"
                    Case Else
                        Debug.Print "      Type: Value not in enum!"
                End Select
                lLinkPropValue = swCustPropMgr.LinkProperty(vNames(i), False)
                Select Case lLinkPropValue
                    Case swCustomLinkSetResult_OK
                        Debug.Print "      LinkProperty(False): swCustomLinkSetResult_OK"
                    Case swCustomLinkSetResult_NotPresent
                        Debug.Print "      LinkProperty(False): swCustomLinkSetResult_NotPresent"
                    Case swCustomLinkSetResult_Legacy
                        Debug.Print "      LinkProperty(False): swCustomLinkSetResult_Legacy"
                    Case swCustomLinkSetResult_UserProp
                        Debug.Print "      LinkProperty(False): swCustomLinkSetResult_UserProp"
                    Case Else
                        Debug.Print "      Type: Value not in enum!"
                End Select
            Next i
            lGetAllValue = swCustPropMgr.GetAll3(PropNames, PropTypes, PropValues, Resolved, PropLink)
            For lPropIndex = 0 To UBound(PropNames)
                Debug.Print "      " & PropNames(lPropIndex) & ", " & PropTypes(lPropIndex) & ", " & PropValues(lPropIndex) & ", " & Resolved(lPropIndex) & ", " & PropLink(lPropIndex)
            Next lPropIndex
        End If
    End If
End Sub

See Also


SOLIDWORKS 2024 FCS, Revision Number 32

Provide feedback on this topic

SOLIDWORKS welcomes your feedback concerning the presentation, accuracy, and thoroughness of the documentation. Use the form below to send your comments and suggestions about this topic directly to our documentation team. The documentation team cannot answer technical support questions. Click here for information about technical support.

* Required

Subject:   Feedback on Help Topics
Page:   CustomPropertyManager Property (IComponent2)
*   I acknowledge I have read and I hereby accept the privacy policy under which my Personal Data will be used by Dassault Systèmes

Print Topic

Select the scope of content to print:


We have detected you are using a browser version older than Internet Explorer 7. For optimized display, we suggest upgrading your browser to Internet Explorer 7 or newer.

 Never show this message again

Web Help Content Version: API Help (English only) 2024 SP0

To disable Web help from within SOLIDWORKS and use local help instead, click Help > Use SOLIDWORKS Web Help.

To report problems encountered with the Web help interface and search, contact your local support representative. To provide feedback on individual help topics, use the “Feedback on this topic” link on the individual topic page.