SW宏-删除所有配置属性

叶飘零

1. Dim swApp As Object
   
2. 
   . X; p' t3 g6 g; u1 h+ u+ ^; C" h
3. Dim Part As Object
   
4. Dim boolstatus As Boolean
   
5. Dim longstatus As Long, longwarnings As Long
   - |7 _% c- D6 o8 g' y, k
6. 
   0 w8 [. ]. D7 K2 e& H' B
7. Sub main() '删除所有配置属性
   
8. 
   
9. Set swApp = Application.SldWorks
   2 v. F% T6 O9 r% ` n
10. 
    % T& u/ W1 A. g$ [
11. Set Part = swApp.ActiveDoc
    / S" K) ?* L' d* k n
12. 
    ( _& R# n* X6 H( u* R
13. CurCFGname = Part.GetConfigurationNames
    & S+ z& a- D/ Y" |& n* y
14. 
    
15. CurCFGnameCount = Part.GetConfigurationCount
    
16. 
    ' g" C9 Y9 t- C: X
17. For i = 0 To CurCFGnameCount - 1
    
18. 
    ; W8 o/ `9 m( ~( g2 ?; F
19. Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
    6 i( Z4 E- M1 v, j
20. 
    1 ?& E; R4 |+ l& ~& N; r
21. Vnamearr = CusPropMgr.GetNames
    
22. 
    6 t: q& Y* Q0 H2 |
23. If Not IsEmpty(Vnamearr) Then
    
24. 
    / r9 ~- y5 u1 h$ e0 ?& B4 O
25. For Each Vnamearr2 In Vnamearr
    
26. 
    
27. bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    * b6 ?: R$ v3 H( }. `% `
28. 
    $ g# q5 C5 R" { O
29. Next
    " Q; B4 q2 A( N) b
30. 
    
31. End If
    
32. 
    8 A; _2 ^% D# Z3 o( d
33. Next
    

复制代码

, J" T, ]" F- K( f; i% o5 U
; B$ k& K5 C; N

叶飘零

删除所有自定义属性

1. Sub main() '删除自定义属性
   
2. Dim swApp As Object
   
3. Dim swModel2 As SldWorks.ModelDoc2
   $ i1 @5 t8 a$ c8 H
4. Dim vCustInfoNameArr2 As Variant
   1 k j4 ?2 ^+ k" T R) y& R, z
5. 
   2 a) j/ Q! Y$ h0 B, _
6. Set swApp = _
   " F8 H# Z0 { \5 }
7. Application.SldWorks
   
8. 
   & \9 c/ k" ? [$ q5 b0 i
9. Set swModel2 = swApp.ActiveDoc
   
10. 
    / ^1 t/ S/ y9 N, ?0 p- k$ H
11. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
    
12. 
    8 @0 Q" K, S: t/ b
13. If Not IsEmpty(vCustInfoNameArr2) Then
    
14. For Each vCustInfoName2 In vCustInfoNameArr2
    1 q6 k, T$ V0 \
15. bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    2 [! f: o {* H! F, f$ @
16. Next
    ) {$ t- v1 h+ ~
17. End If
    
18. End Sub
    

复制代码

零度freedom

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

远祥

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

叶飘零

远祥 发表于 2019-11-19 18:11
, l8 d4 `9 T3 y4 d* v1 R# Y3 Y感觉楼主分享，适用于哪个版本呢？

宏是不分版本的，适用于SW任何版本。
) D8 @+ T8 e( k. g- Z: }. o, q

奋斗GS

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

大侠很忙

这两个宏可以合并嘛

machel77

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