SW宏-删除所有配置属性

叶飘零

1. Dim swApp As Object
   
2. 
   0 ^5 E1 ^/ E3 C! @4 G8 _
3. Dim Part As Object
   
4. Dim boolstatus As Boolean
   
5. Dim longstatus As Long, longwarnings As Long
   
6. 
   
7. Sub main() '删除所有配置属性
     j0 r: x$ p4 J1 m8 ]% z
8. 
   
9. Set swApp = Application.SldWorks
   
10. 
    
11. Set Part = swApp.ActiveDoc
    
12. 
    
13. CurCFGname = Part.GetConfigurationNames
    / A) _& u4 X" y2 k3 O$ V4 ?( a
14. 
    
15. CurCFGnameCount = Part.GetConfigurationCount
    * K, b& A7 Q  [
16. 
    
17. For i = 0 To CurCFGnameCount - 1
    
18. 
    1 K5 q; K. y# T; M- [% O3 _) D/ W
19.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
    
20. 
    
21.     Vnamearr = CusPropMgr.GetNames
    
22. 
    
23.     If Not IsEmpty(Vnamearr) Then
    
24. 
    , d& z% `# x( l) a. i5 f- f6 _# w
25.         For Each Vnamearr2 In Vnamearr
    8 E4 \% J5 a: x; c# m" M
26. 
    
27.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    3 D" Q1 x# y+ o9 w
28. 
    
29.         Next
    9 s; a+ M2 w/ o: V% v
30. 
    $ R. t% b" U& Q. D) [
31.     End If
    
32. 
    - e( R0 ]3 U) L% ?, W% U
33. Next
    

复制代码

2 }+ x7 J3 H* m

叶飘零

删除所有自定义属性

1. Sub main() '删除自定义属性
     V5 l1 C' l4 v* |$ T5 K
2. Dim swApp As Object
   
3. Dim swModel2 As SldWorks.ModelDoc2
   5 c/ h% O. h# x
4. Dim vCustInfoNameArr2 As Variant
   
5. 
   7 W0 L+ [* N  k  x* X% W& Q* i
6. Set swApp = _
   
7. Application.SldWorks
   
8. 
   
9. Set swModel2 = swApp.ActiveDoc
   ( X- z$ n( a7 G7 q  ~# E
10. 
    $ ~7 _1 a6 U1 R% u* D
11. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
    
12. 
    , D. Q9 q/ Y0 ~# i0 W) v* J
13.   If Not IsEmpty(vCustInfoNameArr2) Then
    + K0 o  s3 q% e) h" e7 E
14.      For Each vCustInfoName2 In vCustInfoNameArr2
    # N! ^6 O( |0 ?' ]3 S
15.          bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    
16.       Next
    
17.   End If
    , K! D7 U7 }3 }9 |2 U0 A' ~& U
18. End Sub
    

复制代码

零度freedom

谢谢楼主，保存先，后面应该有用

远祥

感觉楼主分享，适用于哪个版本呢？

叶飘零

远祥 发表于 2019-11-19 18:11
; b! \8 P& h+ v7 [5 H3 ?7 _6 Y& }感觉楼主分享，适用于哪个版本呢？

宏是不分版本的，适用于SW任何版本。

奋斗GS

那位麻烦告诉一下，我复制这些代码怎么变了内容？

大侠很忙

这两个宏可以合并嘛

machel77

牛，今天帮我解决实际问题了，谢谢