SW宏-刪除所有配置屬性

葉飄零

1. Dim swApp As Object
   
2. 
   6 P6 {# |" ?5 I- R% M2 g7 n8 v* m3 `
3. Dim Part As Object
   # p% D* k  c! G# N) ]/ a. y/ }
4. Dim boolstatus As Boolean
   " n! A9 |6 q: c0 }$ [
5. Dim longstatus As Long, longwarnings As Long
   6 r( z5 F/ F! y, i' A) U. A
6. 
   8 }- R% j2 O/ e; \6 Q
7. Sub main() '刪除所有配置屬性
   ' B  |4 \; H: t* ]4 I- h
8. 
   
9. Set swApp = Application.SldWorks
   7 r) S0 J: K- ]3 ~4 _& J
10. 
    
11. Set Part = swApp.ActiveDoc
    
12. 
    
13. CurCFGname = Part.GetConfigurationNames
    
14. 
    
15. CurCFGnameCount = Part.GetConfigurationCount
    ' @3 G$ n5 w  u5 [3 i- ~" m  P, K
16. 
      \2 m+ P: W/ A$ Z( }5 v) o& A
17. For i = 0 To CurCFGnameCount - 1
    
18. 
    + W( C- C$ O. H
19.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
    2 E  e6 r/ A) |5 S1 L
20. 
    
21.     Vnamearr = CusPropMgr.GetNames
    5 f; p$ s4 {7 e+ x
22. 
    
23.     If Not IsEmpty(Vnamearr) Then
    
24. 
    , f9 |! p/ J! t0 i, G( `, ]
25.         For Each Vnamearr2 In Vnamearr
    
26. 
    
27.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    
28. 
    9 k$ X& T* J- _2 g
29.         Next
    / h. r* c/ n8 T3 a) d) w$ T7 [/ ~
30. 
    / K( ~! ~  j: b# m9 F; p1 k  C
31.     End If
    
32. 
    
33. Next
    9 y, M1 x7 S4 m+ L3 \; B2 S( R

復(fù)制代碼

" s8 M1 x1 o3 Y$ K

葉飄零

刪除所有自定義屬性

1. Sub main() '刪除自定義屬性
   
2. Dim swApp As Object
   
3. Dim swModel2 As SldWorks.ModelDoc2
   
4. Dim vCustInfoNameArr2 As Variant
   
5. 
   
6. Set swApp = _
   ; f1 J6 F( d, c9 ^1 p
7. Application.SldWorks
   
8. 
   
9. Set swModel2 = swApp.ActiveDoc
   
10. 
    
11. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
    
12. 
    5 h( ]' t8 D- f5 c' z5 f$ f4 o
13.   If Not IsEmpty(vCustInfoNameArr2) Then
    
14.      For Each vCustInfoName2 In vCustInfoNameArr2
    
15.          bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    % X/ k* u; Y6 ?: Q
16.       Next
    
17.   End If
    
18. End Sub
    

復(fù)制代碼

零度f(wàn)reedom

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

遠(yuǎn)祥

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

葉飄零

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

宏是不分版本的,，適用于SW任何版本,。
. O- f( K& T( s9 v

奮斗GS

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

大俠很忙

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

machel77

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