【分享】Replace BOM Table

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

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

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

x

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

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

'Replace BOM" C0 D6 v: ~6 v: K( |
'刪除原工程圖中的BOM,並插入新BOM到指定的座標
4 F/ O }9 H. G1 q7 H
Dim swApp As SldWorks.SldWorks7 S# y @( p, \* t4 }, Q
Dim swModel As SldWorks.ModelDoc2
9 W3 g; {& X( |$ j! q
Dim swSelMgr As SldWorks.SelectionMgr0 f0 \. E1 G7 A+ O; r
Dim swFeatMgr As SldWorks.FeatureManager
# L1 P9 ?( b% Z1 c: h: D
Dim swFeat As SldWorks.Feature M& ?- z! [$ @1 O
Dim swView As SldWorks.View3 H3 O7 S! R) ~) C
Dim swBomAnn As BomTableAnnotation" H: ^2 Z) a a! u
Dim swBomFeat As SldWorks.BomFeature
0 V% `% o( X7 \( ?) R
Dim anchorType As Long
2 r1 ^, \1 u2 d# ]$ H
Dim bomType As Long
) M% V; n1 O$ N; h6 s- `. L
Dim configuration As String
: v% W6 B/ q, { h1 A! I. u
Dim tableTemplate As String: D9 ]! T0 f4 Z; K3 b
Dim Names As Variant- h- H8 A8 p; M! h& _0 |4 V
Dim visible As Variant
/ j2 d1 I: w) t. o. H; |9 y
Sub main()
1 g6 T% N% Y# W1 y/ d, p2 E* z
Set swApp = Application.SldWorks
) [5 j) G( A% `" k. m
Set swModel = swApp.ActiveDoc! R d: `% O( E* q$ D6 f
Set swFeat = swModel.FirstFeature
: E3 E2 f. `( Z% z
While Not swFeat Is Nothing
9 H1 a* o4 K! V9 l8 J6 j% x
If "BomFeat" = swFeat.GetTypeName Then! I# T( U6 F8 W) |6 f- K# E) U0 ^
swFeat.Select2 False, -10 w, H0 s- y5 d' Y0 H: S
swModel.Extension.DeleteSelection2 swDeleteSelectionOptions_e.swDelete_Absorbed" _" P- d: ~6 C1 r; S0 j0 D
End If
0 F7 m7 b5 Q. q% I0 v' a
Set swFeat = swFeat.GetNextFeature3 h+ f! \6 L4 V
Wend
7 A' [# l. l- q+ P8 ?: I' z6 U
Set swSelMgr = swModel.SelectionManager1 [0 J7 a L3 t! c& k
Set swFeatMgr = swModel.FeatureManager
, W% x" N1 d4 H4 c
Set swDraw = swModel2 X& }7 |0 K$ d% a5 e) ~
Set swSheet = swDraw.GetCurrentSheet
W+ D7 t5 [1 ?8 y9 e6 Z
'Select View
0 X3 X$ D: y% Z$ M5 N
swModel.ClearSelection2 True$ f% U3 v4 F9 r) s, k4 S6 D" {
Set swView = swDraw.GetCurrentSheet.GetViews()(0)9 V( I( N- A5 T5 R' i( ]
'Insert BOM Table
' F" }( c: w" Y; F0 I! Q
anchorType = SwConst.swBOMConfigurationAnchorType_e.swBOMConfigurationAnchor_BottomRight
8 Q4 ]( R7 _4 q6 p4 k8 T- J4 v
bomType = SwConst.swBomType_e.swBomType_TopLevelOnly& E2 U& F/ }2 O! r8 i/ N
swModel.ClearSelection2 True
# b0 Z! H/ [7 R- l6 @2 a: |
configuration = ""
( k5 u4 }8 n9 e6 e& m+ j( l# }3 Z
tableTemplate = "" '<---在雙引號內輸入新零件表模板完整路徑
- E) R: ?8 x5 H \
Set swBomAnn = swView.InsertBomTable2(False, 0, 0, anchorType, bomType, configuration, tableTemplate)3 P- `4 e2 I+ v
'上一行代碼中,False後接的 0,0 即為工程圖中的 X,Y 座標值,自行依需要插入表格位置修改,唯注意比例是 1:5000( a# y$ Q) S. ?0 O3 q0 _+ H
Set swBomFeat = swBomAnn.BomFeature
- R& q1 j. J7 n0 N5 n" y- O
Names = swBomFeat.GetConfigurations(False, visible)
9 t0 w1 e# M7 c( ~7 `" w' p
visible(0) = True' H( s% F0 g" f5 k% G( h( F" o
boolstatus = swBomFeat.SetConfigurations(True, visible, Names)
" j/ b$ H) ^% g) L' y) M7 e0 U' A
swFeatMgr.UpdateFeatureTree
( n" d% K- v0 F7 X+ @
End Sub

复制代码

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

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

通知

[分享] 【分享】Replace BOM Table

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

评分

浏览过的版块