机械必威体育网址

标题: SW宏-删除所有配置属性 [打印本页]
作者: 叶飘零    时间: 2019-11-18 19:12
标题: SW宏-删除所有配置属性
  1. Dim swApp As Object
    : c4 T9 t0 G7 M" |
  2. ! G* k6 q& U$ m! h# ]
  3. Dim Part As Object* D* G) F( A8 ~* z" l; B4 Z' r
  4. Dim boolstatus As Boolean5 H9 D6 M( Q3 C! J( ?3 \# D* C4 G
  5. Dim longstatus As Long, longwarnings As Long2 R* w4 E5 o% R. O' \; w, W
  6. & ~$ c3 Q$ R# G/ C6 i& P
  7. Sub main() '删除所有配置属性! x- w3 ~5 `( }# h

  8. 5 B4 S1 P  {0 x3 r: j: f! h
  9. Set swApp = Application.SldWorks( K  w3 ?3 p7 h2 v
  10. ; p/ A' E2 I, B1 w7 N' `+ F
  11. Set Part = swApp.ActiveDoc9 @# r- y1 A! c

  12. $ ?+ Z: b( X' y% M. t( ]: M* C4 K# z2 c
  13. CurCFGname = Part.GetConfigurationNames9 ~8 e* s, m8 T) t
  14. ( \  E1 E' I3 h; G
  15. CurCFGnameCount = Part.GetConfigurationCount
    3 c7 a+ M) ^. I6 k

  16. / ~- Y$ v0 z9 T$ w, p
  17. For i = 0 To CurCFGnameCount - 1
    $ x- `# n* O8 p# s; b5 @/ P
  18. 6 k( f* o7 x% U7 L' u4 N
  19.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))% z2 j$ ~4 v% u& N( L! g* W
  20. * O: j8 E9 c( D7 }7 H: x
  21.     Vnamearr = CusPropMgr.GetNames
    2 [+ ^6 B" d# y3 U' A8 ^

  22. ! |! Z1 M, |, D* S
  23.     If Not IsEmpty(Vnamearr) Then
    # z; ?& B# s/ V( p8 {* k
  24. 4 ]. f* j" F4 ?9 _7 d3 Q% b
  25.         For Each Vnamearr2 In Vnamearr  z9 P" e  P5 D  B( T

  26. ! l8 p1 I& w; W1 N; w: f2 Q
  27.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    ; D4 z* U9 A* r& i# z9 }" Q
  28.   ^$ k5 P/ w5 J& {# t. T, {' q* G7 W7 Y
  29.         Next
    % T7 ^( D2 K7 U5 D' h
  30. 5 o/ c. j/ f. M0 P& U1 [0 `: Y7 u' J
  31.     End If$ H1 i( P. r  E, Z, w

  32. % {  ~1 I; E; I& o" Y- z( _: i
  33. Next
    * p; ^0 @+ v$ f- G' _) t  ?
复制代码
" o4 x$ T2 k8 a, E7 n
  [- c9 Q; R! {! T. H3 S  G' E
作者: 叶飘零    时间: 2019-11-18 19:13
删除所有自定义属性
) S5 a  P" A1 a% c
  1. Sub main() '删除自定义属性  ]/ w3 z0 j5 [" }: a" g* ?: |3 [. ?
  2. Dim swApp As Object
    3 a1 `* A% \" G, S" ~5 x
  3. Dim swModel2 As SldWorks.ModelDoc2* P& D) r% H0 H
  4. Dim vCustInfoNameArr2 As Variant6 f6 W9 a! N6 q2 T
  5. ' W+ T: G% d' M& T
  6. Set swApp = _
    2 k5 _# {3 i: R& V* q5 C7 R6 Y
  7. Application.SldWorks) D- ^2 S, b# m: S

  8. 2 y" N/ B: M' S6 D
  9. Set swModel2 = swApp.ActiveDoc7 f& ^- g% ~2 ?6 U+ \) G; x

  10. 1 m1 Z6 n  d1 v+ p& H# Q
  11. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
    . O+ G( R: s& K5 C

  12. $ O3 c5 R/ t( C. u
  13.   If Not IsEmpty(vCustInfoNameArr2) Then4 B" m! p% k; ]8 G9 A5 K
  14.      For Each vCustInfoName2 In vCustInfoNameArr2
    + G- H- C7 ?' V5 R, x, W5 p
  15.          bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    * t6 A: V5 h3 ?2 t; t, [
  16.       Next: b; y3 n; c' s9 {
  17.   End If
    8 E' a# f0 M( V5 {2 u8 ^
  18. End Sub+ |  j, a7 z/ d$ K6 U; x* R
复制代码
作者: 零度freedom    时间: 2019-11-19 08:57
谢谢楼主，保存先，后面应该有用
作者: 远祥    时间: 2019-11-19 18:11
感觉楼主分享，适用于哪个版本呢？
作者: 叶飘零    时间: 2019-11-19 22:46
远祥 发表于 2019-11-19 18:11
8 T; o9 b# q8 W' ]5 o感觉楼主分享，适用于哪个版本呢？
$ ?3 `6 C6 d" V+ U. f$ ^
宏是不分版本的，适用于SW任何版本。4 Z8 `, f0 b! c" w: R
作者: 奋斗GS    时间: 2020-2-5 00:07
那位麻烦告诉一下，我复制这些代码怎么变了内容？
作者: 大侠很忙    时间: 2021-7-26 15:08
这两个宏可以合并嘛
作者: machel77    时间: 2023-10-7 11:28
牛，今天帮我解决实际问题了，谢谢



欢迎光临 机械必威体育网址 (//www.szfco.com/) Powered by Discuz! X3.4