SW宏-删除所有配置属性

叶飘零

1. Dim swApp As Object
   
2. 
   
3. Dim Part As Object
   : r6 S5 C2 S% ~. S5 r' Z2 l
4. Dim boolstatus As Boolean
   
5. Dim longstatus As Long, longwarnings As Long
   ) t# ^, k# e" M' J: d" `  m
6. 
   
7. Sub main() '删除所有配置属性
   / v% ?5 z* Q' m- d9 p
8. 
   
9. Set swApp = Application.SldWorks
   
10. 
    5 [; E) q, o6 I9 w
11. Set Part = swApp.ActiveDoc
    6 ~1 o/ i) F; c1 r
12. 
    * P( h* r1 K5 ~7 z9 d5 n, u
13. CurCFGname = Part.GetConfigurationNames
    
14. 
    6 c* }) Z( ]' h# E
15. CurCFGnameCount = Part.GetConfigurationCount
    
16. 
    * x4 [$ \* s9 u/ l
17. For i = 0 To CurCFGnameCount - 1
    
18. 
    1 V& R6 X. J( z! H# I: A
19.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
    ( s  u. ^1 P  |! {" e. ?0 ~: W; b
20. 
    
21.     Vnamearr = CusPropMgr.GetNames
    $ R/ b5 I- Y1 Y- ?$ Q( `3 F; F
22. 
    
23.     If Not IsEmpty(Vnamearr) Then
    
24. 
    
25.         For Each Vnamearr2 In Vnamearr
    
26. 
    # I" n6 `& M9 v0 p% Z9 o
27.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    & ~; U$ {  [" i7 m0 a
28. 
    & B6 K" [1 M. P% U$ F2 ^4 x% M$ M6 @
29.         Next
    + t- H0 N& m$ F% D
30. 
    
31.     End If
    9 V2 D3 T: i! @
32. 
    
33. Next
    6 X. ~8 }7 g/ ?' X0 H. Z( W" v

复制代码

叶飘零

删除所有自定义属性
, \9 T' h' p! Z$ L8 C# B* L( L

1. Sub main() '删除自定义属性
   8 t2 i( J; o. _+ B9 f
2. Dim swApp As Object
   ( ~& t4 F2 R* k# q* O
3. Dim swModel2 As SldWorks.ModelDoc2
   
4. Dim vCustInfoNameArr2 As Variant
   
5. 
   
6. Set swApp = _
   5 h5 |6 S7 `& A
7. Application.SldWorks
   : R+ {, K6 B: _7 q  d/ s$ C. a
8. 
   2 `$ `4 B$ C* w( }: E+ t- H
9. Set swModel2 = swApp.ActiveDoc
   + n2 e1 l, n# b3 ^
10. 
    # c1 }8 z) X$ |% d
11. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
    
12. 
    8 l' P' R; c% {! n
13.   If Not IsEmpty(vCustInfoNameArr2) Then
    4 E4 U5 V# e/ s4 Y# o
14.      For Each vCustInfoName2 In vCustInfoNameArr2
    : s2 m9 P) F1 V8 r
15.          bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    7 A/ u, A9 D( a( p& r3 ]2 m
16.       Next
    
17.   End If
    
18. End Sub
    + d" A+ O! _) ~. n

复制代码

零度freedom

谢谢楼主，保存先，后面应该有用

远祥

感觉楼主分享，适用于哪个版本呢？

叶飘零

远祥 发表于 2019-11-19 18:11
: S6 P: p+ d8 Z- o感觉楼主分享，适用于哪个版本呢？

, g7 A0 p8 D( D( L. }8 p8 G0 {宏是不分版本的，适用于SW任何版本。

奋斗GS

那位麻烦告诉一下，我复制这些代码怎么变了内容？

大侠很忙

这两个宏可以合并嘛

machel77

牛，今天帮我解决实际问题了，谢谢