SW宏-删除所有配置属性

叶飘零

1. Dim swApp As Object
   7 V/ l7 }9 h" E: t( X# A4 M
2. 
   
3. Dim Part As Object
   : t3 y% n5 @/ A6 f8 |: L4 \
4. Dim boolstatus As Boolean
   
5. Dim longstatus As Long, longwarnings As Long
   
6. 
   / X+ e* A( Z- F: G" Z
7. Sub main() '删除所有配置属性
   
8. 
   : J- J! z$ S* A- N8 b/ C
9. Set swApp = Application.SldWorks
   
10. 
    % W+ D, I5 R" H4 r4 d* h% a' @/ z
11. Set Part = swApp.ActiveDoc
    
12. 
    
13. CurCFGname = Part.GetConfigurationNames
    # @) x6 [6 g7 A" x. q5 ~3 c
14. 
    6 M: h1 M- B% O! n
15. CurCFGnameCount = Part.GetConfigurationCount
    
16. 
    
17. For i = 0 To CurCFGnameCount - 1
    % k8 i  z7 i% {7 T8 f) ^1 [
18. 
    1 D6 N* B  R) C" x9 @+ N
19.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
    
20. 
    * o) x/ S" Y' B& g5 h* \) L
21.     Vnamearr = CusPropMgr.GetNames
    ; K; y$ T2 w) [+ i1 u2 @5 T! u, C
22. 
    1 t6 P& L0 o7 F" L" m$ p3 A
23.     If Not IsEmpty(Vnamearr) Then
    
24. 
    
25.         For Each Vnamearr2 In Vnamearr
    , c' R1 ?6 Z( J
26. 
    
27.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    4 C2 U5 M' O# g. H
28. 
    0 l$ C3 K9 b. b/ |! v$ T+ v& _
29.         Next
    
30. 
    
31.     End If
    
32. 
    
33. Next
    

复制代码

5 B! H4 M6 `) h% W( g6 j' z% s
( b" o7 ~, q# U4 c. x4 |- H* @6 a: g

叶飘零

删除所有自定义属性
, O9 T- o& t- }

1. Sub main() '删除自定义属性
   
2. Dim swApp As Object
   + w2 {7 w" L, u+ @2 t, q$ {" l$ A
3. Dim swModel2 As SldWorks.ModelDoc2
   
4. Dim vCustInfoNameArr2 As Variant
   
5. 
   
6. Set swApp = _
   
7. Application.SldWorks
   
8. 
   
9. Set swModel2 = swApp.ActiveDoc
   
10. 
    ! i0 m5 s/ X4 v4 L& G" D" d6 j) K
11. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
    
12. 
    , V$ |" w; L4 H8 U3 c1 ^5 q( N
13.   If Not IsEmpty(vCustInfoNameArr2) Then
    
14.      For Each vCustInfoName2 In vCustInfoNameArr2
    / }3 v+ V9 A: c, W. m" T% X7 S$ ~
15.          bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    3 E, T6 x$ V! ]
16.       Next
    
17.   End If
    1 g: A* Q' S% }4 ]" B
18. End Sub
    ! I2 y/ ?8 c7 z% s/ }

复制代码

零度freedom

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

远祥

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

叶飘零

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

宏是不分版本的，适用于SW任何版本。
) {2 B3 K4 u) F2 D) Y9 V

奋斗GS

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

大侠很忙

这两个宏可以合并嘛

machel77

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