Hi,
Is there an way where I could use a macro delete the specified custom property for all the drawings in an folder. I've figured out the code to delete the custom properties for the current opened doc, but I would like to modify it to do the same for all the drawings in an folder and its sub folders.
Here is the current code that I have....
Dim swApp As SldWorks.SldWorks
Dim modelDoc As SldWorks.ModelDoc2
Dim CustomPropertyMgr As SldWorks.CustomPropertyManager
Sub main()
Dim temp As String
Set swApp = Application.SldWorks
Set modelDoc = swApp.ActiveDoc
Set CustomPropertyMgr = modelDoc.Extension.CustomPropertyManager("")
CustomPropertyMgr.Delete "Cust_Prop1"
CustomPropertyMgr.Delete "Cust_Prop2"
CustomPropertyMgr.Delete "Cust_Prop3"
CustomPropertyMgr.Delete "Cust_Prop4"
CustomPropertyMgr.Delete "Cust_Prop5"
MsgBox ("Deleted 5 Custom properties from the current drawing !!!")
End Sub