SW宏-刪除所有配置屬性

葉飄零

1. Dim swApp As Object
   
2. 
   , x$ r2 O5 o! g7 J4 I0 V/ H
3. Dim Part As Object
   
4. Dim boolstatus As Boolean
   5 E" T$ m4 j& H2 e! U: O# t7 m0 i
5. Dim longstatus As Long, longwarnings As Long
   & Z: T: K! H! C
6. 
   2 L* G1 f9 S) p* \# r
7. Sub main() '刪除所有配置屬性
   ! V5 o$ R! }/ S+ j/ a
8. 
   % {" A4 L8 z9 a! v+ z
9. Set swApp = Application.SldWorks
   
10. 
    
11. Set Part = swApp.ActiveDoc
    2 c3 s3 i/ E% S. d% i: U
12. 
    + K9 E0 W! s& j9 G
13. CurCFGname = Part.GetConfigurationNames
    ! g- n" d% ?, w  |. o6 y
14. 
    
15. CurCFGnameCount = Part.GetConfigurationCount
    
16. 
    
17. For i = 0 To CurCFGnameCount - 1
    
18. 
    
19.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
    
20. 
    " w! v1 n3 L! t
21.     Vnamearr = CusPropMgr.GetNames
    & m& u1 b  {% |
22. 
    
23.     If Not IsEmpty(Vnamearr) Then
    
24. 
    3 ]2 z+ R3 P5 \* Z; O
25.         For Each Vnamearr2 In Vnamearr
    
26. 
    0 `+ k. p, z% h2 n5 u3 Q+ V2 [
27.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    : d# |( q3 x+ T  G  V1 A
28. 
    
29.         Next
    
30. 
    4 ^8 S8 F4 T! q9 `0 n: w% ?6 M
31.     End If
    8 M4 @. l+ r6 m  u
32. 
      _2 Y+ O0 a# ^4 v( I5 U
33. Next
    7 l5 r6 w* M. q2 ~' N

復(fù)制代碼

4 [; _9 V; v5 @& @& u7 M

葉飄零

刪除所有自定義屬性
6 J+ z/ c% g; H) _/ E$ j

1. Sub main() '刪除自定義屬性
   
2. Dim swApp As Object
   
3. Dim swModel2 As SldWorks.ModelDoc2
   
4. Dim vCustInfoNameArr2 As Variant
   
5. 
   4 \$ }  @& o) J5 `' g0 R8 N' o
6. Set swApp = _
   , M2 x# ]' x/ R- `7 ?( `
7. Application.SldWorks
   . ~; _  r0 j; S* J' P7 r
8. 
   
9. Set swModel2 = swApp.ActiveDoc
   7 n- T1 q7 i! `$ F: D& U7 _$ y
10. 
    
11. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
    3 p5 i* S$ Z. }- k/ A& m0 O% o
12. 
    $ ~7 i: G/ O. W
13.   If Not IsEmpty(vCustInfoNameArr2) Then
    ( G$ I' `2 d* A) l. G3 _
14.      For Each vCustInfoName2 In vCustInfoNameArr2
    
15.          bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    
16.       Next
    1 Z) L1 L' E8 C  p( y( |( v
17.   End If
    
18. End Sub
    7 ?4 K( {- j1 U  B

復(fù)制代碼

零度f(wàn)reedom

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

遠(yuǎn)祥

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

葉飄零

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

宏是不分版本的,，適用于SW任何版本,。

奮斗GS

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

大俠很忙

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

machel77

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