【分享】Replace BOM Table

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

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

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

x

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

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

'Replace BOM
) g8 [8 C, N3 v" `# y9 E
'刪除原工程圖中的BOM,並插入新BOM到指定的座標
# }; ^. r' p4 L0 i1 o$ Z( c; C
Dim swApp As SldWorks.SldWorks
8 o. ^+ f" m5 R
Dim swModel As SldWorks.ModelDoc20 [" v) i0 g0 W; j# S" Q
Dim swSelMgr As SldWorks.SelectionMgr( h4 W w- a1 O4 @* z" Q
Dim swFeatMgr As SldWorks.FeatureManager
1 X$ \6 `; g; X4 t- \
Dim swFeat As SldWorks.Feature h; ]' s# H/ C0 X7 M
Dim swView As SldWorks.View
6 P( I# d8 p2 X4 O* x% e5 H0 f3 g2 W
Dim swBomAnn As BomTableAnnotation
, O1 Y2 e' e) F' [8 b. y# `+ ?! n
Dim swBomFeat As SldWorks.BomFeature: j7 J: q; h# y- n
Dim anchorType As Long* W, \0 k" E: ?" f
Dim bomType As Long4 h, O4 ]! ]9 } I' V
Dim configuration As String* y) ?4 B6 G8 E( J# N
Dim tableTemplate As String
% }1 X: m- h; C! w) Z+ u3 C i
Dim Names As Variant8 ~' d, B" w9 d/ B% y' E- F3 i: m
Dim visible As Variant
" l. M" T9 }; L! m& ^" u- s, S
Sub main()
: r/ C* Y+ i3 r% z6 V
Set swApp = Application.SldWorks+ V& B5 Z& {3 `9 m" G- V3 ]
Set swModel = swApp.ActiveDoc
( p% ?# M+ H% H; ?. I; G+ j
Set swFeat = swModel.FirstFeature
+ Y( m- R' n3 W: I5 M$ |9 R7 M
While Not swFeat Is Nothing
\/ \, y+ l. e: l; _
If "BomFeat" = swFeat.GetTypeName Then
4 u* o" m7 T( _& r4 j# M
swFeat.Select2 False, -1
# h1 N9 u+ h7 R7 {3 [
swModel.Extension.DeleteSelection2 swDeleteSelectionOptions_e.swDelete_Absorbed/ v; }0 p: c7 ^; Q2 V: S" C$ c
End If
- {% y( v3 X- A8 F
Set swFeat = swFeat.GetNextFeature
: ]1 N; l9 N& a2 e% N
Wend
: ]- }8 H" {2 S
Set swSelMgr = swModel.SelectionManager
9 ^6 k& |2 _3 X4 y
Set swFeatMgr = swModel.FeatureManager
8 o$ s% o9 \- c: W0 N
Set swDraw = swModel2 B' w0 \2 e' I0 g
Set swSheet = swDraw.GetCurrentSheet
3 [& V. c* S: L' y2 @7 V
'Select View
9 W6 S7 H H9 q" X' l |
swModel.ClearSelection2 True
! i* y9 N' Z3 f8 X' J
Set swView = swDraw.GetCurrentSheet.GetViews()(0)
" b$ w0 h( E P
'Insert BOM Table# n& M" ^5 R# q: z' J9 M0 E+ [
anchorType = SwConst.swBOMConfigurationAnchorType_e.swBOMConfigurationAnchor_BottomRight
' ~ w$ v. i& ]1 `
bomType = SwConst.swBomType_e.swBomType_TopLevelOnly
4 g; V& j9 m+ P
swModel.ClearSelection2 True, K9 _- o& y7 [$ j2 |4 |
configuration = ""
2 H+ O. e: G) X3 e- `- I
tableTemplate = "" '<---在雙引號內輸入新零件表模板完整路徑; C4 E/ [1 g3 p3 ^1 |. e' c" ^
Set swBomAnn = swView.InsertBomTable2(False, 0, 0, anchorType, bomType, configuration, tableTemplate)( X' B* T; N+ `& [1 I9 f( M S+ ]
'上一行代碼中,False後接的 0,0 即為工程圖中的 X,Y 座標值,自行依需要插入表格位置修改,唯注意比例是 1:5000
! K+ U* ^! U: p% q: V1 f3 i6 K% e: g
Set swBomFeat = swBomAnn.BomFeature
8 g7 m. A. z/ E5 S8 J' P
Names = swBomFeat.GetConfigurations(False, visible)( m% r5 E s. E8 t# R
visible(0) = True) f! j: X" t! L6 F' n
boolstatus = swBomFeat.SetConfigurations(True, visible, Names)
4 \& l9 g$ T9 h, {
swFeatMgr.UpdateFeatureTree1 F9 ]: x) z, ^2 M! Z* c, K
End Sub

复制代码

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

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

通知

[分享] 【分享】Replace BOM Table

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

评分

浏览过的版块