|
|

楼主 |
发表于 2013-11-11 06:36:47
|
显示全部楼层
来自: 中国甘肃兰州
本帖最后由 ning84 于 2013-11-12 07:26 编辑
) u# s0 e0 k) g% N& j+ P6 htangcarlos3d 发表于 2013-11-10 15:52 static/image/common/back.gif
5 j3 I# l: a2 m4 C: ZPro/e可以实现多模型视图,但也不能在一个BOM里与多个模型相关,只能在不同的BOM与不同的模型相关。
8 @( a0 u" q+ I+ g也就 ... SolidWorks Forums: API: Automating and customizing BOM tables (VBA)
# ]0 b: @ J# L7 C/ Uhttps://forum.solidworks.com/docs/DOC-1452+ T$ d) u6 T0 a+ Q8 z) T$ x
找一段API,表述BOM表的表头内容。目前需要解决的是找到其链接内容与实体链接的API。9 r& S0 ]5 t; E* @! X8 _
( v* @0 {% p3 [$ C; O
% \. Z) j/ {1 @+ J0 h
& y! U- ]6 N2 d2 W1 Q
. s& v" {% @3 I7 K$ j* Q Column(0) = * ]3 S) B3 I' x0 ?) @2 [
Column(1) = SW-File Name(File Name)7 k8 \( @; T6 s( X
Column(2) = Description
3 l( B, b; x- V( [% y/ d Column(3) = Weight
0 w& a' f2 G; }0 N0 g0 U5 b5 \ Column(4) =
) h0 O0 a+ d5 O0 ~ Column(5) = & H* i' R0 K6 P3 s- R0 J
7 y: Y# r6 k4 }0 I, ]
# w5 E$ b+ g9 z2 R! b! |3 N5 m' M
下面代码有个问题,不能表述清楚BOM表中的单元内容,是如何链接零件号。- Sub main()" i0 s* z) b( e8 `4 b( F- ?8 [& \
- Dim swApp As SldWorks.SldWorks
1 G' B: F m5 M$ e! V1 Q - Dim swModel As SldWorks.ModelDoc2
. P `. F) [* r0 r! N - Dim swSelMgr As SldWorks.SelectionMgr
- k1 j% m6 ?" g - Dim swBomTable As SldWorks.BomTableAnnotation
2 x, h! ^' Y( c- i3 l' n% c7 Z b - Dim vCustPropArr As Variant; \% f! G* e1 ?
- Dim vCustProp As Variant( ]% n- X U0 c7 R# m5 L/ s5 b
- ''
* E# {& s( \" t- U' v" L$ T - Set swApp = Application.SldWorks
1 T! u t& t2 @* G& C3 i# U* h - Set swModel = swApp.ActiveDoc6 H" W. |& r& T3 ] P7 t
- Set swSelMgr = swModel.SelectionManager
9 i4 D+ O1 P2 Z8 R - Set swBomTable = swSelMgr.GetSelectedObject5(1)
# l0 N& _5 s3 \! R9 z+ H: W1 p - Debug.Print "File = " & swModel.GetPathName
4 C- u; ^" J0 p+ d. E( ? @ j, C - vCustPropArr = swBomTable.GetAllCustomProperties
0 w. C' u9 T# N" ]" D2 o - For Each vCustProp In vCustPropArr
) Y- B: `9 g; w( ^% l( P0 x ~" m - Debug.Print " " & vCustProp- `5 e0 O: r- t! {- |
- Next vCustProp
8 \; D- @' J0 J, L( Y# D - End Sub
复制代码 |
|