|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 ning84 于 2014-10-10 17:43 编辑
" g% H) D$ A7 j3 F2 ^
6 `, U8 ^* M- B/ [7 q3 T
" b2 i% @3 N) w0 L* `5 B n* a( v7 x1 K# A7 L3 _2 o
采用“系列零件设计表”建立三维模型。插入材料明细表方法如图所示。; B! ~8 A5 C" b4 E
! X# W9 g3 J8 k9 V* e现在采用的方法是用手工操作5 k7 u ~4 R7 n6 M5 m, |( h- a
材料明细表的配置与“系列零件设计表”的配置进行一对一的匹配。2 \, U8 O; b+ z0 y. o" t, X
人工一对一匹配，极易出错。
t5 }4 ^- ]5 E/ F2 X" D问：是否有更简单实用的方法，让材料明细表的配置与系列零件设计表的配置，进行一对一的匹配，提高工作效率，降低差错率。
0 v' c: n5 l" E* J; w6 {
; r' ~& T1 S. g9 m/ T***************
7 a% H% Y" X- }1 P, T F- l采用ＡＰＩ方法也没有得到解决。
! F$ i7 Q9 j0 l* O% ~# X: WPrivate Sub ll1010()7 i" Y) v& C7 P8 ^5 G
Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
* w% b5 Y! ]2 \: E7 d Set SwApp = Application.SldWorks
! F- e1 W0 A( e0 p5 v Set SwModel = SwApp.ActiveDoc
3 U& y/ ?* v) W1 N& _$ Q- D Dim SwFeat As Feature, Str$ G3 X' x# r/ a% n3 h. n3 p& _4 O' q: w
Str = "材料明细表1"
: Y' E( V7 Q3 [4 s) a5 p Set SwFeat = SwModel.FeatureByName(Str)
/ J2 N! C" y3 E3 q" A7 c: j2 t* ~ 'Debug.Print SwFeat.Name
9 Y; }9 \0 f* _ Dim SwBomFeat As BomFeature) M% H ]$ v% _' o3 j! l
Set SwBomFeat = SwFeat.GetSpecificFeature; q# o# S/ H, k
Dim Arr, Visible As Boolean
( i% f0 X, h4 f* Q4 [' c With SwBomFeat
' f3 V0 W5 s6 S5 r$ A Arr = .GetConfigurations(False, Visible)+ B0 q0 \+ w; V0 |6 q# E
Debug.Print .GetConfigurationCount(True)
$ B+ t8 d; N6 [: `8 C4 U1 f Stop
. u3 s7 N. x1 k K- n6 x _9 P End With
% b7 @% q9 Q. f/ q, J9 r8 V/ WEnd Sub
: Y7 ? F; A) q9 C; @, c4 L4 p( M E: P
8 z2 g) a% i' L/ e) S+ l6 U$ `
% F2 L2 k; ?6 N
7 T" Q/ F) b; w' O- O% H3 X! } |
|
发表于 2014-10-10 16:23:08
