Please take a look at the following macro:
evalValOut is the evaluated value.
Note this macro gets the general custom property named "TestField". To get configuration specific custom property specify the configuration name while retrieving the pointer to Custom Property Manager (Set swCustPropMgr = swModel.Extension.CustomPropertyManager("ConfName"))
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swCustPropMgr As SldWorks.CustomPropertyManager
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swCustPropMgr = swModel.Extension.CustomPropertyManager("")
Dim valOut As String
Dim evalValOut As String
swCustPropMgr.Get3 "TestField", False, valOut, evalValOut
End Sub
Artem Taturevich
CSWP