SW宏-删除所有配置属性

叶飘零

1. Dim swApp As Object
   
2. 
   
3. Dim Part As Object
   5 V7 v6 j9 d# y" F3 ~6 U
4. Dim boolstatus As Boolean
   
5. Dim longstatus As Long, longwarnings As Long
   
6. 
   0 ~( D! `& b# f+ p) b7 e7 @. E- o
7. Sub main() '删除所有配置属性
   5 C! M; X% I5 h: Q. V9 ]
8. 
   1 M1 P4 l+ ^* {  R/ T
9. Set swApp = Application.SldWorks
   
10. 
    % E  V8 K4 Q: H9 y1 l
11. Set Part = swApp.ActiveDoc
    3 a. {2 {% r3 H3 K* v
12. 
      }. t' n! O$ d
13. CurCFGname = Part.GetConfigurationNames
    
14. 
    
15. CurCFGnameCount = Part.GetConfigurationCount
    
16. 
    + y( u) r/ U  t, Z! @
17. For i = 0 To CurCFGnameCount - 1
    
18. 
    / Q5 |* L: D/ @- P
19.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
    : [% e# G! o2 I
20. 
    
21.     Vnamearr = CusPropMgr.GetNames
    " _# z7 w  E5 I- S
22. 
    * L7 O: t# l  L  W
23.     If Not IsEmpty(Vnamearr) Then
    
24. 
    2 p" U: G2 F5 O
25.         For Each Vnamearr2 In Vnamearr
    ) P+ X6 K1 r6 j; M( n5 Z
26. 
    9 U; t/ _& P) G0 {( B
27.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    
28. 
    
29.         Next
    
30. 
    . g' E2 p' x1 Z! p5 [" t/ d
31.     End If
    
32. 
    
33. Next
    

复制代码

8 E. G3 G9 V# u* d' s1 c

叶飘零

删除所有自定义属性
- G- r8 L  Z1 z, r

1. Sub main() '删除自定义属性
   1 G$ t/ l7 K" |6 N5 h, R: j( Q
2. Dim swApp As Object
   1 k) T. w9 r( T3 a. [! a
3. Dim swModel2 As SldWorks.ModelDoc2
   % A; ~* @4 q" \8 I$ Q
4. Dim vCustInfoNameArr2 As Variant
   ( u! h- V4 V2 d2 r" ^: E! _
5. 
   3 j3 Q0 T8 R% U5 ]5 Y" A
6. Set swApp = _
   6 A' x" N9 f8 e: w" j+ N5 o
7. Application.SldWorks
   0 r4 F, _  G+ J4 X
8. 
   
9. Set swModel2 = swApp.ActiveDoc
   ; U# E5 x7 F- ?. C$ R4 w1 h! I
10. 
    
11. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
    - t  S* R7 t% U) _" l# n
12. 
    
13.   If Not IsEmpty(vCustInfoNameArr2) Then
    
14.      For Each vCustInfoName2 In vCustInfoNameArr2
    
15.          bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    
16.       Next
    
17.   End If
    5 K) p: I' e& A: z8 i5 \) ^7 R: \
18. End Sub
    9 e  ]5 s* W+ A* k0 b

复制代码

零度freedom

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

远祥

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

叶飘零

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

2 G  a9 Z0 n) B宏是不分版本的，适用于SW任何版本。

奋斗GS

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

大侠很忙

这两个宏可以合并嘛

machel77

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