SW宏-刪除所有配置屬性

葉飄零

1. Dim swApp As Object
   
2. 
   ( Y, K, \9 K( J. F3 D: `6 S, D
3. Dim Part As Object
   
4. Dim boolstatus As Boolean
   # s/ i5 B. s* M' I5 g; F
5. Dim longstatus As Long, longwarnings As Long
   1 U! V: q: D3 H% V
6. 
   , l! p5 i% V* n1 Q) f) q2 h
7. Sub main() '刪除所有配置屬性
   
8. 
   / |2 M1 c4 u' Y* ?3 A; S( X
9. Set swApp = Application.SldWorks
   
10. 
    3 r. V9 M- L. a
11. Set Part = swApp.ActiveDoc
    1 f$ [/ b! E# d+ ~; y) h9 P) [7 o! I
12. 
    ' |* c- g1 [% h# D
13. CurCFGname = Part.GetConfigurationNames
    # O* R. h4 G9 c4 s4 W/ v
14. 
    
15. CurCFGnameCount = Part.GetConfigurationCount
    & N, G! `. k4 i: D& ]
16. 
    % W2 k9 ?3 R% K1 p. J# L- R; y
17. For i = 0 To CurCFGnameCount - 1
    0 M5 o! B4 \9 n$ h
18. 
    
19.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
    # _! J  l  q! }% d- Z+ S# ^
20. 
    ; d8 j% P; W8 R5 u( t
21.     Vnamearr = CusPropMgr.GetNames
    ( e6 W2 g8 t3 M# O
22. 
    % e) o, [( E  h
23.     If Not IsEmpty(Vnamearr) Then
    
24. 
    
25.         For Each Vnamearr2 In Vnamearr
    
26. 
    0 g6 n" l  q% L5 p
27.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    
28. 
    * Q$ a, U% [; p0 s+ o0 N
29.         Next
    
30. 
    3 u% Q0 X$ y5 _. }
31.     End If
    
32. 
    : M8 k, K1 F, V, x# o3 e
33. Next
    3 I# g4 O3 j6 e7 @" V! K3 x8 }! B

復制代碼

葉飄零

刪除所有自定義屬性

1. Sub main() '刪除自定義屬性
   " |; T+ }3 x# G" ]
2. Dim swApp As Object
   & H$ A  e9 Y/ y" S1 m
3. Dim swModel2 As SldWorks.ModelDoc2
   , N& L3 j6 v8 T2 Q9 y8 z
4. Dim vCustInfoNameArr2 As Variant
   
5. 
   
6. Set swApp = _
   : u& z( B" w' J/ S' M: A$ f' Q0 l
7. Application.SldWorks
   ; }0 v9 ^0 r- e  k$ U( q
8. 
   . X) Q4 K( g/ S$ N
9. Set swModel2 = swApp.ActiveDoc
   
10. 
    
11. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
    
12. 
    ' Z7 ^1 b! _! n6 t
13.   If Not IsEmpty(vCustInfoNameArr2) Then
    . `! C6 s; m0 [/ X
14.      For Each vCustInfoName2 In vCustInfoNameArr2
    
15.          bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    
16.       Next
    ' l8 O2 \, f0 b3 a
17.   End If
    & `& V/ X( T- F, o3 b0 x7 f% B
18. End Sub
    ) J& R6 k* @; F7 A/ [% s8 C$ h) i2 S3 [

復制代碼

零度freedom

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

遠祥

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

葉飄零

遠祥 發(fā)表于 2019-11-19 18:11
* {! B5 Z. o/ h感覺樓主分享，適用于哪個版本呢,？

' _3 o( b: _/ }1 h2 r6 b5 h& W7 l6 a宏是不分版本的,，適用于SW任何版本,。

奮斗GS

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

大俠很忙

這兩個宏可以合并嘛

machel77

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