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

ning84

/ @) z. o) c2 e! y. Y. C
1 G: A5 f" E% j- S7 W  b& X! j2 e

) F8 q# M  b; v- _, Z1 N删除系列零件设计表如图所示。


3 A& B) n/ B( g. }" ~
( u1 w- ?& b4 G8 A4 c. _5 ~' @9 I右键删除配置

9 u  O/ |3 `' f8 J6 n4 ?6 w用VBA完成上图代码如下
6 z) O/ t# @6 M% D+ Z5 rSub lll()
  Dim SwModel As ModelDoc2
  Set SwModel = Application.SldWorks.ActiveDoc
2 Z! ?! d, j6 y4 y  Debug.Print SwModel.GetTitle
  With SwModel
    ss = .GetConfigurationNames
5 N+ G; G2 q& W# s! Y    ' .ShowConfiguration "b"
: Z# C& n5 L! y+ T- w: |9 S    '.DeleteConfiguration "c"
8 `4 s: u* m" F6 n! X    For ii = UBound(ss) To 0 Step -1
% t: n& ?8 Q4 m0 M       Stop
       .DeleteConfiguration ss(ii)
       Stop
    Next ii
  End With
: M, V7 N  P% a: ]% vEnd Sub




5 G" g9 Y5 g! b! w
4 R/ ^4 Q% t% ?$ P. u