SW宏-删除所有配置属性

叶飘零

1. Dim swApp As Object
   
2. 
   8 C2 Y8 y0 o4 E, ]& e$ m! S. o8 Z
3. Dim Part As Object
   
4. Dim boolstatus As Boolean
   / C9 |0 V/ S. t3 G
5. Dim longstatus As Long, longwarnings As Long
   2 d+ F7 b1 ]( K. r! W
6. 
   
7. Sub main() '删除所有配置属性
   9 K* j2 D: y# l" k: K, ~
8. 
   
9. Set swApp = Application.SldWorks
   ; d% V1 P8 p% \) Z# }  w! C. A1 V
10. 
    
11. Set Part = swApp.ActiveDoc
    # `9 X6 T! o5 c1 s7 {- R
12. 
    
13. CurCFGname = Part.GetConfigurationNames
    % }- A1 H9 O$ }" m- P1 {6 L1 i
14. 
    
15. CurCFGnameCount = Part.GetConfigurationCount
    
16. 
    
17. For i = 0 To CurCFGnameCount - 1
    * {! `  S4 N3 L4 e3 T/ g% X
18. 
    3 l( M" N  G7 i) K
19.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
    1 r# p$ t7 B$ f* k
20. 
    
21.     Vnamearr = CusPropMgr.GetNames
    / |! x& T$ b, s' g. p9 [
22. 
      X( m1 f, G( `( w# l
23.     If Not IsEmpty(Vnamearr) Then
    5 K6 Y! g. n4 `  n6 Z2 G/ _
24. 
    
25.         For Each Vnamearr2 In Vnamearr
    
26. 
    3 n4 [- k# z* f4 _- ^
27.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    & i7 m- Z' q0 }  k
28. 
    " R8 }3 j1 ^# u* a$ H& m8 I4 d
29.         Next
    " i. e. f  U3 ?  h: \% m; V
30. 
    
31.     End If
    9 q, }% K8 a8 R* d; u( g/ o  ^. T0 M
32. 
    5 Q3 T1 n& {1 e) O) `: H/ W
33. Next
    9 N  ^! A9 x# g5 f: @

复制代码

/ `0 S7 t3 Y% T9 l4 ]  C; E

叶飘零

删除所有自定义属性

1. Sub main() '删除自定义属性
   
2. Dim swApp As Object
   
3. Dim swModel2 As SldWorks.ModelDoc2
   
4. Dim vCustInfoNameArr2 As Variant
   
5. 
   ) I" _0 p, C) t' P. {
6. Set swApp = _
   7 C$ Q5 `( G# q% F" [
7. Application.SldWorks
     o# L) |) I0 B% |: q% F
8. 
   3 U) p; L1 v; ~' ?
9. Set swModel2 = swApp.ActiveDoc
   
10. 
    3 o2 q7 R' f2 U7 l4 U0 C! f
11. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
    - E/ E( u) u* w, ^. ?0 d$ t7 Z
12. 
    ! x7 s3 G$ Y! _, {8 K' Y% D& M
13.   If Not IsEmpty(vCustInfoNameArr2) Then
    0 \! M7 m9 T: w. M, W+ p
14.      For Each vCustInfoName2 In vCustInfoNameArr2
    8 b, F) d$ N  s; R, f
15.          bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    
16.       Next
    # j) u( J* C- y2 ~2 n
17.   End If
    
18. End Sub
    

复制代码

零度freedom

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

远祥

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

叶飘零

远祥 发表于 2019-11-19 18:11
) p' @( O/ j- {0 d感觉楼主分享，适用于哪个版本呢？

2 f* o% G5 a2 @$ C宏是不分版本的，适用于SW任何版本。
! X7 I, T% V5 x4 V! x* x( [. f3 I

奋斗GS

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

大侠很忙

这两个宏可以合并嘛

machel77

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