如何提高在系列零件设计表中插入“材料明细表”的效率？

ning84

2 E$ j4 T. `. z0 g2 s

4 R$ A; \% F4 p
采用“系列零件设计表”建立三维模型。插入材料明细表方法如图所示。
: c) W. c  x  p; g, Z* a
现在采用的方法是用手工操作
6 F9 S$ _" g% [: Z材料明细表的配置与“系列零件设计表”的配置进行一对一的匹配。
; I: u" A$ P  L! |9 h1 I人工一对一匹配，极易出错。
9 j" _  d  @+ u+ m7 I问：是否有更简单实用的方法，让材料明细表的配置与系列零件设计表的配置，进行一对一的匹配，提高工作效率，降低差错率。

$ V& y' M  V$ O9 N  Z* D$ L- |+ s***************
4 u" ?( ]2 u" U采用ＡＰＩ方法也没有得到解决。
Private Sub ll1010()
9 W( l0 |8 U# d+ {/ C4 ~  Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
    Set SwApp = Application.SldWorks
    Set SwModel = SwApp.ActiveDoc
3 T+ }+ N4 s! O  }2 e; x' [  Dim SwFeat As Feature, Str
    Str = "材料明细表1"
    Set SwFeat = SwModel.FeatureByName(Str)
; Z' _5 d. g$ F6 N    'Debug.Print SwFeat.Name
  Dim SwBomFeat As BomFeature
    Set SwBomFeat = SwFeat.GetSpecificFeature
+ k# ?; D5 y* `3 P+ M7 {  H5 o  Dim Arr, Visible As Boolean
2 @, h6 d! R$ k: a" N# ]! h1 F  D: D    With SwBomFeat
       Arr = .GetConfigurations(False, Visible)
       Debug.Print .GetConfigurationCount(True)
       Stop
    End With
End Sub


, ~" Y$ C4 m( ~3 z9 q- a% |
. q, Y5 E: S" G% q- V- `  l