|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 ning84 于 2014-10-10 17:43 编辑
$ X0 {& s8 H) _1 u+ X/ N; z' r( t {6 I
9 h$ q# ?, u1 N- T6 B/ [
! S5 t. p1 S6 D [! E采用“系列零件设计表”建立三维模型。插入材料明细表方法如图所示。0 T3 J: D- g& v9 l! p" I2 k5 B7 A
; j |( a* G: n( M l现在采用的方法是用手工操作0 O7 d1 v3 v9 e6 l: B/ ~* b
材料明细表的配置与“系列零件设计表”的配置进行一对一的匹配。
/ j2 ]( d& d- g8 a* L4 r人工一对一匹配，极易出错。
, r+ f1 P' X* P& N7 j: u问：是否有更简单实用的方法，让材料明细表的配置与系列零件设计表的配置，进行一对一的匹配，提高工作效率，降低差错率。
7 A4 m( {4 u6 n
# ]/ \1 q) h }" e***************& _1 T2 V& |* n6 _3 E. j
采用ＡＰＩ方法也没有得到解决。" b5 y% _7 @& E B( B; `( U
Private Sub ll1010()
) C3 ]4 O- l. I$ n/ E Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
Q" r5 p6 {) P5 x/ g Set SwApp = Application.SldWorks' D' e& c* e3 w( R7 X# I2 E7 c- L% j
Set SwModel = SwApp.ActiveDoc
: _ K- K8 d: p" x Dim SwFeat As Feature, Str
4 Q/ Q k: h5 U5 w Str = "材料明细表1"; U: i( ^5 N4 s
Set SwFeat = SwModel.FeatureByName(Str)
8 O8 s, s2 Y( w1 i! i% X 'Debug.Print SwFeat.Name" R' ]0 \0 s Z0 b& n5 h9 f" i
Dim SwBomFeat As BomFeature
2 [/ f# z8 O" @& i+ i Set SwBomFeat = SwFeat.GetSpecificFeature
" E( a2 D w. W- f2 R0 f# w Dim Arr, Visible As Boolean1 r- F6 C+ Q$ }0 e2 l
With SwBomFeat6 b9 f" k1 Q2 [. J8 G+ [+ w8 B! K
Arr = .GetConfigurations(False, Visible)" w- P3 j! ?) V6 I
Debug.Print .GetConfigurationCount(True)
- H& h k, D' x Stop
7 i* p1 x0 ?3 ] End With! z; P5 M/ R. j9 b! u$ a- s" \
End Sub
: G4 h! I9 E7 X M1 _ c
' x# J( e$ q5 x# x! l9 q! r5 H
8 D- o: r9 g9 o3 t& f
! q$ @+ H: f9 W% I, {$ Y' M |
|
发表于 2014-10-10 16:23:08
