SW宏-刪除所有配置屬性

葉飄零

1. Dim swApp As Object
   
2. 
   3 s# l% a0 A  t% U! _
3. Dim Part As Object
   : d7 Y  q8 g1 z6 A
4. Dim boolstatus As Boolean
   
5. Dim longstatus As Long, longwarnings As Long
   - w0 F. g4 n7 ]' b' [/ K0 _, E
6. 
   
7. Sub main() '刪除所有配置屬性
   
8. 
   
9. Set swApp = Application.SldWorks
   
10. 
    ) ]0 u1 I) e* Y
11. Set Part = swApp.ActiveDoc
    
12. 
    1 B8 G6 E0 F* k
13. CurCFGname = Part.GetConfigurationNames
    1 L) M% ?7 t2 g8 T
14. 
    
15. CurCFGnameCount = Part.GetConfigurationCount
    
16. 
    
17. For i = 0 To CurCFGnameCount - 1
    . {, V: D# o$ ]# h) @0 F: e
18. 
    2 o% y: {$ x. K1 t2 X
19.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
    , j- v3 ~4 e# {: g  ~
20. 
    
21.     Vnamearr = CusPropMgr.GetNames
    
22. 
    * [* ~/ V, d3 m! v7 e
23.     If Not IsEmpty(Vnamearr) Then
    - ^2 b' T9 H! A& |0 h; ]/ |
24. 
    
25.         For Each Vnamearr2 In Vnamearr
    . \% [' Z" |7 K$ v6 L% s1 d+ z4 T
26. 
    : a3 ^$ T+ P  c2 y6 B8 i( _1 A, P
27.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    
28. 
    ; B8 h5 I: y* M
29.         Next
    
30. 
    8 b" J6 \5 A; _1 O: f1 G
31.     End If
    ! ?6 G9 t0 H6 f" n5 ?1 t* {" h
32. 
    4 J& Z2 U' w' @9 h* i& l3 A) M9 k
33. Next
    " }/ l* }- v) e+ S  d% @$ C' A

復制代碼

" r# d' a7 Y# c7 V" }9 F
+ q' s- f  t5 p7 y8 Z

葉飄零

刪除所有自定義屬性

1. Sub main() '刪除自定義屬性
   
2. Dim swApp As Object
   ; P' i1 Z4 p; C4 i. y2 e+ E$ O' z
3. Dim swModel2 As SldWorks.ModelDoc2
   / K. v+ r. ]2 t. P5 e
4. Dim vCustInfoNameArr2 As Variant
   
5. 
   
6. Set swApp = _
   5 _, s9 f$ c( d' Z
7. Application.SldWorks
   
8. 
   2 Z) P3 W" g  _9 U# P/ @' `
9. Set swModel2 = swApp.ActiveDoc
   
10. 
    
11. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
    
12. 
    
13.   If Not IsEmpty(vCustInfoNameArr2) Then
    
14.      For Each vCustInfoName2 In vCustInfoNameArr2
    6 j+ _: `) w1 A- _, s  F
15.          bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    
16.       Next
    
17.   End If
    % C- |# J' ?* L) I
18. End Sub
    

復制代碼

零度freedom

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

遠祥

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

葉飄零

遠祥 發表于 2019-11-19 18:11
* D. P& t  \0 T& z8 S感覺樓主分享，適用于哪個版本呢？

5 G  R' w/ U9 e6 M3 y宏是不分版本的，適用于SW任何版本。
7 |  x4 M/ G6 J7 _% T

奮斗GS

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

大俠很忙

這兩個宏可以合并嘛

machel77

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