删除配置属性的源码

正树

1.删除当前配置的所有属性

1. Set swApp = Application.SldWorks
   
2. Set Part = swApp.ActiveDoc
   
3. ConfName = Part.GetActiveConfiguration.Name
   
4. Set CusPropMgr = Part.Extension.CustomPropertyManager(ConfName)
   
5. Vnamearr = CusPropMgr.GetNames
   
6.   If Not IsEmpty(Vnamearr) Then
   
7.     For Each Vnamearr2 In Vnamearr
   
8.     bRet = Part.DeleteCustomInfo2(ConfName, Vnamearr2)
   
9.     Next
   
10.   End If

复制代码

2.删除所有配置的所有属性

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

复制代码