iCAx开思网

标题: 为了解决系列零件设计表问题，低配上网本能安装SW2006-SW2014 [打印本页]

---

作者: ning58    时间: 2014-10-13 13:08
标题: 为了解决系列零件设计表问题，低配上网本能安装SW2006-SW2014
材料明细表插入到系列零件设计表时。遇到的问题是，材料明细的配置与特征的配置不能一对一进行关联。
找了段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。

[attach]1208369[/attach]


[attach]1208370[/attach]

---

作者: ning58    时间: 2014-10-13 13:20
低配的上网本能安装多版本的solidworks，自己都不相信。
电脑型号宏碁 AO521 笔记本电脑
操作系统Windows 7 旗舰版 64位 SP1 ( DirectX 11 )
处理器AMD Athlon(速龙) II Neo K125
主板宏碁 JV01-NL (AMD 760G/780G/780V/785G/790GX/880G/890GX)
内存2 GB ( 三星 DDR3 1333MHz )
主硬盘西数 WDC WD1600BEVT-22A23T0 ( 160 GB / 5400 转/分 )
显卡ATI Mobility Radeon HD 4200  ( 336 MB / 宏碁 )
显示器LG LGD026E LP101WSB-TLN1 ( 10.1 英寸 )
声卡Conexant SmartAudio HD @
网卡鈺硕 AR8152 PCI-E Fast Ethernet Controller / 宏碁

---

欢迎光临 iCAx开思网 (https://www.icax.org/)

Powered by Discuz! X3.3