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

ning84

$ T( j. L% K, i+ X6 k4 e$ {; v


- b4 J" c& Y4 u# G3 ~删除系列零件设计表如图所示。
  I) L2 f3 ~* F' @


; r* O0 r! n3 A' T0 s) i右键删除配置

' Z- T- F5 d% N' A5 G用VBA完成上图代码如下
Sub lll()
: E6 e, [- V( m  Dim SwModel As ModelDoc2
  Set SwModel = Application.SldWorks.ActiveDoc
" e  z4 X' }$ G/ |( I' K: L# s  Debug.Print SwModel.GetTitle
  With SwModel
    ss = .GetConfigurationNames
    ' .ShowConfiguration "b"
% O0 _1 A$ g. V/ n: F    '.DeleteConfiguration "c"
2 r3 q- L! l* a  H    For ii = UBound(ss) To 0 Step -1
       Stop
2 Q9 o5 Z8 Z: Z0 `       .DeleteConfiguration ss(ii)
. R; |. ~8 [* c, ]! [       Stop
9 o" x7 Q9 U) o- [    Next ii
: D3 @, Q5 t6 J2 z  End With
End Sub
5 G* A; {9 U1 R- g. X7 Z% W7 E
+ e9 o* o  s, h7 h0 T


& \2 c/ Z* K+ e* ~8 z8 Q

: Q3 t8 }9 _9 ]4 F- N