SW宏-刪除所有配置屬性

葉飄零

1. Dim swApp As Object
   
2. 
   ! o/ b2 d: N+ W$ W; x
3. Dim Part As Object
   
4. Dim boolstatus As Boolean
   ( K5 L( R9 \1 v# p" C4 @
5. Dim longstatus As Long, longwarnings As Long
   ; _6 a$ U0 o3 ^7 G+ B7 g8 Q% [0 \/ x
6. 
   9 G  u$ l2 z8 z) J
7. Sub main() '刪除所有配置屬性
   
8. 
   3 g2 E* x0 {4 Z5 k6 J$ o
9. Set swApp = Application.SldWorks
   
10. 
    % |% g8 ?' B% N% M9 {
11. Set Part = swApp.ActiveDoc
    % N* J" }" p" D2 s
12. 
    
13. CurCFGname = Part.GetConfigurationNames
    
14. 
    
15. CurCFGnameCount = Part.GetConfigurationCount
    
16. 
    ( m6 K) r2 s  R. B. S- e
17. For i = 0 To CurCFGnameCount - 1
    
18. 
    
19.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
      G: x& I3 @% N$ |3 [
20. 
    
21.     Vnamearr = CusPropMgr.GetNames
    
22. 
    
23.     If Not IsEmpty(Vnamearr) Then
    
24. 
    
25.         For Each Vnamearr2 In Vnamearr
    
26. 
    
27.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    ; w# A; ^1 B8 t, h% t; a# [2 U
28. 
    8 d: K6 Q/ R& P3 N7 \% b
29.         Next
    
30. 
    6 m8 a' W8 B* B9 J# e* Z+ M
31.     End If
    / [% A- n/ O0 C" D% u# `
32. 
    & k6 @% C5 C& D) k
33. Next
    

復(fù)制代碼

8 |; A  N1 W2 S% \% G  P, a

葉飄零

刪除所有自定義屬性
5 Z2 K# \" M4 ?+ t) z

1. Sub main() '刪除自定義屬性
   
2. Dim swApp As Object
   
3. Dim swModel2 As SldWorks.ModelDoc2
   0 i9 l' s% n, t/ B
4. Dim vCustInfoNameArr2 As Variant
   7 J  r( s' c8 I+ k$ b- F; R1 _, ?
5. 
   
6. Set swApp = _
   . A8 p2 X9 W7 H/ U  ~! P4 r5 @; @$ k
7. Application.SldWorks
   
8. 
   
9. Set swModel2 = swApp.ActiveDoc
   
10. 
    
11. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
    2 c# |  r% u: O
12. 
    
13.   If Not IsEmpty(vCustInfoNameArr2) Then
    * j& Z4 H/ R/ R, t% t6 z
14.      For Each vCustInfoName2 In vCustInfoNameArr2
    
15.          bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    
16.       Next
    
17.   End If
    4 j( o! o$ t% M# q" E3 ^
18. End Sub
    : h6 `! _* {( [

復(fù)制代碼

零度f(wàn)reedom

謝謝樓主，保存先，后面應(yīng)該有用

遠(yuǎn)祥

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

葉飄零

遠(yuǎn)祥 發(fā)表于 2019-11-19 18:11
感覺樓主分享，適用于哪個(gè)版本呢？

宏是不分版本的，適用于SW任何版本。
) L/ S8 U% E7 b( s, g' Q

奮斗GS

那位麻煩告訴一下，我復(fù)制這些代碼怎么變了內(nèi)容？

大俠很忙

這兩個(gè)宏可以合并嘛

machel77

牛，今天幫我解決實(shí)際問題了，謝謝