SW宏-删除所有配置属性

叶飘零

1. Dim swApp As Object
   
2. 
   
3. Dim Part As Object
   
4. Dim boolstatus As Boolean
   
5. Dim longstatus As Long, longwarnings As Long
   6 g% u+ t; |8 ^
6. 
   
7. Sub main() '删除所有配置属性
   
8. 
   
9. Set swApp = Application.SldWorks
   & o' G5 Q! |) d+ B0 C9 J' m3 d
10. 
      A; ]( U2 G6 i5 \+ Y1 z) E
11. Set Part = swApp.ActiveDoc
    $ k0 O6 M& |1 T) f
12. 
    
13. CurCFGname = Part.GetConfigurationNames
    1 Y' j7 {& c$ s7 U7 k
14. 
    7 j* N: g  f/ G( B! Q! W4 j
15. CurCFGnameCount = Part.GetConfigurationCount
    
16. 
    $ B/ V8 h6 c9 ]
17. For i = 0 To CurCFGnameCount - 1
    
18. 
    ) n  _% s* |: I
19.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
    
20. 
    
21.     Vnamearr = CusPropMgr.GetNames
    4 W$ B( k8 k+ j" G( o1 S
22. 
    
23.     If Not IsEmpty(Vnamearr) Then
    * {+ A- Q0 [2 h& e* e- x3 [
24. 
    * u+ v% g  h, ]3 |( }
25.         For Each Vnamearr2 In Vnamearr
    5 ?. r4 [0 {: f! n8 x
26. 
    
27.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    
28. 
    - A- @0 U) |% r% p7 Z. b) M  [
29.         Next
    9 c$ h: a2 ]2 E4 b2 y  v
30. 
    
31.     End If
    ! Y8 m# d) V$ _2 _$ Q( L, X2 i+ Y
32. 
    
33. Next
    

复制代码

% T& y: W- Q! S' i; d& _

叶飘零

删除所有自定义属性

1. Sub main() '删除自定义属性
   
2. Dim swApp As Object
   
3. Dim swModel2 As SldWorks.ModelDoc2
   
4. Dim vCustInfoNameArr2 As Variant
   8 i/ r. |! p  o
5. 
   * ]# s& r7 q; p. f9 W4 C
6. Set swApp = _
   
7. Application.SldWorks
   8 q* M' F% B! i% W3 G: p  `- E4 p
8. 
   . `+ Q2 b3 }9 s4 C+ C+ K& g
9. Set swModel2 = swApp.ActiveDoc
   
10. 
    , q1 E2 j( Z5 N! d2 r
11. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
    
12. 
    
13.   If Not IsEmpty(vCustInfoNameArr2) Then
    
14.      For Each vCustInfoName2 In vCustInfoNameArr2
    
15.          bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    4 b/ t( Q5 Y9 U# w, h& o- o
16.       Next
    
17.   End If
    & `4 u6 ~  V1 }) f- ]/ b4 ]
18. End Sub
    " ]) b/ M6 r1 P3 Y1 \5 A& b- M

复制代码

零度freedom

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

远祥

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

叶飘零

远祥 发表于 2019-11-19 18:11
感觉楼主分享，适用于哪个版本呢？

$ ]) {+ S2 z% l& F  ^& [宏是不分版本的，适用于SW任何版本。
/ e' q* a( C! F# R4 k5 `8 H) B

奋斗GS

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

大侠很忙

这两个宏可以合并嘛

machel77

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