SW宏-删除所有配置属性

叶飘零

1. Dim swApp As Object
   6 S: J$ D' m1 r9 a8 c' [
2. 
   
3. Dim Part As Object
   
4. Dim boolstatus As Boolean
   $ U9 y* I( k5 H  o
5. Dim longstatus As Long, longwarnings As Long
   ' D  M0 y" D, z: W' l( B
6. 
   
7. Sub main() '删除所有配置属性
   * I$ R/ `  ~) w, A8 t
8. 
   
9. Set swApp = Application.SldWorks
   # o8 @( ?! J- C" r, d
10. 
      c6 @7 C# `6 _; H# n8 e/ T
11. Set Part = swApp.ActiveDoc
    
12. 
    
13. CurCFGname = Part.GetConfigurationNames
    
14. 
    
15. CurCFGnameCount = Part.GetConfigurationCount
    3 Y' I- G/ M: o4 V7 R2 ^8 A
16. 
    
17. For i = 0 To CurCFGnameCount - 1
    
18. 
    ! H0 Y3 I/ E! J% @8 k! {; v; H) d
19.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
      a3 d2 ~' @* p$ r) |3 y
20. 
    : m4 C# f/ u: `4 Q
21.     Vnamearr = CusPropMgr.GetNames
    
22. 
    3 [9 [: B) Z8 t! W% p0 P
23.     If Not IsEmpty(Vnamearr) Then
    6 p2 p" |9 v  H: A- t
24. 
      t! ?- D. r2 C7 d
25.         For Each Vnamearr2 In Vnamearr
    0 T. y/ G' ]+ D" u1 y
26. 
    
27.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    
28. 
    . G& v/ E- @( Z0 {
29.         Next
    # h5 Y% E& _/ V# n" e
30. 
    
31.     End If
    
32. 
    . @6 W; n' U: G9 J
33. Next
    9 ]' ]3 @/ E& M+ ?% r# k

复制代码

叶飘零

删除所有自定义属性

1. Sub main() '删除自定义属性
   
2. Dim swApp As Object
   " E8 Y" @1 T' j6 K/ h
3. Dim swModel2 As SldWorks.ModelDoc2
   6 n  U, n3 \# Y% w% A
4. Dim vCustInfoNameArr2 As Variant
   9 f1 j& ]. ~& z% O* V
5. 
   
6. Set swApp = _
   ; L3 T( ^4 o8 C: r6 V9 `6 ?) b
7. Application.SldWorks
   
8. 
   + i+ Y8 B8 q+ W. l
9. Set swModel2 = swApp.ActiveDoc
   
10. 
    + Z  C9 N' L7 E9 v
11. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
    
12. 
    $ v$ M. v  A$ {- d) F# z
13.   If Not IsEmpty(vCustInfoNameArr2) Then
    
14.      For Each vCustInfoName2 In vCustInfoNameArr2
    6 f, @/ g5 }6 F: S: [7 C
15.          bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    
16.       Next
    4 ~& i. J* {# q2 l# S6 W& S. ?
17.   End If
    
18. End Sub
    - ~  z" m* g/ }/ x

复制代码

零度freedom

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

远祥

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

叶飘零

远祥 发表于 2019-11-19 18:11
- g8 e1 T' O6 x3 |6 c$ f7 Q感觉楼主分享，适用于哪个版本呢？

宏是不分版本的，适用于SW任何版本。
1 c5 k2 d3 ~, e7 H: _  h

奋斗GS

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

大侠很忙

这两个宏可以合并嘛

machel77

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