【分享】Replace BOM Table

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

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

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

x

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

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

'Replace BOM# _+ [& n4 x- o
'刪除原工程圖中的BOM,並插入新BOM到指定的座標4 O4 r/ O! L1 e& U
Dim swApp As SldWorks.SldWorks6 G) Z& L* ^# ~: R1 F
Dim swModel As SldWorks.ModelDoc2" O: g) O) }& k# M0 W) c
Dim swSelMgr As SldWorks.SelectionMgr `- I/ ~' B9 V' M/ z
Dim swFeatMgr As SldWorks.FeatureManager9 y; a" p7 u3 Z6 ]8 n8 J) b8 N
Dim swFeat As SldWorks.Feature0 s+ v% x# m! ^6 j
Dim swView As SldWorks.View
; y$ q S6 ?; }
Dim swBomAnn As BomTableAnnotation
) ~8 j# r: q8 a" U( Y
Dim swBomFeat As SldWorks.BomFeature' h- Y$ t0 r& l; B5 Q+ v7 e
Dim anchorType As Long' C6 W8 D/ V4 U0 m' t4 W
Dim bomType As Long; y" J3 O# V6 `0 S# ]/ ]3 e+ F/ n
Dim configuration As String/ p9 Y; m$ y3 q. T6 k
Dim tableTemplate As String0 c2 B7 b( J9 U/ r! L ~
Dim Names As Variant/ T! ^ u$ B+ d# z
Dim visible As Variant
& e: P4 Z2 c; H) Q* g, y3 ]4 Y
Sub main()) W4 Q5 V1 r2 h3 ?2 r7 f5 ~
Set swApp = Application.SldWorks! X8 m- i' ~0 C: X+ X/ q! e0 B
Set swModel = swApp.ActiveDoc
6 \4 M7 y z$ b8 y6 H a% V( S
Set swFeat = swModel.FirstFeature
8 S: K( _) f+ D; S2 E
While Not swFeat Is Nothing
0 G+ A; q! Z7 U2 k- [5 n9 M3 Y3 w
If "BomFeat" = swFeat.GetTypeName Then7 `- L1 l8 d r* H
swFeat.Select2 False, -1
& S O$ N w0 z: t
swModel.Extension.DeleteSelection2 swDeleteSelectionOptions_e.swDelete_Absorbed0 k; f* ?8 v: t+ \8 j; \4 a
End If, z5 K$ r: H N6 z6 T
Set swFeat = swFeat.GetNextFeature
& o2 B5 S5 x% z- g2 B
Wend
$ M9 g" A# q, e7 J/ w
Set swSelMgr = swModel.SelectionManager
. l5 A& n! F9 I1 O, N. I
Set swFeatMgr = swModel.FeatureManager
, ]# v; m. { T8 T, Y
Set swDraw = swModel
. @8 e1 ~ R, u2 ~3 G
Set swSheet = swDraw.GetCurrentSheet
$ t% z$ {6 Q, G8 G+ J( G
'Select View# n- [5 n D5 } |9 Z, V
swModel.ClearSelection2 True8 Q' l2 E/ I, Q" A
Set swView = swDraw.GetCurrentSheet.GetViews()(0)
8 ]) ~6 u% W- q0 N! [" Q
'Insert BOM Table
7 P2 _, t$ `3 |: H
anchorType = SwConst.swBOMConfigurationAnchorType_e.swBOMConfigurationAnchor_BottomRight
8 f$ n5 o3 Q: P% r/ c J9 @2 A
bomType = SwConst.swBomType_e.swBomType_TopLevelOnly, `$ u: n3 P3 u
swModel.ClearSelection2 True
h ?4 R/ I1 C
configuration = ""
4 \% A2 o7 I" `- d! ?+ t, t
tableTemplate = "" '<---在雙引號內輸入新零件表模板完整路徑
4 N- O$ p# ^+ `4 I6 K( A! j3 z: n& t
Set swBomAnn = swView.InsertBomTable2(False, 0, 0, anchorType, bomType, configuration, tableTemplate)
" ~ {/ l- p; D8 F5 f! Z
'上一行代碼中,False後接的 0,0 即為工程圖中的 X,Y 座標值,自行依需要插入表格位置修改,唯注意比例是 1:5000 q t( V. \9 k R0 T5 _
Set swBomFeat = swBomAnn.BomFeature
% ]$ ~5 c: T" r
Names = swBomFeat.GetConfigurations(False, visible)
* n+ l( C6 u4 v" w- f& I3 S3 I
visible(0) = True1 s0 p3 t! ?7 N% w3 j
boolstatus = swBomFeat.SetConfigurations(True, visible, Names)
% ]* m' Z1 u7 t' s
swFeatMgr.UpdateFeatureTree
4 Z2 j* O. d& Z' ~! Q* u7 ]
End Sub

复制代码

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

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

通知

[分享] 【分享】Replace BOM Table

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

评分

浏览过的版块