SW宏-删除所有配置属性

叶飘零

1. Dim swApp As Object
   1 l  K* s! A( N1 y3 c
2. 
   9 c8 a7 q9 l  n; O9 E9 K
3. Dim Part As Object
   
4. Dim boolstatus As Boolean
   
5. Dim longstatus As Long, longwarnings As Long
   ' w8 g" Z" c! z& ~) }0 O
6. 
   
7. Sub main() '删除所有配置属性
   6 k$ L& \' N' F" m, F
8. 
   3 K' T8 `- e8 C6 {" j
9. Set swApp = Application.SldWorks
   
10. 
    6 s. q1 ]7 O& R: L3 T4 p1 d- i; ?
11. Set Part = swApp.ActiveDoc
    2 x& x& o$ K1 \4 C- L7 k0 Q0 L0 Q
12. 
    
13. CurCFGname = Part.GetConfigurationNames
    4 t9 Y! ]5 D6 m: T) z
14. 
    
15. CurCFGnameCount = Part.GetConfigurationCount
    ) P! k: |; A! `: `3 X, w
16. 
    
17. For i = 0 To CurCFGnameCount - 1
    
18. 
    
19.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
    * M  ]% @4 |+ v) Q# G0 {1 Q6 ]
20. 
    
21.     Vnamearr = CusPropMgr.GetNames
    8 X( L3 ]2 ^/ w$ V
22. 
    
23.     If Not IsEmpty(Vnamearr) Then
    
24. 
    
25.         For Each Vnamearr2 In Vnamearr
    
26. 
    
27.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    ' A* M# d3 [8 O- _% |1 m/ A
28. 
    2 K! j2 e, @9 T: n, y9 I7 s% g
29.         Next
    
30. 
    ( B$ r) C5 Y$ A0 l2 D5 b1 B6 C
31.     End If
    0 z* c) a2 p" q
32. 
    
33. Next
    

复制代码

+ T7 W# c- A9 ~: W
5 \) o/ h. j) {/ a4 h) D

叶飘零

删除所有自定义属性

1. Sub main() '删除自定义属性
   2 j$ {: ~3 {, C2 n! ?' V
2. Dim swApp As Object
   
3. Dim swModel2 As SldWorks.ModelDoc2
   
4. Dim vCustInfoNameArr2 As Variant
   
5. 
   % ^2 s3 {* I; E5 P0 C+ b
6. Set swApp = _
   , q& G% b0 p) I9 N# z" y1 K4 o
7. Application.SldWorks
   : `' X8 p- V" `4 b9 ?3 m: Z" d
8. 
   
9. Set swModel2 = swApp.ActiveDoc
   
10. 
    $ T. y4 ]8 e1 n! V$ H' Q6 o: [
11. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
    ' X3 i  |% O) c% G7 Q% N7 t
12. 
    3 {1 P6 n) ^* G: U; q/ i
13.   If Not IsEmpty(vCustInfoNameArr2) Then
    - A0 o1 e  D- q; n, }" S
14.      For Each vCustInfoName2 In vCustInfoNameArr2
    1 ~$ v$ e' [2 t% v9 E
15.          bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    * ^; H1 M1 h- D8 C4 D
16.       Next
    
17.   End If
    
18. End Sub
    

复制代码

零度freedom

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

远祥

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

叶飘零

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

$ x4 d, t! m: D, H- |# t宏是不分版本的，适用于SW任何版本。

奋斗GS

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

大侠很忙

这两个宏可以合并嘛

machel77

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