SW宏-删除所有配置属性

叶飘零

1. Dim swApp As Object
   / F- h6 D9 S" h
2. 
   6 N, g! Z0 ?) T) E6 s3 e$ b$ t
3. Dim Part As Object
   
4. Dim boolstatus As Boolean
   ( S( Q) X: B3 t6 I* ^
5. Dim longstatus As Long, longwarnings As Long
   
6. 
   
7. Sub main() '删除所有配置属性
   
8. 
   
9. Set swApp = Application.SldWorks
   
10. 
    
11. Set Part = swApp.ActiveDoc
    
12. 
    
13. CurCFGname = Part.GetConfigurationNames
    2 g" N4 U" N3 ^1 {3 f1 {5 P* R
14. 
    ' I- K# P7 C1 @6 [" a
15. CurCFGnameCount = Part.GetConfigurationCount
    ; d5 J& ^6 x. d* o
16. 
    . k0 |. ~* r1 t0 M; s. z4 w
17. For i = 0 To CurCFGnameCount - 1
    
18. 
    
19.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
    $ H" \& Q7 u' k+ F
20. 
    ( z. K3 @, i& C, Z% P
21.     Vnamearr = CusPropMgr.GetNames
      G' T8 D# C0 R/ c" ~7 I7 L/ x
22. 
    
23.     If Not IsEmpty(Vnamearr) Then
    4 T$ U$ I1 F. O% S
24. 
    , m; T  c2 Q* L0 z
25.         For Each Vnamearr2 In Vnamearr
    
26. 
    
27.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    
28. 
    
29.         Next
    
30. 
    % v% c' f3 a9 j6 B" [1 E; U
31.     End If
    
32. 
    
33. Next
    

复制代码

& v6 ?' P5 Q5 S$ p

叶飘零

删除所有自定义属性
# G  c1 G2 d7 E3 |3 h$ O

1. Sub main() '删除自定义属性
   # Q6 N4 G0 d. a" r9 \& `3 a/ x
2. Dim swApp As Object
   " q/ ?% M4 {% M* ]$ m- f( ?( [
3. Dim swModel2 As SldWorks.ModelDoc2
   4 m% H  t& C4 b! L) K! Q* a
4. Dim vCustInfoNameArr2 As Variant
   ) X/ c- v5 o2 e% D" }
5. 
   
6. Set swApp = _
   
7. Application.SldWorks
   
8. 
   
9. Set swModel2 = swApp.ActiveDoc
   3 J5 D3 \; G8 t) _4 T
10. 
    $ ?" H/ o+ T* O# Q0 X' r
11. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
    
12. 
    
13.   If Not IsEmpty(vCustInfoNameArr2) Then
    ' b5 \. e$ l% J; I; H2 A; p
14.      For Each vCustInfoName2 In vCustInfoNameArr2
    1 H9 U( C3 S2 g0 c+ ~9 J
15.          bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    : F. i! ^6 W% n: E+ v+ E
16.       Next
    
17.   End If
    * X( {. V0 t: J8 s8 U
18. End Sub
    , v2 [+ b, U6 w8 \9 U& o0 W: e8 }

复制代码

零度freedom

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

远祥

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

叶飘零

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

- \" y  J7 _0 d/ h宏是不分版本的，适用于SW任何版本。

奋斗GS

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

大侠很忙

这两个宏可以合并嘛

machel77

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