SW宏-刪除所有配置屬性

葉飄零

1. Dim swApp As Object
   
2. 
   
3. Dim Part As Object
     |4 k. z  |2 Z8 x
4. Dim boolstatus As Boolean
   / _! P& C$ f4 j6 H% ^
5. Dim longstatus As Long, longwarnings As Long
   
6. 
   ' F6 c0 Y! K$ y
7. Sub main() '刪除所有配置屬性
   
8. 
   
9. Set swApp = Application.SldWorks
   # I; C7 Y1 O# O5 \- s
10. 
    # z; j' k& T! a: y
11. Set Part = swApp.ActiveDoc
    
12. 
    ) r) D3 ?; f1 R1 Q
13. CurCFGname = Part.GetConfigurationNames
    
14. 
    9 c, `  x9 H  N
15. CurCFGnameCount = Part.GetConfigurationCount
    ) j) ]8 U; Y7 f9 }) u4 ]# S
16. 
    ( S4 ^$ ~4 \$ r# \
17. For i = 0 To CurCFGnameCount - 1
      q9 f9 g$ S4 |: s% U+ |: g: ?. U/ ]
18. 
    
19.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
    
20. 
    
21.     Vnamearr = CusPropMgr.GetNames
    
22. 
    
23.     If Not IsEmpty(Vnamearr) Then
    
24. 
    0 s$ H/ J* Q' V' `) {) m2 V
25.         For Each Vnamearr2 In Vnamearr
    
26. 
    " P  P+ @& ?( W+ ]. T6 {9 w. f0 r
27.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    5 Y" G' m# e0 ~5 l
28. 
    
29.         Next
    + Z+ t5 Z* m3 T2 R) N% D
30. 
    # z( C  h: O( f) M
31.     End If
    " w/ g, J$ q. s- z/ ^
32. 
    + v. h  ]1 w; w! |$ A/ F
33. Next
    

復制代碼

; w3 a7 p4 h- X6 S& H# t+ v

葉飄零

刪除所有自定義屬性
, ~/ A- k, w4 i6 J6 {/ b

1. Sub main() '刪除自定義屬性
   
2. Dim swApp As Object
   * V! y. u$ i- z
3. Dim swModel2 As SldWorks.ModelDoc2
   4 _( v( O4 B+ `- @8 l+ n
4. Dim vCustInfoNameArr2 As Variant
   
5. 
   
6. Set swApp = _
   + \8 j7 k) @0 |) B
7. Application.SldWorks
     D; U6 c  g/ w' z5 @
8. 
   $ U! M: E6 [$ r
9. Set swModel2 = swApp.ActiveDoc
   : ~* S5 d% ~! m
10. 
    + S8 {. A/ J# u+ A" j$ E
11. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
    
12. 
    
13.   If Not IsEmpty(vCustInfoNameArr2) Then
    ' p8 s; ?% ], j7 Z& m9 A' b  T8 k9 Z
14.      For Each vCustInfoName2 In vCustInfoNameArr2
    8 ~( p8 K% K/ E$ I5 ]
15.          bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    ( O, J$ M! M" Q5 L, t
16.       Next
    
17.   End If
    
18. End Sub
    

復制代碼

零度freedom

謝謝樓主，保存先，后面應該有用

遠祥

感覺樓主分享，適用于哪個版本呢？

葉飄零

遠祥 發表于 2019-11-19 18:11
  G6 g1 b, k: o感覺樓主分享，適用于哪個版本呢？

* ]1 B& k, L! g; C5 X, l宏是不分版本的，適用于SW任何版本。
( J+ r" }$ ^1 H0 x+ l) `

奮斗GS

那位麻煩告訴一下，我復制這些代碼怎么變了內容？

大俠很忙

這兩個宏可以合并嘛

machel77

牛，今天幫我解決實際問題了，謝謝