【分享】Replace BOM Table

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

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

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

x

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

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

'Replace BOM
4 o$ m3 b0 O E3 e; ^
'刪除原工程圖中的BOM,並插入新BOM到指定的座標4 P! r1 M! R' ~ }) C
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
; `) S! N" N" f8 c, o9 ~! S
Dim swSelMgr As SldWorks.SelectionMgr: [) y/ W! ?; N( Z5 Z' J
Dim swFeatMgr As SldWorks.FeatureManager
/ _* b1 {$ c6 e6 p3 z2 I, R' }
Dim swFeat As SldWorks.Feature
. w& V& _$ s$ I2 T: K3 j! W
Dim swView As SldWorks.View% a' `- E3 }3 Z% g, F* G1 | _3 P
Dim swBomAnn As BomTableAnnotation- Q& b" \4 H& m5 K- }
Dim swBomFeat As SldWorks.BomFeature; j4 h1 t4 B2 s0 Z1 F1 S0 O
Dim anchorType As Long, e7 X" Q' p0 }! q, U
Dim bomType As Long) x; t; r% k3 I) ?4 E
Dim configuration As String
7 A; Z/ p" b" X2 v2 t q( A
Dim tableTemplate As String5 O x. N# B% ? [) _ L, z+ j
Dim Names As Variant' V$ K& u& C) X5 V& z* U% r- O
Dim visible As Variant
3 w) P( P) b! I+ w1 {8 {* L4 Q
Sub main()
# ^# j8 q+ |% e
Set swApp = Application.SldWorks5 L4 z% W4 P/ P' O* C4 J: O
Set swModel = swApp.ActiveDoc
) i, u) ^* o' E! V! B
Set swFeat = swModel.FirstFeature
# [* B+ t0 b' X* b' G$ J3 H+ m% \( e
While Not swFeat Is Nothing. S$ _( j! z5 @) F5 n
If "BomFeat" = swFeat.GetTypeName Then
( S1 q- r8 n; I# X
swFeat.Select2 False, -18 A% F5 y+ P3 [5 j+ [, O* A$ U
swModel.Extension.DeleteSelection2 swDeleteSelectionOptions_e.swDelete_Absorbed8 h6 w' C( a* v$ ]* C, R8 D
End If
( `1 Y& K# A! t6 ]7 N) F2 y5 V
Set swFeat = swFeat.GetNextFeature B$ J4 `( r& h- {$ n5 _
Wend @. Y" n# ~; u, m: T% \/ a
Set swSelMgr = swModel.SelectionManager
; b# E+ l7 v# B8 H9 }' e7 e$ K: ?
Set swFeatMgr = swModel.FeatureManager
; c$ G' y3 y+ n7 B: w3 ~
Set swDraw = swModel
; U- w$ o2 H/ [
Set swSheet = swDraw.GetCurrentSheet
3 ^. P. T4 P- Y% C$ A* q
'Select View
% ?( j# ~% s6 t
swModel.ClearSelection2 True
6 C. `2 }6 f% f0 Q9 {
Set swView = swDraw.GetCurrentSheet.GetViews()(0)$ A. u/ H" A$ D9 D5 k. ^
'Insert BOM Table( j+ I8 `( u8 p! A |
anchorType = SwConst.swBOMConfigurationAnchorType_e.swBOMConfigurationAnchor_BottomRight
2 J4 K4 D' I$ \! ]1 N7 e
bomType = SwConst.swBomType_e.swBomType_TopLevelOnly
: C! M% j i, W/ @+ @2 \
swModel.ClearSelection2 True
1 w. d) J. p- `% `& @+ Y
configuration = "", g; Q% n# J D, u. x3 q
tableTemplate = "" '<---在雙引號內輸入新零件表模板完整路徑% ]. d4 G3 S+ u" v, C, c! a
Set swBomAnn = swView.InsertBomTable2(False, 0, 0, anchorType, bomType, configuration, tableTemplate)( v" U9 U# T7 h
'上一行代碼中,False後接的 0,0 即為工程圖中的 X,Y 座標值,自行依需要插入表格位置修改,唯注意比例是 1:5000
6 S& V7 n+ c# a% ?& b
Set swBomFeat = swBomAnn.BomFeature' R( B2 _7 P8 P. W
Names = swBomFeat.GetConfigurations(False, visible)& [( E' U( k. V" y+ y ]& |
visible(0) = True! U' u' }! N7 P' C6 p4 w/ w: N) H" I: [
boolstatus = swBomFeat.SetConfigurations(True, visible, Names)& F% {* ^) M+ G M" v0 f
swFeatMgr.UpdateFeatureTree
% ] e: ~2 |" K7 N
End Sub

复制代码

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

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

通知

[分享] 【分享】Replace BOM Table

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

评分

浏览过的版块