为了解决系列零件设计表问题，低配上网本能安装SW2006-SW2014

ning58

材料明细表插入到系列零件设计表时。遇到的问题是，材料明细的配置与特征的配置不能一对一进行关联。
找了段API小代码，问题也没有得到解决。

1. 
   
2. Private Sub ListBox1_Click()
   
3.   Dim SwFeat As Feature, SwBomFeat As BomFeature, Str
   
4.     Str = "材料明细表1"
   
5.     Set SwFeat = SwModel.FeatureByName(Str)
   
6.     Set SwBomFeat = SwFeat.GetSpecificFeature
   
7.   Dim S(0) As String, Visible
   
8.   Dim sConfig As Configuration
   
9.     With ListBox1
   
10.       
    
11.        Set sConfig = SwModel.GetConfigurationByName(.List(.ListIndex))
    
12.        SwBomFeat.Configuration = sConfig.Name
    
13.        S(0) = sConfig.Name  ''.List(.ListIndex - 1)
    
14.        SwBomFeat.SetConfigurations True, Visible, S
    
15.        Label1.Caption = S(0)
    
16.     End With
    
17. End Sub
    
18. 
    
19. 
    
20. Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    
21.   ''
    
22.   Dim SwFeat As Feature, SwBomFeat As BomFeature, Str
    
23.     Str = "材料明细表1"
    
24.     Set SwFeat = SwModel.FeatureByName(Str)
    
25.     Set SwBomFeat = SwFeat.GetSpecificFeature
    
26.   Dim S(0) As String, Visible
    
27.   Dim sConfig As Configuration
    
28.     With ListBox1
    
29.        Set sConfig = SwModel.GetConfigurationByName(.List(.ListIndex))
    
30.        SwModel.ShowConfiguration sConfig.Name
    
31.        S(0) = .List(.ListIndex - 1)
    
32.        SwBomFeat.SetConfigurations True, Visible, S
    
33.        Label1.Caption = S(0)
    
34.     End With
    
35. End Sub
    
36. 
    
37. Private Sub UserForm_Initialize()
    
38.     Set SwApp = Application.SldWorks
    
39.     Set SwModel = SwApp.ActiveDoc
    
40.   Dim ConfArr
    
41.     ConfArr = SwModel.GetConfigurationNames
    
42.     ''
    
43.     With ListBox1
    
44.         .List = ConfArr
    
45.     End With
    
46. End Sub

复制代码

没办法，只能安装不同版本的SW，问题还没有得到解决。
唯一的收获就是低配置的上网本，能安装多版本SW。

ning58