SW宏-删除所有配置属性

叶飘零

1. Dim swApp As Object
   
2. 
   
3. Dim Part As Object
   
4. Dim boolstatus As Boolean
   ; ^  I+ K5 ~+ k# }9 M1 R: b
5. Dim longstatus As Long, longwarnings As Long
   ; A6 [3 o) X3 s. s. R
6. 
   
7. Sub main() '删除所有配置属性
     C3 b3 U! n; ]7 S* R# j
8. 
   ( e9 C+ e& Z1 M, }% z" ~
9. Set swApp = Application.SldWorks
   # {. g1 U; d7 v# ?# v
10. 
    
11. Set Part = swApp.ActiveDoc
    % [: @9 {% l& c; C  U
12. 
    0 Q  u2 p5 R* }$ O
13. CurCFGname = Part.GetConfigurationNames
    
14. 
    ( Q. g- F% Z, i* Q# }' R
15. CurCFGnameCount = Part.GetConfigurationCount
    
16. 
    8 n9 b; i& F/ v3 x
17. For i = 0 To CurCFGnameCount - 1
    
18. 
    
19.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
    8 w2 u* A' O" t/ k: r/ `
20. 
    : v5 O2 u9 F" k' r* O% j6 q
21.     Vnamearr = CusPropMgr.GetNames
    4 G' g0 V) h( P8 o8 A: X
22. 
    # J& P$ {4 b* z8 |& {9 r4 ^  D5 s
23.     If Not IsEmpty(Vnamearr) Then
    4 o8 h! N* k) ?
24. 
    
25.         For Each Vnamearr2 In Vnamearr
    
26. 
    ( p$ w/ Z3 w: I  E2 j. M: I" m& z
27.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    * p7 Q8 \% l$ A9 e3 q) d
28. 
    
29.         Next
    
30. 
    7 M3 Y# ?2 p* F% \
31.     End If
    
32. 
    
33. Next
    

复制代码

, h6 Q4 B& H7 ?" }

叶飘零

删除所有自定义属性
% U# Z' S- M4 G( E4 g/ D9 q

1. Sub main() '删除自定义属性
   
2. Dim swApp As Object
   
3. Dim swModel2 As SldWorks.ModelDoc2
   1 h, ?( j1 U0 q. I9 S) @" T4 n7 n/ w" T
4. Dim vCustInfoNameArr2 As Variant
   
5. 
   7 e1 _* o7 [# @! k  L0 N8 l
6. Set swApp = _
   
7. Application.SldWorks
   1 ^& T* Q( C1 L' @7 V) ]' i! g
8. 
   4 p" E- ~8 o- A( v. A  D5 n8 u% W
9. Set swModel2 = swApp.ActiveDoc
   : m- Z9 a+ c/ i9 X/ O4 {* c
10. 
    , L) O2 r9 t( V( ?( f
11. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
    6 P+ X3 s" f) u( h' d& }; a4 J
12. 
    5 j  u( E) K4 j# U2 e$ z& D: |
13.   If Not IsEmpty(vCustInfoNameArr2) Then
    ) C  p  a2 R2 n' D4 e4 Y3 t8 a" k
14.      For Each vCustInfoName2 In vCustInfoNameArr2
      L' W6 o% s5 C3 o
15.          bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    
16.       Next
    - d6 u4 _5 m9 L9 U% K  g
17.   End If
    ) _4 J' C2 e8 x7 @" d4 M+ w
18. End Sub
    

复制代码

零度freedom

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

远祥

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

叶飘零

远祥 发表于 2019-11-19 18:11
! R4 @3 \7 m2 A& V, ?9 q, j感觉楼主分享，适用于哪个版本呢？

$ g* {6 _2 X5 c宏是不分版本的，适用于SW任何版本。
) Q6 p( n1 D( y# P! o/ r. \

奋斗GS

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

大侠很忙

这两个宏可以合并嘛

machel77

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