SW宏-删除所有配置属性

叶飘零

1. Dim swApp As Object
   
2. 
   
3. Dim Part As Object
   
4. Dim boolstatus As Boolean
   
5. Dim longstatus As Long, longwarnings As Long
   
6. 
   7 q9 U8 ^" n: z6 S; T( F# }
7. Sub main() '删除所有配置属性
   
8. 
   4 Y- y  f/ _  j; {
9. Set swApp = Application.SldWorks
   ( v0 S+ V& a/ C. _
10. 
    
11. Set Part = swApp.ActiveDoc
    + n4 Z! d% ~2 b, ], E
12. 
    
13. CurCFGname = Part.GetConfigurationNames
    
14. 
    
15. CurCFGnameCount = Part.GetConfigurationCount
    
16. 
    3 e* S; y% {; s0 \% N3 G
17. For i = 0 To CurCFGnameCount - 1
    8 Y# N! r9 D! X2 I4 O" s
18. 
    
19.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
    / E8 i) p" w4 |' A5 f- Q; g4 c( Z( P
20. 
    
21.     Vnamearr = CusPropMgr.GetNames
    " j" T+ g# D9 ^0 ~$ _/ m$ m
22. 
    
23.     If Not IsEmpty(Vnamearr) Then
    - _9 B! K" N* W" I/ D, q+ d
24. 
    ! g+ P0 A0 Z, |
25.         For Each Vnamearr2 In Vnamearr
    : m* |, S' F) ~# l/ j% O- J1 m
26. 
    ' k# X# M7 p9 F* ?
27.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    
28. 
    9 ?8 Q0 o' o' k3 w9 G9 \) j$ }
29.         Next
    ; `8 N$ l9 ?0 m& E/ t9 ]) e
30. 
    $ U" G4 {/ }& ~" S
31.     End If
    / F/ ]6 K8 J# L* T# V: l/ t
32. 
    
33. Next
    ; `2 |, V! Q: b9 w0 O' ?

复制代码

- f2 @2 [% o, \
1 C  |/ k( I8 D( B

叶飘零

删除所有自定义属性
# [8 M# q. Q' Z% u

1. Sub main() '删除自定义属性
   
2. Dim swApp As Object
   
3. Dim swModel2 As SldWorks.ModelDoc2
   
4. Dim vCustInfoNameArr2 As Variant
   
5. 
     \5 C0 W3 f1 \( U- x$ O
6. Set swApp = _
   
7. Application.SldWorks
   
8. 
   : j8 L* k7 s' D6 j) W2 G9 q
9. Set swModel2 = swApp.ActiveDoc
   , H3 @& k1 u% d, E8 N4 Z
10. 
    
11. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
    - |% k! T1 m# C, v( N, L
12. 
    8 l% r# R- g; q8 a
13.   If Not IsEmpty(vCustInfoNameArr2) Then
    + c7 m* ]; F, x8 }. c
14.      For Each vCustInfoName2 In vCustInfoNameArr2
    + I+ K. w8 W$ b
15.          bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    
16.       Next
    # f- n' M: t+ t% |5 l7 T
17.   End If
    
18. End Sub
    

复制代码

零度freedom

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

远祥

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

叶飘零

远祥 发表于 2019-11-19 18:11
感觉楼主分享，适用于哪个版本呢？

  T( N" M5 K- k  m: Z  B- N宏是不分版本的，适用于SW任何版本。

奋斗GS

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

大侠很忙

这两个宏可以合并嘛

machel77

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