【分享】Replace BOM Table

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

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

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

x

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

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

'Replace BOM @* y; F5 M; [# r3 k
'刪除原工程圖中的BOM,並插入新BOM到指定的座標; _3 {% p! W' `' ^5 G
Dim swApp As SldWorks.SldWorks/ k& [; M4 n/ B0 P/ k: T& r
Dim swModel As SldWorks.ModelDoc26 ?; h2 x: j' [
Dim swSelMgr As SldWorks.SelectionMgr
* i$ h1 G( d1 {, [( y3 @! u
Dim swFeatMgr As SldWorks.FeatureManager
/ F/ V8 I6 I3 F/ y: H1 O7 D
Dim swFeat As SldWorks.Feature
4 A6 c) B5 I$ C" h$ p4 l. N+ O
Dim swView As SldWorks.View
& m% A3 P1 l, g; x% B5 y3 u2 v
Dim swBomAnn As BomTableAnnotation1 D; [2 G c/ t
Dim swBomFeat As SldWorks.BomFeature; a* m! Q7 r6 N& {& d
Dim anchorType As Long9 \7 i* F* ~) x) S! Z
Dim bomType As Long) x% Z* n+ n; g; K1 Q
Dim configuration As String
4 S+ a& t( n) y/ L. q6 a. w
Dim tableTemplate As String. b. e/ h# c( y% X$ `* \ ] }2 o
Dim Names As Variant( @0 h9 w" V- l. o8 h$ L3 O
Dim visible As Variant+ f* Y+ ^$ E- t4 T# {
Sub main()
+ A) y; b& X$ F( o3 ^. u, Y
Set swApp = Application.SldWorks6 b. u3 s) P% Z& a: S
Set swModel = swApp.ActiveDoc* r" g) c: E: T: T( ?
Set swFeat = swModel.FirstFeature
n6 {$ F# H! R
While Not swFeat Is Nothing
. y' h: s& I! v6 \3 }# H% P3 H
If "BomFeat" = swFeat.GetTypeName Then
& a3 j" U) d2 h8 o2 b8 c
swFeat.Select2 False, -1) y6 ^$ o. |' c2 O3 g' R
swModel.Extension.DeleteSelection2 swDeleteSelectionOptions_e.swDelete_Absorbed
( Y) Z- b! f( v9 H
End If# F) i3 M8 g. M8 p- e8 Q. Q
Set swFeat = swFeat.GetNextFeature
# ` Z c! B; _4 y
Wend
3 K- B) ~% e) n2 i$ n" G* T2 A+ S
Set swSelMgr = swModel.SelectionManager
6 q& `: ?& {, b W1 e' @3 Z
Set swFeatMgr = swModel.FeatureManager
g8 l9 ]- m- W9 g) P4 g
Set swDraw = swModel
8 |& d: [) T6 ]6 C
Set swSheet = swDraw.GetCurrentSheet
9 m/ y9 e& m; L
'Select View8 o' f3 v9 A w2 O9 O: d, z
swModel.ClearSelection2 True: _( }% `& ?4 X6 M0 j. {
Set swView = swDraw.GetCurrentSheet.GetViews()(0)# ]5 a4 x' m/ {8 b+ }* P' z# n9 Y
'Insert BOM Table
1 S; T6 @" @+ _% W9 z
anchorType = SwConst.swBOMConfigurationAnchorType_e.swBOMConfigurationAnchor_BottomRight2 F' u* i! e) V; c# C3 K$ c7 X
bomType = SwConst.swBomType_e.swBomType_TopLevelOnly
* ^6 [; @, n) m5 S
swModel.ClearSelection2 True
. q- b" @* |8 G0 V0 o& t4 Z
configuration = ""
8 S! u+ I& x- C# V u" |' Z
tableTemplate = "" '<---在雙引號內輸入新零件表模板完整路徑
4 A6 D4 A9 Z* V& F; h4 k
Set swBomAnn = swView.InsertBomTable2(False, 0, 0, anchorType, bomType, configuration, tableTemplate)
! K$ D+ F! `' w0 b; M4 [2 t& S
'上一行代碼中,False後接的 0,0 即為工程圖中的 X,Y 座標值,自行依需要插入表格位置修改,唯注意比例是 1:5000
; [) J) a4 o+ c/ V. b/ ^
Set swBomFeat = swBomAnn.BomFeature+ ^& P; r9 J; Q8 E9 d* n
Names = swBomFeat.GetConfigurations(False, visible)
0 h1 W3 o0 P/ l
visible(0) = True% a1 u+ K0 a- h
boolstatus = swBomFeat.SetConfigurations(True, visible, Names) l2 ~0 a+ S$ `) A) J4 w! L$ E
swFeatMgr.UpdateFeatureTree) x3 x. p+ q, X; V% y
End Sub

复制代码

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

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

通知

[分享] 【分享】Replace BOM Table

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

评分

浏览过的版块