久久久国产一区二区_国产精品av电影_日韩精品中文字幕一区二区三区_精品一区二区三区免费毛片爱

機械社區

標題: SW宏-刪除所有配置屬性 [打印本頁]
作者: 葉飄零    時間: 2019-11-18 19:12
標題: SW宏-刪除所有配置屬性
  1. Dim swApp As Object1 g* ]) G! B4 P2 |8 Y( R* u& {! A

  2. " D1 J: J! X$ S/ M, b. {# a" V: N) K8 [
  3. Dim Part As Object
    $ H4 F' Y& w6 s
  4. Dim boolstatus As Boolean3 t7 i4 p! G7 w. q
  5. Dim longstatus As Long, longwarnings As Long3 X  E' q" p4 i7 ?  o

  6. ( W7 y2 H4 a" S% D5 R& P
  7. Sub main() '刪除所有配置屬性
    % J6 E; V. _9 w* g( z

  8. 3 L$ b! _3 b: {8 a
  9. Set swApp = Application.SldWorks8 g, C5 P: _5 c, l* o

  10. + {+ a  ]: a8 Q
  11. Set Part = swApp.ActiveDoc
    ' y0 x  \, m! y

  12. 1 Z9 g! E: X4 N
  13. CurCFGname = Part.GetConfigurationNames
    4 O1 a( {6 ~  m
  14. 0 S% _& b( p* C- Z3 V& O" ]! k4 v
  15. CurCFGnameCount = Part.GetConfigurationCount
    ( |6 R; u! Q/ `0 e
  16. $ ~* b& y+ Q$ ?9 g5 n
  17. For i = 0 To CurCFGnameCount - 1
    $ Q2 _& J8 c* d; `. M( k

  18. - z% a0 `& X$ z  S4 I2 j
  19.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
    2 T" X- T, I1 M" J1 I- h

  20. * k% E1 n+ Q8 x0 W4 ~3 o
  21.     Vnamearr = CusPropMgr.GetNames) K& ?, u% J4 R' z. R  I* ]* M: M

  22. 7 I2 g+ b3 `9 W- j8 I  m
  23.     If Not IsEmpty(Vnamearr) Then9 o' Z4 u* Y' g- _8 O) a, h5 z# ?

  24. : s6 J' Q& A3 B. v1 Q% T: d% `
  25.         For Each Vnamearr2 In Vnamearr& }- e+ K  t# ^+ X1 }7 w: M. b

  26. + O& t% Q' I! n$ d1 ~) m$ S3 k
  27.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    . W8 `! d1 \6 L, h) Z' z* D- H# y

  28. ' ~* j# e2 Z8 S8 \! S2 j, f4 u
  29.         Next1 H6 U2 g$ s; N

  30. & Q1 m7 ~6 O3 o' ?
  31.     End If
    1 c4 `$ `& ]8 G# K
  32. 0 g9 ~  B3 d0 a, L! E' o0 ~
  33. Next$ \7 _* H! V( t0 `% L
復制代碼
- w: s* K* v: u0 H% A; Y) ^" |) p2 F

, k7 w, d- v& p. |  m
作者: 葉飄零    時間: 2019-11-18 19:13
刪除所有自定義屬性
0 o8 u1 `9 h( K: u
  1. Sub main() '刪除自定義屬性/ D8 N, _# p3 N+ B$ x) U: Y" `8 H) ^
  2. Dim swApp As Object
    ( t5 D1 C4 n' c8 U9 e
  3. Dim swModel2 As SldWorks.ModelDoc20 P( m5 N. }8 u. v; A- S
  4. Dim vCustInfoNameArr2 As Variant
      A* T# L! j7 T5 r7 W

  5. " {" g. K8 |* H: i
  6. Set swApp = _
    3 a. p0 X6 [; d! I5 s% f! y3 w
  7. Application.SldWorks
    ' Y' k4 x2 N$ h# ]" {7 G

  8.   e/ t9 g( a0 N7 Q9 y7 Q% m0 S
  9. Set swModel2 = swApp.ActiveDoc
    ' C2 Q/ N+ h9 s9 \

  10. 6 W+ z: x0 p0 p  `3 }4 p2 f* N
  11. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
    - v8 v1 @7 e& ~

  12.   x/ s/ s! i6 B/ W
  13.   If Not IsEmpty(vCustInfoNameArr2) Then
    6 L5 X( f/ [! U  d$ u0 r4 ?
  14.      For Each vCustInfoName2 In vCustInfoNameArr2; n$ m$ }2 e$ y9 Z0 J9 U
  15.          bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    - ~: |4 e. V6 @3 d3 }
  16.       Next
    0 u$ M+ g% G! j" L$ V4 J
  17.   End If
    . v2 H3 h: n3 @( Z+ Y
  18. End Sub
    : N9 M- x7 y; t/ x: p
復制代碼
作者: 零度freedom    時間: 2019-11-19 08:57
謝謝樓主，保存先，后面應該有用
作者: 遠祥    時間: 2019-11-19 18:11
感覺樓主分享，適用于哪個版本呢？
作者: 葉飄零    時間: 2019-11-19 22:46
遠祥 發表于 2019-11-19 18:11' P# x# T) u# i! S
感覺樓主分享，適用于哪個版本呢？
  `+ B: E) D( ]
宏是不分版本的，適用于SW任何版本。& b! C- E5 @) z) K
作者: 奮斗GS    時間: 2020-2-5 00:07
那位麻煩告訴一下，我復制這些代碼怎么變了內容？
作者: 大俠很忙    時間: 2021-7-26 15:08
這兩個宏可以合并嘛
作者: machel77    時間: 2023-10-7 11:28
牛，今天幫我解決實際問題了，謝謝



歡迎光臨 機械社區 (http://www.ytsybjq.com/) Powered by Discuz! X3.5