删除系列零件设计表的配置？

ning84

7 w7 p1 m) T! p$ t% j4 ]* D
# d+ n$ q% A2 H1 h& Y1 E# E
删除系列零件设计表如图所示。
2 U# t7 H  G  w

7 ~8 d% F6 J$ b" `3 }2 g" @0 |
# N7 H" `5 `: [5 t# n右键删除配置
, {# J- H; w) X! k' I% v- ~. p
8 U# j/ O$ u3 s- R% ?- x用VBA完成上图代码如下
! R/ f" ?0 |! o0 QSub lll()
3 G% m) m# u: V# X  R- ?  Dim SwModel As ModelDoc2
  Set SwModel = Application.SldWorks.ActiveDoc
+ t/ T) b8 _% W$ Z$ i+ _) Z  Debug.Print SwModel.GetTitle
  With SwModel
# R7 q' Q3 f, b/ b( K    ss = .GetConfigurationNames
2 [3 h/ T8 @9 l9 P    ' .ShowConfiguration "b"
    '.DeleteConfiguration "c"
. i$ e5 D+ Y" S6 f4 Y9 W    For ii = UBound(ss) To 0 Step -1
( |& \& C. h" ^5 c4 O6 E2 \       Stop
: X% c/ h3 J5 t) y0 o! s       .DeleteConfiguration ss(ii)
       Stop
    Next ii
* D, K; F0 W& H$ F' I1 J9 i$ c  End With
# S( @; g+ d$ i& S! T2 bEnd Sub

1 k; C4 p' W- K+ T
( X8 L1 M% G! ~9 j" M- x( M- a$ e* Y


2 V! o4 p1 K8 S$ `# Z. y
. V# l# x( A0 k$ L: Z! C0 G/ O& p& R