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

ning84

' P. C0 F1 |; M6 f) w; J

- M' X7 `7 v' h) K
删除系列零件设计表如图所示。
( P! V. _6 E) A0 H  V
, M4 p" M2 l& B7 @9 B4 [: `
9 O% P* _( c) o% d; @
( o9 r- g; @* U1 K6 g! g0 z右键删除配置
7 }: H' n0 G  k
2 D$ E, @5 T' n% }9 C/ Y用VBA完成上图代码如下
# v' b  e  }6 M) i" K* _$ q* F3 GSub lll()
  Dim SwModel As ModelDoc2
! @0 ]; j. l: x6 O4 p, K8 z  Set SwModel = Application.SldWorks.ActiveDoc
5 o3 j1 O$ l7 B) _: ]  Debug.Print SwModel.GetTitle
  With SwModel
0 U9 O8 F/ ^: R- O6 z    ss = .GetConfigurationNames
    ' .ShowConfiguration "b"
, E  j% R" K6 j9 }4 a. ~    '.DeleteConfiguration "c"
    For ii = UBound(ss) To 0 Step -1
% g8 u6 ~4 [! m- n1 b* i* a1 R! P       Stop
5 g* m, W  ~3 |; {       .DeleteConfiguration ss(ii)
$ G3 t+ j% |) B       Stop
    Next ii
( H# s4 I' C) I1 p( A# }  End With
End Sub
2 `! R8 m& ]6 E. w$ m
5 T* y+ K2 H( U1 {: e1 n0 {
5 M7 ~& z! S+ D! N* n3 X
! [+ F" F0 s" V2 e3 U


4 @: m8 p5 b2 N# A& }