|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 ning84 于 2014-10-10 17:43 编辑
2 r! D; b. Z1 N# _
/ H9 U+ Y8 W) c, Z5 A/ L. q$ w
5 t* A- i/ D- C; W7 {7 }( z: o- _3 \5 q5 {& l, p: X5 T9 }
采用“系列零件设计表”建立三维模型。插入材料明细表方法如图所示。% H# K c) ]8 z4 J2 {' |' l; ^) b# @
" S! _9 O2 x7 }9 q a* P
现在采用的方法是用手工操作
8 @( e$ t0 O7 p6 n0 e2 ~材料明细表的配置与“系列零件设计表”的配置进行一对一的匹配。
9 V& h2 j/ I5 y% R人工一对一匹配，极易出错。/ Q# n4 V* W) n* p. t
问：是否有更简单实用的方法，让材料明细表的配置与系列零件设计表的配置，进行一对一的匹配，提高工作效率，降低差错率。
) h5 n& a |7 U2 i0 w- N# N- B7 Z# f2 {& q F1 I. t6 N
***************
. v. n/ ]! g+ c; R采用ＡＰＩ方法也没有得到解决。
( L0 J5 h' B" q2 @Private Sub ll1010()
- v) z# v1 K, e2 L6 N3 L% \5 E Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc20 J: y) x* D' \; ?" q
Set SwApp = Application.SldWorks3 [% ~) d+ n% ^$ O6 f; D( t" Z
Set SwModel = SwApp.ActiveDoc
& }' a( `' t \ Dim SwFeat As Feature, Str+ R9 s. m$ n' ^( H; A8 y
Str = "材料明细表1"
/ Q- G$ z. E' K e: N Set SwFeat = SwModel.FeatureByName(Str)" ~6 S6 Z C" s8 f! F: l
'Debug.Print SwFeat.Name
0 `' h7 K9 l' k" A @; p& a Dim SwBomFeat As BomFeature
0 R& u/ J( M1 k( t& r+ s Set SwBomFeat = SwFeat.GetSpecificFeature% Z& P/ I% e/ s) q
Dim Arr, Visible As Boolean4 e' r5 w$ q# L* v6 t5 w
With SwBomFeat* I0 M; s+ {- b% ]5 B+ X( W
Arr = .GetConfigurations(False, Visible)" l/ R: g+ m8 G
Debug.Print .GetConfigurationCount(True)
5 q9 ^6 b3 J1 X3 M/ [+ Y9 G! ~ Stop
8 A# C4 C1 Y2 z8 Z. N! ] End With: {$ H7 M$ z, y v# Q( w& d
End Sub
* P7 Q" P, Q. G" A# m6 V$ t9 U( ~- v0 _
4 I" H$ {- ~* [& E. l& L- F5 m
6 N. k9 J/ z$ u0 a
* W7 I+ R0 L- B$ J, W! D |
|
发表于 2014-10-10 16:23:08
