【分享】Replace BOM Table

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

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

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

x

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

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

'Replace BOM5 ~& V# D7 E3 N
'刪除原工程圖中的BOM,並插入新BOM到指定的座標8 T, N% f9 O3 I) R/ O2 J& x% |
Dim swApp As SldWorks.SldWorks
: n4 c) O$ e. E! w' W& k( p4 K
Dim swModel As SldWorks.ModelDoc24 W7 v; E7 L/ y% |, e
Dim swSelMgr As SldWorks.SelectionMgr
* z7 e; s* j9 l
Dim swFeatMgr As SldWorks.FeatureManager
- E$ r- A$ n8 P/ E! Y
Dim swFeat As SldWorks.Feature
* l, }7 p% ~* @# i
Dim swView As SldWorks.View' j- a: n& Z& ^+ |7 a
Dim swBomAnn As BomTableAnnotation
: `. i! V0 Y" d: j6 o
Dim swBomFeat As SldWorks.BomFeature' b9 R3 d# Y4 x
Dim anchorType As Long
' g6 R! H5 X5 n9 M$ M7 c
Dim bomType As Long
+ z5 [+ h' I5 P3 P2 @" t
Dim configuration As String
8 ?; H, \; q. u' P0 l
Dim tableTemplate As String
5 a w! j7 N3 W8 V
Dim Names As Variant7 B2 q" e" q p2 p: e; z
Dim visible As Variant
) r& }9 [, v( n8 E% ?1 F
Sub main()
$ s1 I7 X1 m. Q7 G* d
Set swApp = Application.SldWorks
0 a+ }$ o1 e2 `8 h3 N' R$ p$ t" ]
Set swModel = swApp.ActiveDoc
5 g0 m) R4 O& K( v; h
Set swFeat = swModel.FirstFeature/ k/ m# }3 k$ u+ ]) [$ @
While Not swFeat Is Nothing
3 w" C- m. q" k/ F
If "BomFeat" = swFeat.GetTypeName Then: F7 O/ F( s# `% I
swFeat.Select2 False, -1 f" \( W' G6 `8 k, P$ G
swModel.Extension.DeleteSelection2 swDeleteSelectionOptions_e.swDelete_Absorbed& f% A* y" y9 m9 e* y
End If
) ]& k) o, Z8 ^4 n/ v' B* ~
Set swFeat = swFeat.GetNextFeature: S" @2 X2 ~, i4 m7 b! _5 A
Wend* T, ?4 w# F( ^5 L7 E; i- _! w
Set swSelMgr = swModel.SelectionManager
: S6 @( ^- T* C2 j
Set swFeatMgr = swModel.FeatureManager
7 @) |/ S# q4 s( H5 S0 m- }
Set swDraw = swModel6 }. H& d/ a }# ]( p
Set swSheet = swDraw.GetCurrentSheet
" C( B1 V) ^2 ?3 }1 g) v* M
'Select View
4 M+ l2 o6 X3 }# r) F" ^3 q, }5 F$ U; C
swModel.ClearSelection2 True+ L: t) c. j# q! u0 T8 K
Set swView = swDraw.GetCurrentSheet.GetViews()(0)
. e. j' @) F6 U* m6 p3 s
'Insert BOM Table
J+ H; o" @% N3 {2 p
anchorType = SwConst.swBOMConfigurationAnchorType_e.swBOMConfigurationAnchor_BottomRight e2 m: J7 F0 U
bomType = SwConst.swBomType_e.swBomType_TopLevelOnly, Y* p$ N ^: r, c e6 E
swModel.ClearSelection2 True4 y1 B1 k" `: {+ v g( J
configuration = "") J$ A- W) I& P: w2 ?9 c
tableTemplate = "" '<---在雙引號內輸入新零件表模板完整路徑
: F: I* X5 U) t- D
Set swBomAnn = swView.InsertBomTable2(False, 0, 0, anchorType, bomType, configuration, tableTemplate)6 `+ ?9 L8 d. Q3 J# [4 e
'上一行代碼中,False後接的 0,0 即為工程圖中的 X,Y 座標值,自行依需要插入表格位置修改,唯注意比例是 1:50005 s- S) {; Y" o
Set swBomFeat = swBomAnn.BomFeature; T" T; L$ N7 Y0 Y" M& y
Names = swBomFeat.GetConfigurations(False, visible)
) f: z( i9 n# v4 m. B/ }
visible(0) = True+ {+ m$ i/ ~4 }& z: d; t* b8 S* c
boolstatus = swBomFeat.SetConfigurations(True, visible, Names)
5 c. l' l. }1 m7 d7 A* _
swFeatMgr.UpdateFeatureTree+ j F1 L$ i, ~+ l7 E
End Sub

复制代码

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

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

通知

[分享] 【分享】Replace BOM Table

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

评分

浏览过的版块