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

ning84

) u  _& h  ~: Q
" m  B/ N7 P* t& m
1 f- x4 u( i8 Q% Z2 L* H8 v5 e
. }' ?5 x- h9 F/ t% b- K删除系列零件设计表如图所示。
8 Q4 q/ i1 i; }4 x4 Q% |- w$ P$ y
4 M+ I: F1 N- f# f7 d

右键删除配置

  {3 B  {4 u/ z" M# M5 Q0 ~用VBA完成上图代码如下
1 C& T4 e. s3 c( k" ESub lll()
  Dim SwModel As ModelDoc2
4 ?& D1 ?5 O2 Q1 X6 ^7 M  Set SwModel = Application.SldWorks.ActiveDoc
8 f( D! {/ l$ z: v  Debug.Print SwModel.GetTitle
  With SwModel
    ss = .GetConfigurationNames
    ' .ShowConfiguration "b"
" Z8 v, m4 ]( Z: {5 k5 k* ^    '.DeleteConfiguration "c"
    For ii = UBound(ss) To 0 Step -1
! b: L; s/ D1 M       Stop
       .DeleteConfiguration ss(ii)
       Stop
    Next ii
  End With
4 I; M1 s& w  w# F2 l' [( T$ ^0 d! N) tEnd Sub

6 z* L% w5 ?5 o9 P: W& x
' P" p% V2 u# |# \& C( [; J% i4 J
" a. U4 Q8 d* I& z( U
, Q1 S& q$ h1 l0 A
2 l, p- M) c1 w7 m# @
$ f5 Q! V) L2 o* G7 x: C