【分享】Replace BOM Table

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

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

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

x

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

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

'Replace BOM
$ K; N8 n* F/ w: k2 s' N5 `* j
'刪除原工程圖中的BOM,並插入新BOM到指定的座標
" z$ C+ M; t+ v0 T
Dim swApp As SldWorks.SldWorks
( c$ O5 X. d, u! p0 A8 {
Dim swModel As SldWorks.ModelDoc23 E4 m& i- V0 c% Y
Dim swSelMgr As SldWorks.SelectionMgr
5 @* F" j" S$ n( i5 p* `
Dim swFeatMgr As SldWorks.FeatureManager$ [+ g+ T6 h/ _) x6 T
Dim swFeat As SldWorks.Feature5 x' \7 ]: W, | q& ?7 v
Dim swView As SldWorks.View
$ d K4 L0 M+ W4 R7 X
Dim swBomAnn As BomTableAnnotation
2 s P& C( P$ o, O1 B
Dim swBomFeat As SldWorks.BomFeature
( d7 D! T' c% L; f4 d. ^' d1 X$ y. W
Dim anchorType As Long
% w( S+ ~5 C+ M" D/ |6 H6 q n
Dim bomType As Long" S* c- D* j: H6 w8 ^5 x8 N0 p
Dim configuration As String& x6 a0 g6 K: Q
Dim tableTemplate As String
0 Z& t6 O( ~* v2 M* H, E- i* V# O- `- W
Dim Names As Variant9 x3 d2 g1 r, r0 A4 ?$ H+ ~
Dim visible As Variant2 ~2 v- G' |. q3 |
Sub main()
( w) u* T; N! o) ?: O
Set swApp = Application.SldWorks% X& A( W& v5 S+ t
Set swModel = swApp.ActiveDoc
# s" z, F- L4 ?7 F7 j
Set swFeat = swModel.FirstFeature
* t8 N) ~: i& g- O6 L! t0 \
While Not swFeat Is Nothing
$ V; D0 t6 l2 I. v( D5 J. T
If "BomFeat" = swFeat.GetTypeName Then# F% d) n0 J' I1 N7 v
swFeat.Select2 False, -1
8 Q0 h8 ~: Z+ f0 m( {" c5 o, U
swModel.Extension.DeleteSelection2 swDeleteSelectionOptions_e.swDelete_Absorbed: V' X1 [8 Y# t+ S# ?! i
End If( o% \7 ?3 w/ N" ^, B
Set swFeat = swFeat.GetNextFeature
3 Y- h/ M; R4 K+ T- Y" O1 x3 T0 B. Q- C
Wend
/ h0 G) Z) F; H- w
Set swSelMgr = swModel.SelectionManager# R( H7 p1 ?6 G* F! c
Set swFeatMgr = swModel.FeatureManager( T/ r6 n# u0 o" k2 r+ n
Set swDraw = swModel
# D" ]& J2 g: Q! u% s5 q3 Y+ v
Set swSheet = swDraw.GetCurrentSheet
- A( I. {- }% i7 e
'Select View
9 J. k7 I! `( m3 d7 g) d) g1 X3 s# v2 t
swModel.ClearSelection2 True6 e4 u' ~) p* t4 q4 B
Set swView = swDraw.GetCurrentSheet.GetViews()(0)
! d/ m. n' `" y/ Z
'Insert BOM Table
, ~. U$ ]- |/ K4 ]$ L' l. T' I- K0 g
anchorType = SwConst.swBOMConfigurationAnchorType_e.swBOMConfigurationAnchor_BottomRight
* o2 V+ ?3 i; c$ t
bomType = SwConst.swBomType_e.swBomType_TopLevelOnly
; i8 ~5 S, k! K$ N9 X
swModel.ClearSelection2 True) X: ]* s- u9 s4 y# V6 b' B
configuration = "" s+ \4 [5 h4 |( V, }
tableTemplate = "" '<---在雙引號內輸入新零件表模板完整路徑+ d- `: p( u3 W1 {) m# ~: u/ \
Set swBomAnn = swView.InsertBomTable2(False, 0, 0, anchorType, bomType, configuration, tableTemplate)
& ~8 ^! d7 ?4 I+ A* v" ?
'上一行代碼中,False後接的 0,0 即為工程圖中的 X,Y 座標值,自行依需要插入表格位置修改,唯注意比例是 1:5000( r- d, I' d- N' ]; G
Set swBomFeat = swBomAnn.BomFeature Y9 i' {. d5 X' o- \
Names = swBomFeat.GetConfigurations(False, visible)
6 v3 ~7 J4 l {9 E
visible(0) = True
9 j5 [: k) N! j
boolstatus = swBomFeat.SetConfigurations(True, visible, Names)
: {% @+ f' y) H6 k7 T
swFeatMgr.UpdateFeatureTree4 X& o8 G7 M0 O: L- m
End Sub

复制代码

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

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

通知

[分享] 【分享】Replace BOM Table

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

评分