【分享】Replace BOM Table

gt.adan · 发表于 2019-3-10 03:30:16

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 gt.adan 于 2019-3-10 21:44 编辑

壇子內有人問起，剛好前一陣子碰到一樣的工作要求。
取經了原廠論壇前輩們寫的巨集，自個兒瞎唬弄拼湊了一個還堪用的代碼…
老手用力噴！噴完請不吝指導更好的寫述方式~~

'Replace BOM, r& M( B% Y: {( G# F3 E8 B+ B
'刪除原工程圖中的BOM,並插入新BOM到指定的座標1 L W4 N* J4 K' o7 h" `
Dim swApp As SldWorks.SldWorks
' D! w7 ?* H+ j, p9 V {
Dim swModel As SldWorks.ModelDoc2( g6 Z s5 z. v% r
Dim swSelMgr As SldWorks.SelectionMgr
8 G+ W7 K1 c7 L! u: v- Y
Dim swFeatMgr As SldWorks.FeatureManager
" Z0 l: K& m8 Q9 \8 d) U( N8 T
Dim swFeat As SldWorks.Feature
# N7 O e' l/ X! D& A& }1 p
Dim swView As SldWorks.View
: p; Y I5 }+ ]2 |7 Q$ F
Dim swBomAnn As BomTableAnnotation8 b; b0 q+ T8 M, q
Dim swBomFeat As SldWorks.BomFeature& V# @! k$ m1 b# u N
Dim anchorType As Long
~" d) n1 y; x; Y3 V1 a
Dim bomType As Long
, \3 v( c" e" M- y* ?( s
Dim configuration As String
0 w/ U1 n# `0 ?9 F
Dim tableTemplate As String) L. {+ q( G) D- G4 K& n8 E
Dim Names As Variant8 U3 H5 S+ E1 n: J/ n* a( q" G
Dim visible As Variant
8 j+ e+ ^/ b1 f1 |# R1 \
Sub main()
Set swApp = Application.SldWorks
5 i3 s1 t8 g( t- J
Set swModel = swApp.ActiveDoc9 q- _6 s2 s; W0 h- Q/ ^- k. q
Set swFeat = swModel.FirstFeature7 I! `" X& x# B% r* P
While Not swFeat Is Nothing
" v4 e) t# ^* S: [8 [
If "BomFeat" = swFeat.GetTypeName Then, U1 c2 O# U. }) t9 S. g1 _5 I
swFeat.Select2 False, -1+ {7 Q; j/ W9 s0 O" ~; y/ o. o
swModel.Extension.DeleteSelection2 swDeleteSelectionOptions_e.swDelete_Absorbed' n: t( W4 R0 i6 b
End If
) B1 b* P3 E% v! [/ N
Set swFeat = swFeat.GetNextFeature
& R1 G( M" R* U! ?% y D0 J1 ]
Wend
p, G: n1 V( z
Set swSelMgr = swModel.SelectionManager
2 l2 m& n* X N/ K4 C% r- w
Set swFeatMgr = swModel.FeatureManager9 ^7 l+ y* {+ R7 Q& A/ w
Set swDraw = swModel$ v; B: Q/ C5 v. [1 Y. s6 s5 U
Set swSheet = swDraw.GetCurrentSheet, U5 l' _+ K9 b% G9 c
'Select View! \% q8 u! E! @. T% m
swModel.ClearSelection2 True
" _4 h* N0 [: o: d, L& [' t
Set swView = swDraw.GetCurrentSheet.GetViews()(0)
, C0 ?$ [* v) a( \
'Insert BOM Table
+ _6 M4 ?) v r9 ^9 U F
anchorType = SwConst.swBOMConfigurationAnchorType_e.swBOMConfigurationAnchor_BottomRight! C- y9 K7 E1 Y' k
bomType = SwConst.swBomType_e.swBomType_TopLevelOnly
! [! S3 x4 J6 \2 x0 m+ s1 _4 V
swModel.ClearSelection2 True: b# o8 C5 @8 P3 l- B
configuration = ""
7 r/ p x) v+ l, E! u
tableTemplate = "" '<---在雙引號內輸入新零件表模板完整路徑* o$ O% C) Y% I+ Z" P
Set swBomAnn = swView.InsertBomTable2(False, 0, 0, anchorType, bomType, configuration, tableTemplate)
8 A) {9 L9 O% `* z! b
'上一行代碼中,False後接的 0,0 即為工程圖中的 X,Y 座標值,自行依需要插入表格位置修改,唯注意比例是 1:5000
' [2 {2 I: ]2 [% h* I5 O
Set swBomFeat = swBomAnn.BomFeature
$ @0 B. Q: y5 [: w5 r
Names = swBomFeat.GetConfigurations(False, visible)
! p2 P7 T0 E* [5 A% w1 D% |
visible(0) = True% g4 A: S& @4 {0 T
boolstatus = swBomFeat.SetConfigurations(True, visible, Names)
) u$ y1 L% m( |4 y- z2 T
swFeatMgr.UpdateFeatureTree
/ c- J1 z* n+ k
End Sub

复制代码

PS. 此巨集僅為單一工程圖檔使用，有需要的朋友自便，
更可拜讀悶哥之前的教學「批量處理宏」，將其修改為更便利的工具。

		自动登录	找回密码
密码			注册

通知

[分享] 【分享】Replace BOM Table

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

浏览过的版块