宏——SW删除自定义和所有配置的所有属性

在网上找到的这二个宏，现在想把他和在一起做成一个删除所有的属性，但一直出错不知哪位知道怎么修改谢谢！

1. Dim swApp As Object
   
2. Sub main() '删除自定义属性
   
3. Dim swApp As Object
   
4. Dim swModel2 As SldWorks.ModelDoc2
   
5. Dim vCustInfoNameArr2 As Variant
   
6. Set swApp = _
   
7. Application.SldWorks
   
8. Set swModel2 = swApp.ActiveDoc
   
9. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
   
10. If Not IsEmpty(vCustInfoNameArr2) Then
    
11. For Each vCustInfoName2 In vCustInfoNameArr2
    
12. bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    
13. Next
    
14. End If
    
15. End Sub
    
16. 
    
17. 
    
18. Sub main() '删除所有配置所有属性
    
19. Set swApp = Application.SldWorks
    
20. Set Part = swApp.ActiveDoc
    
21. CurCFGname = Part.GetConfigurationNames
    
22. CurCFGnameCount = Part.GetConfigurationCount
    
23. For i = 0 To CurCFGnameCount - 1
    
24.     Set CusPrOPMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
    
25.     Vnamearr = CusPropMgr.GetNames
    
26.     If Not IsEmpty(Vnamearr) Then
    
27.         For Each Vnamearr2 In Vnamearr
    
28.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    
29.         Next
    
30.     End If
    
31. Next
    
32. Set swApp = Application.SldWorks
    
33. End Sub
    

复制代码

請慢用…

1. Dim swApp As SldWorks.SldWorks
   
2. Dim swModel As SldWorks.ModelDoc2
   
3. Dim swCustPropMgr As SldWorks.CustomPropertyManager
   
4. Dim vPropNames As Variant
   
5. Dim vConfs As Variant
   
6. Dim i, j As Integer
   
7. Dim conf As String
   
8. 
   
9. Sub main()
   
10. Set swApp = Application.SldWorks
    
11. Set swModel = swApp.ActiveDoc
    
12. If swModel Is Nothing Then MsgBox "Open a file first.": Exit Sub
    
13.     ClearCustPrps ("")
    
14.     vConfs = swModel.GetConfigurationNames
    
15.     For i = 0 To UBound(vConfs)
    
16.       ClearCustPrps (vConfs(i))
    
17.     Next i
    
18. MsgBox "Done!"
    
19. End Sub
    
20.    
    
21. Sub ClearCustPrps(conf As String)
    
22. Set swCustPropMgr = swModel.Extension.CustomPropertyManager(conf)
    
23. If Not swCustPropMgr Is Nothing Then
    
24.   swCustPropMgr.GetAll vPropNames, Empty, Empty
    
25.     If Not IsEmpty(vPropNames) Then
    
26.     For j = 0 To UBound(vPropNames)
    
27.       swCustPropMgr.Delete vPropNames(j)
    
28.     Next
    
29.   End If
    
30. End If
    
31. End Sub

复制代码

不知楼主所说的删除所有属性是删除单个模型属性还是多个模型批量删除属性

wenmk 发表于 2020-2-27 21:07
不知楼主所说的删除所有属性是删除单个模型属性还是多个模型批量删除属性

还有就是删除所有配置，也就是说没有激活的配置属性也要删除是吧。

wenmk 发表于 2020-2-27 21:10
还有就是删除所有配置，也就是说没有激活的配置属性也要删除是吧。

是的删除所有属性，不管是自定义的还是配置的

可以参考以下代码：

1. Set swApp = Application.SldWorks
   
2. Set Part = swApp.ActiveDoc
   
3. CurCFGname = Part.GetConfigurationNames
   
4. CurCFGnameCount = Part.GetConfigurationCount
   
5. For i = 0 To CurCFGnameCount - 1
   
6.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
   
7.     Vnamearr = CusPropMgr.GetNames
   
8.     If Not IsEmpty(Vnamearr) Then
   
9.         For Each Vnamearr2 In Vnamearr
   
10.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    
11.         Next
    
12.     End If
    
13. Next

复制代码

wenmk 发表于 2020-3-11 17:01
可以参考以下代码：

感谢回复，这个是可以删除当前配置下的：自定义属性和配置属性。可能之前没有说清楚,如果是零件有多个配置：怎么删除每个配置下的，自定义属性和配置属性。如零件A里面有以下配置如：A\A1\A2\A3这样的零件配置，每个下面都有自定义属性和配置属性，怎么一次性都删除？

yh2010 发表于 2020-4-2 21:51
感谢回复，这个是可以删除当前配置下的：自定义属性和配置属性。可能之前没有说清楚,如果是零件有多个配 ...

       楼主你好，多配置模型中，自定义是所有配置共用的，只有特定配置才是对应每一个配置，楼主可以查一下API，记得好像是：swApp.GetConfigurationNames(swPathName)  然后遍历激活配置后删除特定配置中的属性即可。

gt.adan 发表于 2020-4-2 23:54
請慢用…

丹大你好，这个可以设置成，遍历删除装配体所有零件的配置自定义属性？

gt.adan 发表于 2020-4-2 23:54
請慢用…

感谢回复，大老出手，一切无忧！！！