I am trying to use macros to get, add, and delete custom properties. The code I have does not add a custom property. There is no error, it just doesn't add the custom property. The 'get' code does work.
Here is the macro code:
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
Dim swSelMgr As SldWorks.SelectionMgr
Dim swFeat As SldWorks.Feature
Dim swCustPropMgr As SldWorks.CustomPropertyManager
Dim nRetVal As Long
Dim vNameArr As Variant
Dim vName As Variant
Dim bRet As Boolean
Dim TestPropVar As String
Dim TestFieldName As String
Dim TestFieldValue As String
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelDocExt = swModel.Extension
If swModel.GetType = swDocPART Then
Set swCustProp = swModelDocExt.CustomPropertyManager("")
'Get a Custom Property value
bool = swCustProp.Get4("Part_Number", False, val, valout) 'This WORKS
'Add a Custom Property
TestPropVar = "TestVar"
TestFieldName = "Test_Cust_Prop"
TestFieldValue = "TestIT"
bool = swCustProp.Add(TestFieldName, TestPropVar, TestFieldValue) 'This DOES NOT WORK
End If 'is part
End Sub
I appreciate any suggestions.
Don Michaels
Belcan Engineering, Solon Ohio
SolidworksApi macros