SW宏-刪除所有配置屬性

葉飄零

1. Dim swApp As Object
   " e9 }6 P6 a+ r$ i8 b+ T1 B( M
2. 
   
3. Dim Part As Object
   
4. Dim boolstatus As Boolean
   
5. Dim longstatus As Long, longwarnings As Long
   # O* Y0 I) N& ^
6. 
   7 N6 C4 A  |. a2 C+ S, ~
7. Sub main() '刪除所有配置屬性
   4 v  O/ U, s# }. k& M1 m
8. 
   ! O, D" g0 Y5 @. `2 Z
9. Set swApp = Application.SldWorks
   9 \3 x, n1 z6 C
10. 
    
11. Set Part = swApp.ActiveDoc
    
12. 
    . V+ I, F' \: ~4 l- U2 p$ N6 C0 {
13. CurCFGname = Part.GetConfigurationNames
    
14. 
    % s& N6 @4 k. Q
15. CurCFGnameCount = Part.GetConfigurationCount
    9 e6 w: k( }# d, G4 e
16. 
    1 c0 o  g/ }7 k2 M: m, T
17. For i = 0 To CurCFGnameCount - 1
    6 @3 d3 R6 R* ^6 b
18. 
    1 E! ^$ b& x! a$ j
19.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
    # ~1 F% L; M- Y8 D; E+ G
20. 
    0 h/ V8 ]' B1 j% N; O: b# o9 F
21.     Vnamearr = CusPropMgr.GetNames
    
22. 
    
23.     If Not IsEmpty(Vnamearr) Then
    
24. 
    
25.         For Each Vnamearr2 In Vnamearr
    
26. 
    
27.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    
28. 
    
29.         Next
    
30. 
    % s$ {# H! W7 v! ?
31.     End If
    
32. 
    
33. Next
    

復制代碼

" t* l$ i/ `) x( W, f' f6 i4 x4 p

葉飄零

刪除所有自定義屬性
- \: i. ?4 @/ m8 f& f8 x0 T

1. Sub main() '刪除自定義屬性
   
2. Dim swApp As Object
   5 a. X2 @8 c" L6 e: U3 A: e
3. Dim swModel2 As SldWorks.ModelDoc2
   
4. Dim vCustInfoNameArr2 As Variant
   
5. 
   
6. Set swApp = _
   " N+ f2 [. l+ T
7. Application.SldWorks
   
8. 
   3 D5 N5 ?+ C% [
9. Set swModel2 = swApp.ActiveDoc
   
10. 
    
11. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
    # w8 d. s1 }! K+ W2 K. G
12. 
    
13.   If Not IsEmpty(vCustInfoNameArr2) Then
    
14.      For Each vCustInfoName2 In vCustInfoNameArr2
    3 N, p, @. B2 ]8 y" t
15.          bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    
16.       Next
    
17.   End If
    , G1 x2 h' S. e6 A3 U7 Y0 u* Z8 |& e
18. End Sub
    

復制代碼

零度freedom

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

遠祥

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

葉飄零

遠祥 發(fā)表于 2019-11-19 18:11
6 R" G- ^9 X/ v) X: K7 {$ @感覺樓主分享，適用于哪個版本呢？

: I5 a# p2 e  l: C7 A宏是不分版本的，適用于SW任何版本。
: y7 X  f* Z$ n( y' E2 f

奮斗GS

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

大俠很忙

這兩個宏可以合并嘛

machel77

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