SW宏-刪除所有配置屬性

葉飄零

1. Dim swApp As Object
   
2. 
   : Q/ C9 U  @' N7 k' a* I
3. Dim Part As Object
   ) u$ f, D! t' H$ V' l* B) T7 t
4. Dim boolstatus As Boolean
   7 B5 c' F7 D& _
5. Dim longstatus As Long, longwarnings As Long
   / a  V. H/ W- i$ t! u2 q% o
6. 
   4 p- l! p* O. \! W; t
7. Sub main() '刪除所有配置屬性
   
8. 
   0 Z, f1 B8 Z, o! U" Z  E
9. Set swApp = Application.SldWorks
   * k1 i) ?* l  @
10. 
    & e* M) H' P8 b9 Y" d7 y
11. Set Part = swApp.ActiveDoc
    + z. R2 I6 H  W; S
12. 
    
13. CurCFGname = Part.GetConfigurationNames
    
14. 
    & Y* U4 q4 R1 u; Y: B
15. CurCFGnameCount = Part.GetConfigurationCount
    
16. 
    
17. For i = 0 To CurCFGnameCount - 1
    
18. 
    ' u. \8 f  u2 t4 f
19.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
    - v  q* u' [# b: ^: e; m
20. 
    ! i! U2 U, `% C9 k) u
21.     Vnamearr = CusPropMgr.GetNames
    & {# A5 R: X9 j* l# X9 t' ?* d9 s
22. 
    * l! N$ L) H: ~) S6 f( J8 c' l  F
23.     If Not IsEmpty(Vnamearr) Then
    ( d- |, |, P: V  D) p9 ]1 B8 Z  w
24. 
    
25.         For Each Vnamearr2 In Vnamearr
    0 ^& P+ e, n: C
26. 
    + N% s6 o1 z9 G6 B; h
27.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    9 v- S4 ?. N7 S4 W  a
28. 
    % ]( E0 q2 b$ G- R' O8 X$ g6 D( l" {8 S
29.         Next
    
30. 
    
31.     End If
    
32. 
    
33. Next
    ( E% O* |9 e/ ~) A$ A% @

復制代碼

, P- _' N- X( z' T

葉飄零

刪除所有自定義屬性
- L+ E2 n* X7 a& q

1. Sub main() '刪除自定義屬性
   3 X' W% s/ @( {/ @
2. Dim swApp As Object
   # e; W* M" I  C( l* J# N
3. Dim swModel2 As SldWorks.ModelDoc2
   , r! l5 Y4 T8 Y, e; s3 V
4. Dim vCustInfoNameArr2 As Variant
   
5. 
   
6. Set swApp = _
   4 u1 d( s8 @! ~
7. Application.SldWorks
   
8. 
   " q3 I& u+ f% z
9. Set swModel2 = swApp.ActiveDoc
   / }5 m* F# A7 a+ ^1 {# }3 D
10. 
    8 u" D! h7 I2 ?- F: E, e. L8 {
11. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
    
12. 
    
13.   If Not IsEmpty(vCustInfoNameArr2) Then
    
14.      For Each vCustInfoName2 In vCustInfoNameArr2
    
15.          bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    
16.       Next
    
17.   End If
    4 z( w  l' E5 k6 `
18. End Sub
      I9 r# c' M- C3 U1 d

復制代碼

零度freedom

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

遠祥

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

葉飄零

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

, R5 n  Q3 L8 M! u. X& e宏是不分版本的，適用于SW任何版本。

奮斗GS

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

大俠很忙

這兩個宏可以合并嘛

machel77

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