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

ning84

$ D( D$ I3 \: }% f4 a  a4 r

& m/ \; Y) ^/ G- g; q9 F
' B3 G: w$ O' [) I删除系列零件设计表如图所示。
4 b* t* ]( t+ P; l
0 m4 _& {& _. _  h
( C) ]! g2 n2 Y& W( c  C
7 _5 i9 M6 J8 ]2 b0 f右键删除配置
& D' O1 ^: O: ^% U# S* I
9 o6 f' U9 \. l7 K" X* s用VBA完成上图代码如下
3 B% y. d* g+ m8 H" ^4 Z0 z- u; lSub lll()
  Dim SwModel As ModelDoc2
6 l2 G. |6 G, x) o- f  q  Set SwModel = Application.SldWorks.ActiveDoc
; p# _4 }+ k( w8 [  Debug.Print SwModel.GetTitle
( F& F2 q7 d+ R2 j0 i! ^  With SwModel
    ss = .GetConfigurationNames
    ' .ShowConfiguration "b"
( ^+ A9 c% q% v' s7 l$ _  ]    '.DeleteConfiguration "c"
    For ii = UBound(ss) To 0 Step -1
       Stop
+ t# [5 j0 ^$ Q, M" l       .DeleteConfiguration ss(ii)
       Stop
) j: M/ @8 D7 {. H5 s    Next ii
9 X& H* O* v2 G+ M3 Z8 Q( W' i  End With
. O1 s; X1 s  F" GEnd Sub
8 A$ Q8 _  p( \

1 q! |5 P/ t. K' h7 }# ~
/ d! w+ V; Q' {" I( a+ ~
  ?3 E3 F) Q0 K/ t$ y% L4 p
1 l  Y! w, J+ g/ W" S: V# V/ k. N