SW宏-删除所有配置属性

叶飘零

1. Dim swApp As Object
   / L7 S7 G& t" E2 V/ ^
2. 
   
3. Dim Part As Object
   
4. Dim boolstatus As Boolean
   5 k6 v+ p3 P" s- I" h
5. Dim longstatus As Long, longwarnings As Long
   ; @1 ~1 u  n) D& C
6. 
   8 c$ c$ z& l7 M5 i/ Y. H
7. Sub main() '删除所有配置属性
   ' g0 `+ ?/ K; u# v$ @( Q9 ?# D
8. 
   ) Q9 ]/ [9 w. g+ A. g4 @' W
9. Set swApp = Application.SldWorks
   $ ]6 D  P: n6 l1 Q
10. 
    
11. Set Part = swApp.ActiveDoc
    
12. 
    
13. CurCFGname = Part.GetConfigurationNames
    
14. 
    ' [$ s1 X% ]# l, t) s
15. CurCFGnameCount = Part.GetConfigurationCount
    3 e6 i; s& [  v8 t/ K9 Z
16. 
    
17. For i = 0 To CurCFGnameCount - 1
    8 @5 W# [8 o% ~/ J) @
18. 
    1 r. f. K. u! z  {
19.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
    8 e9 A  ^, T5 V0 w/ w! O
20. 
    
21.     Vnamearr = CusPropMgr.GetNames
    0 x4 g0 V' R! H4 [
22. 
    3 r" g# ^6 I3 v, _5 c8 \8 A7 g
23.     If Not IsEmpty(Vnamearr) Then
    % H8 c4 j# ]$ c* g% u, p0 |
24. 
    
25.         For Each Vnamearr2 In Vnamearr
    
26. 
    6 X9 j, |' w) ^
27.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    % U$ ]0 h/ W) Z; @# R
28. 
    
29.         Next
    0 b/ U( n7 r8 C' y; d, c4 ]
30. 
    
31.     End If
      k3 I7 {! S# }& |% o) ?
32. 
    3 o1 Z- A- X3 q! d" b4 v
33. Next
    

复制代码

6 t7 x% `8 @! a; {: Z2 j
+ C% }6 @# x$ u

叶飘零

删除所有自定义属性

1. Sub main() '删除自定义属性
   
2. Dim swApp As Object
   . w4 E( z$ N) O7 r
3. Dim swModel2 As SldWorks.ModelDoc2
   
4. Dim vCustInfoNameArr2 As Variant
   
5. 
   
6. Set swApp = _
   # a3 g9 U2 t7 P8 A
7. Application.SldWorks
   ' _$ q/ p3 Z/ S  m% O; q- s
8. 
   
9. Set swModel2 = swApp.ActiveDoc
   
10. 
    0 l& A5 i' @& S, h! X
11. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
      i0 T. q& ?8 y2 H
12. 
    2 l6 `; e: d1 P" \  n+ Y
13.   If Not IsEmpty(vCustInfoNameArr2) Then
    
14.      For Each vCustInfoName2 In vCustInfoNameArr2
    , ]7 S, }5 @, C& l0 g
15.          bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    / {! S7 I1 _1 I1 n
16.       Next
    5 v4 m6 U4 m8 d% ?# ?0 s
17.   End If
    7 U" r9 B0 V7 d1 R6 K, f
18. End Sub
    $ O. A7 W: C/ R! t" ~- T' W; C

复制代码

零度freedom

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

远祥

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

叶飘零

远祥 发表于 2019-11-19 18:11
2 @* |: W0 f* e! j* Y" @感觉楼主分享，适用于哪个版本呢？

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

奋斗GS

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

大侠很忙

这两个宏可以合并嘛

machel77

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