SW宏-删除所有配置属性

叶飘零

1. Dim swApp As Object
   
2. 
   
3. Dim Part As Object
   % w5 I; y5 t3 S! Q% V3 J" S
4. Dim boolstatus As Boolean
   
5. Dim longstatus As Long, longwarnings As Long
   
6. 
   2 ]3 i$ G  _4 m6 g5 o- S4 |
7. Sub main() '删除所有配置属性
   2 d+ S+ F. M" C3 g+ K6 v9 f: C& F
8. 
   9 y* F& f" ^+ L7 {  }5 k& I
9. Set swApp = Application.SldWorks
   ! f" n! y: j3 @/ A
10. 
    + e) B* J( L' m' Y0 M" }% m) [
11. Set Part = swApp.ActiveDoc
    & E! d$ i! q2 e& k8 `
12. 
    , M$ G; r1 m8 J/ B% M
13. CurCFGname = Part.GetConfigurationNames
    7 G; G: f' I- ?2 D$ x0 i* l, i! x
14. 
    
15. CurCFGnameCount = Part.GetConfigurationCount
    5 Y* b. B( U& o8 I" g
16. 
    5 N8 p  S* o6 i. l* {( j0 [
17. For i = 0 To CurCFGnameCount - 1
    
18. 
    
19.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
    , k0 Q: s% [0 |& W9 _( ~! Y! z
20. 
    , ~9 G. y3 k7 V  a: @
21.     Vnamearr = CusPropMgr.GetNames
    
22. 
    
23.     If Not IsEmpty(Vnamearr) Then
    
24. 
    
25.         For Each Vnamearr2 In Vnamearr
    . ?0 O# }9 m+ k
26. 
      I* _' a3 B9 _. ~
27.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    
28. 
    2 U" O( ]" R1 x& L& H
29.         Next
    
30. 
    
31.     End If
    
32. 
    . R4 F9 J5 V! I# c0 w' [7 ~+ N
33. Next
    

复制代码

' W, F. V& q4 ]0 b, a

叶飘零

删除所有自定义属性

1. Sub main() '删除自定义属性
   
2. Dim swApp As Object
   
3. Dim swModel2 As SldWorks.ModelDoc2
   
4. Dim vCustInfoNameArr2 As Variant
   - u# M6 s, @* O  g, {9 Z
5. 
   
6. Set swApp = _
   
7. Application.SldWorks
   
8. 
   
9. Set swModel2 = swApp.ActiveDoc
   ) J8 b! |8 w5 ^3 O
10. 
    9 F" `% O/ k% \$ L, a$ O
11. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
    ' [+ ?* R; \: w. b: U; T
12. 
    
13.   If Not IsEmpty(vCustInfoNameArr2) Then
    & c& {1 [; }' \) L- x: \
14.      For Each vCustInfoName2 In vCustInfoNameArr2
    & a7 X2 {: {  r+ F8 p6 _2 j
15.          bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    ( n5 Q9 s/ e6 b) c
16.       Next
    : F2 u4 m& e. D
17.   End If
    ; a- U, V0 w6 P2 Z/ |, |: Y( m2 _
18. End Sub
    

复制代码

零度freedom

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

远祥

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

叶飘零

远祥 发表于 2019-11-19 18:11
$ ~) s& g) i: ^( s, a5 w$ A6 }感觉楼主分享，适用于哪个版本呢？

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

奋斗GS

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

大侠很忙

这两个宏可以合并嘛

machel77

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