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

ning84

# W8 l8 T$ n% A4 I
8 \( D4 B% X2 D( K

" v  u& x6 e  w删除系列零件设计表如图所示。

" b* [4 }4 k1 L4 v. z5 l

0 H0 N+ e9 i, N3 Y5 D1 I. F右键删除配置

用VBA完成上图代码如下
* I0 c& E7 x( N. eSub lll()
2 c6 U; j1 g0 |( T5 Q9 M  Dim SwModel As ModelDoc2
  Set SwModel = Application.SldWorks.ActiveDoc
  Debug.Print SwModel.GetTitle
  With SwModel
    ss = .GetConfigurationNames
8 f; I" y6 S% e    ' .ShowConfiguration "b"
' n3 N) L, Z9 O    '.DeleteConfiguration "c"
' M9 ^- K$ Q; H9 x( @' |8 V3 P6 s0 }    For ii = UBound(ss) To 0 Step -1
0 R! w& Y3 v8 J' t+ a       Stop
       .DeleteConfiguration ss(ii)
       Stop
    Next ii
  End With
5 e" t! H7 X" i4 w. BEnd Sub


/ x7 l& H6 c/ u- O- i0 V/ r/ @