求宏代码，遍历自定义属性内容，全部删除【已解决】

axiao0066 · 发表于 2014-4-14 14:23:18

求各位朋友指点告知一下，怎样在零件和装配体中遍历现有的自定认属性内容，然后全部删除。
先谢过了~~自己查搜资料已解决，代码在下面给需要的朋友。

Sub main() '删除自定义属性
Dim swApp As Object
Dim swModel2 As SldWorks.ModelDoc2
Dim vCustInfoNameArr2 As Variant
Set swApp = _
Application.SldWorks
Set swModel2 = swApp.ActiveDoc
vCustInfoNameArr2 = swModel2.GetCustomInfoNames
If Not IsEmpty(vCustInfoNameArr2) Then
For Each vCustInfoName2 In vCustInfoNameArr2
bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
Next
End If
End Sub