SW宏-删除所有配置属性

叶飘零

1. Dim swApp As Object
   / s7 O% _9 m( s# j. x9 e- E/ R
2. 
   
3. Dim Part As Object
   " B% y" d3 y% w
4. Dim boolstatus As Boolean
   
5. Dim longstatus As Long, longwarnings As Long
   , i3 P6 N, }# g2 f/ V8 M8 C4 y) h
6. 
   
7. Sub main() '删除所有配置属性
   - ^' I3 Z' o3 b
8. 
   
9. Set swApp = Application.SldWorks
   2 h5 x+ \, Q/ P- m
10. 
    9 r4 d! W2 v( N% n
11. Set Part = swApp.ActiveDoc
    / ?' x: Z5 p, E! K# r
12. 
    ! p6 _! E+ ?, k, j/ O4 n! ~8 i& O1 u
13. CurCFGname = Part.GetConfigurationNames
    
14. 
    ; [, \, K" ]2 R1 \  A
15. CurCFGnameCount = Part.GetConfigurationCount
    " k3 L1 g9 l! X% n' F/ c
16. 
    
17. For i = 0 To CurCFGnameCount - 1
    
18. 
    
19.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
    2 Q. o) O5 d# s) l6 \( K- @9 J2 \  V* g
20. 
    
21.     Vnamearr = CusPropMgr.GetNames
    7 l7 q6 n: N) P0 M$ E8 y
22. 
    , w" o! ?4 w1 w) y" W! @
23.     If Not IsEmpty(Vnamearr) Then
    3 y% P) l% T. l; u. _& I
24. 
    
25.         For Each Vnamearr2 In Vnamearr
    
26. 
    
27.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    
28. 
    
29.         Next
    
30. 
    ) G/ d, w! d$ ?" C$ E
31.     End If
    
32. 
    
33. Next
    

复制代码

叶飘零

删除所有自定义属性
" x9 o# E; S- W/ z

1. Sub main() '删除自定义属性
   9 v1 H  t1 h* K2 C$ s* O: P3 V: f' ^
2. Dim swApp As Object
   
3. Dim swModel2 As SldWorks.ModelDoc2
   
4. Dim vCustInfoNameArr2 As Variant
   : c% h+ y  p: |' v4 z, i. r
5. 
   5 W( c- M+ Q& Q. q! j; V/ e
6. Set swApp = _
   
7. Application.SldWorks
   $ s3 U& x% Z$ W4 S8 Y
8. 
   . ^- z* P. z" i4 B
9. Set swModel2 = swApp.ActiveDoc
   
10. 
    
11. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
    ' i/ F- I/ E. R- G% F6 D
12. 
    
13.   If Not IsEmpty(vCustInfoNameArr2) Then
    
14.      For Each vCustInfoName2 In vCustInfoNameArr2
    
15.          bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    
16.       Next
    
17.   End If
    ; h0 L* |; v+ d+ t
18. End Sub
      l" S+ w7 |% N% u: D" Q$ C

复制代码

零度freedom

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

远祥

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

叶飘零

远祥 发表于 2019-11-19 18:11
感觉楼主分享，适用于哪个版本呢？

宏是不分版本的，适用于SW任何版本。

奋斗GS

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

大侠很忙

这两个宏可以合并嘛

machel77

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