|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 ning84 于 2014-10-10 17:43 编辑
2 E$ j4 T. `. z0 g2 s- p2 o; V- z3 x2 L/ h6 V) E
4 R$ A; \% F4 p& v) g) x+ e& x$ l$ d6 V6 T9 k
采用“系列零件设计表”建立三维模型。插入材料明细表方法如图所示。
: c) W. c x p; g, Z* a+ @8 }* O7 C' ]" ?4 u
现在采用的方法是用手工操作
6 F9 S$ _" g% [: Z材料明细表的配置与“系列零件设计表”的配置进行一对一的匹配。
; I: u" A$ P L! |9 h1 I人工一对一匹配,极易出错。
9 j" _ d @+ u+ m7 I问:是否有更简单实用的方法,让材料明细表的配置与系列零件设计表的配置,进行一对一的匹配,提高工作效率,降低差错率。1 ~! L+ {) O5 Q6 T+ X4 E
$ V& y' M V$ O9 N Z* D$ L- |+ s***************
4 u" ?( ]2 u" U采用API方法也没有得到解决。' c( a# q' t" w9 l( J) x$ X6 J( f" O/ P
Private Sub ll1010()
9 W( l0 |8 U# d+ {/ C4 ~ Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2* a q" z+ t3 [5 a7 J' z/ x# ~
Set SwApp = Application.SldWorks: Q& C) r" \( Q5 I% Z( U
Set SwModel = SwApp.ActiveDoc
3 T+ }+ N4 s! O }2 e; x' [ Dim SwFeat As Feature, Str; n& ]5 S) ]" F, c4 u& t9 k9 E
Str = "材料明细表1"& x2 U5 t; W: u6 E( g6 f$ j6 p
Set SwFeat = SwModel.FeatureByName(Str)
; Z' _5 d. g$ F6 N 'Debug.Print SwFeat.Name4 k6 {; d! v- B+ V$ N
Dim SwBomFeat As BomFeature' L6 }, Y( U2 D. F
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, W8 O9 _4 T/ p0 o/ i
Arr = .GetConfigurations(False, Visible)2 b, U% O7 r/ E |
Debug.Print .GetConfigurationCount(True). W0 ]$ Q5 `, _
Stop) n8 H2 A8 V! n& q; \+ q4 p& |
End With) R! a- h; F; E0 y: m4 C) a# [
End Sub+ f! K3 i: k7 N# ~+ f V, g
: S- Z8 J% \* _# E! q
, ~" Y$ C4 m( ~3 z9 q- a% |
. q, Y5 E: S" G% q- V- ` l& u3 G. V; R( \* f" A7 ^6 f
|
|