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

ning84

' o1 o4 W3 p; N7 P
" r* G& i$ X! T' E! D: c
删除系列零件设计表如图所示。



6 R! U( X+ P9 d# U右键删除配置

9 T- }) V8 Q$ l, G" ~+ m用VBA完成上图代码如下
6 [5 D/ i$ o, J8 R( [' hSub lll()
* Y" }6 {  @1 p) m  Dim SwModel As ModelDoc2
  Set SwModel = Application.SldWorks.ActiveDoc
  Debug.Print SwModel.GetTitle
  With SwModel
    ss = .GetConfigurationNames
! V. y$ j7 ?' G& a9 J" N    ' .ShowConfiguration "b"
  n! q! t+ b# K    '.DeleteConfiguration "c"
. n# R7 W' T2 W* P    For ii = UBound(ss) To 0 Step -1
  }: F/ S' a* ~1 h* K9 T3 M  B- z, i  O# K       Stop
       .DeleteConfiguration ss(ii)
4 u/ N$ z2 {$ H, {# {. C3 t       Stop
    Next ii
* Q% W: g+ h5 U+ Z  End With
5 Q/ `# I3 {3 b6 P/ _! f7 pEnd Sub



0 U* X5 c7 D  ]  X( I8 _1 ^

! R4 r( Y( I5 `5 U4 Q, V2 J$ {
1 d3 s% f2 K2 J+ P$ U