【分享】Replace BOM Table

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

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

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

x

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

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

'Replace BOM
# X& @: w9 p* G4 r+ b' v; Q& i1 e& m6 X
'刪除原工程圖中的BOM,並插入新BOM到指定的座標
( C- o2 F/ X4 J' b, y* S. z; {1 q/ E
Dim swApp As SldWorks.SldWorks; s0 a. p2 W: ^/ V& @
Dim swModel As SldWorks.ModelDoc2
9 C, q% O* j- K3 G0 n
Dim swSelMgr As SldWorks.SelectionMgr3 F4 {7 x2 ?, x: ^; _& ^
Dim swFeatMgr As SldWorks.FeatureManager' i5 ]$ @5 ~0 g. S
Dim swFeat As SldWorks.Feature4 j* W/ B+ F! H5 J9 `# j9 q
Dim swView As SldWorks.View/ F$ i8 |6 z. k
Dim swBomAnn As BomTableAnnotation, D+ y; g1 ~4 p# R3 [
Dim swBomFeat As SldWorks.BomFeature
; K' T w1 e5 K2 e+ }* |" l$ ?# t
Dim anchorType As Long; k0 v) v( r$ q2 T
Dim bomType As Long
' ]9 @) |2 U, D: L5 K: S8 J
Dim configuration As String& S7 r( ?/ [7 f9 K1 e% p
Dim tableTemplate As String$ B2 }% A/ t$ r5 W4 i8 Y
Dim Names As Variant b$ {" V5 e+ M! e- X q \
Dim visible As Variant
; R" i- s4 ]+ i- y7 _3 D: z
Sub main(). L2 L& R# y% U; p' }0 ^
Set swApp = Application.SldWorks! d E2 y- N' }+ h
Set swModel = swApp.ActiveDoc
{" U" `8 C k" r$ N
Set swFeat = swModel.FirstFeature7 t. n- |2 Q \0 Z3 U
While Not swFeat Is Nothing
8 W1 \& U+ J; `# ~$ N) c
If "BomFeat" = swFeat.GetTypeName Then
p/ |9 U- G1 x3 x
swFeat.Select2 False, -1 Z5 v! u& L S) D7 c
swModel.Extension.DeleteSelection2 swDeleteSelectionOptions_e.swDelete_Absorbed* U8 g$ ^5 z* w& k
End If( J& H4 \) e7 D" U* _- D! U
Set swFeat = swFeat.GetNextFeature
6 \" s G3 l% j4 o# M
Wend
5 r& J* |, I; W! a; G1 A
Set swSelMgr = swModel.SelectionManager
0 f' g ^9 n& T4 p
Set swFeatMgr = swModel.FeatureManager
2 V! O* @" A' i/ q% p: t; S
Set swDraw = swModel
) L5 j% C' l# \. w( U
Set swSheet = swDraw.GetCurrentSheet
) d" `# r5 U9 R
'Select View6 k1 `& a2 `2 p, t& ^
swModel.ClearSelection2 True* y7 S* f% r4 K( o
Set swView = swDraw.GetCurrentSheet.GetViews()(0), K$ g" e G: V, Z& E
'Insert BOM Table1 V( K) k$ N6 [2 Y f. v
anchorType = SwConst.swBOMConfigurationAnchorType_e.swBOMConfigurationAnchor_BottomRight
2 u: U2 A4 o K
bomType = SwConst.swBomType_e.swBomType_TopLevelOnly1 A9 e" @4 S/ v" G$ D0 P
swModel.ClearSelection2 True% m* O, G8 b- T* |9 L( ^: F4 C
configuration = ""
2 }5 A# B4 {/ `" @* i
tableTemplate = "" '<---在雙引號內輸入新零件表模板完整路徑
. M" X2 E$ U; U- X) d! h
Set swBomAnn = swView.InsertBomTable2(False, 0, 0, anchorType, bomType, configuration, tableTemplate)5 l6 I4 P( X! j: N1 X$ j
'上一行代碼中,False後接的 0,0 即為工程圖中的 X,Y 座標值,自行依需要插入表格位置修改,唯注意比例是 1:50001 W1 h" t* _5 ? T0 B" \
Set swBomFeat = swBomAnn.BomFeature( M3 c. J+ O% h9 f; a8 n# @. U( b
Names = swBomFeat.GetConfigurations(False, visible)' [) k, l5 f8 W6 v5 D
visible(0) = True& ?8 Q% F- Q; T" v* F
boolstatus = swBomFeat.SetConfigurations(True, visible, Names); g* `2 M* p- m- s" @# S5 v- l
swFeatMgr.UpdateFeatureTree1 W* X6 R! e8 M- {) g: y
End Sub

复制代码

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

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

通知

[分享] 【分享】Replace BOM Table

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

评分

浏览过的版块