Get Custom Properties of Referenced Part Example (VBA)

This example shows how to get the custom property data of a referenced part.

'----------------------------------------------------
' Preconditions:
' 1. Open a part that contains a referenced part
'    with a custom property and a value.
' 2. Open the referenced part.
' 3. Switch back to the part opened in step 1.
' 4. In the macro, replace Property_Name with the name of
'    the referenced part's custom property.
' 5. Open the Immediate window.
'
' Postconditions: Prints the custom property data
' to the Immediate window.
'---------------------------------------------------
Option Explicit

Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
Dim swModelDocExt As ModelDocExtension
Dim swCustProp As CustomPropertyManager
Dim val As String
Dim valout As String
Dim bool As Boolean

Sub main()

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelDocExt = swModel.Extension

' Get the custom property data
Set swCustProp = swModelDocExt.CustomPropertyManager("")
bool = swCustProp.Get4("Property_Name", False, val, valout)

Debug.Print "Value:                    " & val
Debug.Print "Evaluated value:          " & valout
Debug.Print "Up-to-date data:          " & bool

End Sub