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

yh2010

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

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
    

复制代码

gt.adan

wenmk

wenmk

yh2010

wenmk

yh2010

wenmk

wwwerzhou

yh2010