SW宏-删除所有配置属性

叶飘零

1. Dim swApp As Object
   8 \& J1 l, s! S7 ]
2. 
   ! m6 U7 @; s! \3 C+ ]5 l7 n
3. Dim Part As Object
   9 w9 Z" O8 r# ?0 N
4. Dim boolstatus As Boolean
   # [2 R: k, p9 t' y! d. u
5. Dim longstatus As Long, longwarnings As Long
   
6. 
   
7. Sub main() '删除所有配置属性
   
8. 
   2 ^2 ?& `9 e  d3 }- K9 m9 H
9. Set swApp = Application.SldWorks
   * Z5 Y* W5 J0 r
10. 
    
11. Set Part = swApp.ActiveDoc
    ) K$ C' _- J9 w/ A5 s: }9 D9 Y
12. 
    1 J* J8 Y5 O3 ]' o6 F5 h
13. CurCFGname = Part.GetConfigurationNames
    
14. 
    
15. CurCFGnameCount = Part.GetConfigurationCount
    % J( z7 G/ x+ l) f$ ]6 o# R# j
16. 
    5 \- [$ h/ q. i. p) ~1 Y. p
17. For i = 0 To CurCFGnameCount - 1
    $ {) K7 e  E2 e+ c; I& @
18. 
    ; L3 A* v0 {$ X, b% _3 I# k8 ?
19.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
    ' @+ _7 x, t2 ^) x' f; }8 K& e# k
20. 
    / p9 [. F1 P* Q- o0 |
21.     Vnamearr = CusPropMgr.GetNames
    
22. 
    
23.     If Not IsEmpty(Vnamearr) Then
    5 @0 P( C  m2 B; v
24. 
    3 r. z& s  t; n
25.         For Each Vnamearr2 In Vnamearr
    
26. 
    
27.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    / u0 C' v' n. t. ?2 [& D2 }. u
28. 
    # V+ v* k6 F7 j+ [$ N+ z" a; |
29.         Next
    
30. 
    8 k1 L$ P1 z) @+ V% M! a0 j
31.     End If
    4 s8 y8 W! o- w8 L  C3 A5 x
32. 
    # I* t$ {# N; t" d/ u# w+ K
33. Next
    

复制代码

- Q3 T+ U$ O2 G$ C

machel77

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

大侠很忙

这两个宏可以合并嘛

奋斗GS

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

叶飘零

远祥 发表于 2019-11-19 18:11
4 L  d- S: @. r) M- N6 {感觉楼主分享，适用于哪个版本呢？

' d, w( z& o" Y; U" d' X2 x: k宏是不分版本的，适用于SW任何版本。
3 |8 B: T7 z6 W

远祥

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

零度freedom

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

叶飘零

删除所有自定义属性
* v6 Q( ]9 Y1 }

1. Sub main() '删除自定义属性
   
2. Dim swApp As Object
   ) e: d4 b% r/ `
3. Dim swModel2 As SldWorks.ModelDoc2
   1 P" Z* P7 I9 h8 \- j
4. Dim vCustInfoNameArr2 As Variant
   
5. 
   
6. Set swApp = _
   % a  r( [6 ^8 Q- {2 t
7. Application.SldWorks
   - e1 o! s& I' p$ n, i- i0 f
8. 
   5 p" s  J* }7 J( j. @
9. Set swModel2 = swApp.ActiveDoc
   / I3 |8 S  }2 B; w( v3 H1 r& X
10. 
    
11. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
    # A8 u( l! f' ~' T$ E, o  R
12. 
    
13.   If Not IsEmpty(vCustInfoNameArr2) Then
    9 g! D) Q" m7 z6 c' R9 }
14.      For Each vCustInfoName2 In vCustInfoNameArr2
    % J3 s$ ]8 J; t6 E7 w7 s. n) i
15.          bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    4 i7 N( i3 f* R9 C0 l# g
16.       Next
    
17.   End If
    
18. End Sub
    $ A( b. _* _2 Y4 J

复制代码