SW宏-删除所有配置属性

叶飘零

1. Dim swApp As Object
   ; o7 ~  i1 s) w$ S. F" y
2. 
   
3. Dim Part As Object
   
4. Dim boolstatus As Boolean
   2 M2 q- `. F" U3 x
5. Dim longstatus As Long, longwarnings As Long
   
6. 
   
7. Sub main() '删除所有配置属性
   : m7 W" F1 a: d3 n( w3 H0 c  z5 A" `0 o
8. 
   
9. Set swApp = Application.SldWorks
   & i# g8 n1 w2 ]0 E2 u0 J  _+ \
10. 
    
11. Set Part = swApp.ActiveDoc
    
12. 
    $ @# Q& h1 m" n) y  z
13. CurCFGname = Part.GetConfigurationNames
    0 k* w% i& ?2 B8 l4 P( P- s# m! S
14. 
    " h3 g/ ^' j! ?, d* g" F
15. CurCFGnameCount = Part.GetConfigurationCount
    9 Z7 N" b7 j/ \8 P
16. 
    7 v6 p& r. }9 u% s9 v
17. For i = 0 To CurCFGnameCount - 1
    
18. 
    
19.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
    " y6 h% H& F7 W1 k7 I9 y
20. 
    ) n. D# ~! \: n( Q! {
21.     Vnamearr = CusPropMgr.GetNames
    
22. 
    
23.     If Not IsEmpty(Vnamearr) Then
    
24. 
    
25.         For Each Vnamearr2 In Vnamearr
    ; @# ?  {# a2 o* h2 j0 {
26. 
    8 M$ N! N, a0 t" e+ Q
27.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    
28. 
    
29.         Next
    
30. 
    
31.     End If
    
32. 
    
33. Next
    

复制代码

; F! b# _. y( I* J# C! n( Q- _

叶飘零

删除所有自定义属性

1. Sub main() '删除自定义属性
   
2. Dim swApp As Object
   
3. Dim swModel2 As SldWorks.ModelDoc2
   $ G+ {( y  d8 Y" V, n" h7 \7 k2 {
4. Dim vCustInfoNameArr2 As Variant
   
5. 
   ) x5 b. l6 _; [; L& e
6. Set swApp = _
   " O7 `: G* S1 c: P' Y
7. Application.SldWorks
   " ?7 \" |3 X1 n- m
8. 
   & D& Z( ^4 X% w& t3 s! M. a
9. Set swModel2 = swApp.ActiveDoc
   % u+ e6 h7 i  l! ~
10. 
    4 ]; ]# s5 @; E2 [& W
11. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
    
12. 
    1 f  b4 u  S3 L) l9 g1 _
13.   If Not IsEmpty(vCustInfoNameArr2) Then
    1 Z+ [; ?7 o, C3 c2 J5 Y
14.      For Each vCustInfoName2 In vCustInfoNameArr2
    
15.          bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    ; Y- _2 r, I, N
16.       Next
    
17.   End If
    
18. End Sub
    

复制代码

零度freedom

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

远祥

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

叶飘零

远祥 发表于 2019-11-19 18:11
+ H+ r% R( W0 L. p感觉楼主分享，适用于哪个版本呢？

" o; I/ Q* h! A  W( D6 b宏是不分版本的，适用于SW任何版本。

奋斗GS

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

大侠很忙

这两个宏可以合并嘛

machel77

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