【分享】Replace BOM Table

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

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

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

x

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

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

'Replace BOM3 m0 ^. \/ }# r0 B9 r: L8 V
'刪除原工程圖中的BOM,並插入新BOM到指定的座標) X( V( i1 `; F8 V) o
Dim swApp As SldWorks.SldWorks
6 U; ^ j) y; g
Dim swModel As SldWorks.ModelDoc26 X, F, @" }% E! w5 g, m( J2 \; D
Dim swSelMgr As SldWorks.SelectionMgr
9 Q7 V6 f( q* [9 ~; k' H2 j4 ^
Dim swFeatMgr As SldWorks.FeatureManager
2 r8 ^) Z) U, z4 p2 E
Dim swFeat As SldWorks.Feature
6 H' H( E8 k' }1 s
Dim swView As SldWorks.View
" R9 t: A0 S; D) n3 e5 F
Dim swBomAnn As BomTableAnnotation
; g' l: F( x5 ]" A; O, I# F: M) ]
Dim swBomFeat As SldWorks.BomFeature
3 ]4 K$ O! R* I% Q, V
Dim anchorType As Long
" W- s% l0 |' Z. H
Dim bomType As Long
5 G* g3 t8 F9 j9 l# N. f$ J. s3 P
Dim configuration As String4 v# L, o' Q2 g8 |; w( H2 y& }: X
Dim tableTemplate As String
: X) _# U K7 M; K
Dim Names As Variant! `9 a- q3 {. z! r( d
Dim visible As Variant+ H" C: X4 h* U$ }" o7 J3 A
Sub main()
0 b, i9 c: m4 b) }/ F: k. B u1 ~
Set swApp = Application.SldWorks
- D& Y3 `1 `1 S/ s; C: ^# H9 _/ t. a
Set swModel = swApp.ActiveDoc
3 Y6 {5 I p7 \& ~! g, k2 v
Set swFeat = swModel.FirstFeature
; ^/ V0 ?7 }( l: s3 K- F
While Not swFeat Is Nothing0 Z) g8 I& n5 q# A, p& e
If "BomFeat" = swFeat.GetTypeName Then! F( _* B) C% p% t$ g9 J
swFeat.Select2 False, -1' B0 J0 S3 r& h4 D; h' E
swModel.Extension.DeleteSelection2 swDeleteSelectionOptions_e.swDelete_Absorbed
7 x z1 P0 d, J
End If
" h7 | d6 d$ |# [
Set swFeat = swFeat.GetNextFeature" e- y9 K5 |$ d, o0 a
Wend c8 F% S/ ?7 p, D3 I
Set swSelMgr = swModel.SelectionManager
9 L6 z! H7 }9 n3 u7 }
Set swFeatMgr = swModel.FeatureManager+ y* z" A7 l, I$ z( ]5 J4 |
Set swDraw = swModel7 n: S* N( g5 B
Set swSheet = swDraw.GetCurrentSheet- B: v5 c: s$ ^( X9 O5 f( j
'Select View1 L' _0 ^! q- N( p! K8 y" G
swModel.ClearSelection2 True
+ I4 j# |: s$ X+ T$ E
Set swView = swDraw.GetCurrentSheet.GetViews()(0)1 Y q% I& Z5 d
'Insert BOM Table
/ e& f6 p8 `0 a8 S4 C k) a
anchorType = SwConst.swBOMConfigurationAnchorType_e.swBOMConfigurationAnchor_BottomRight
6 \0 p1 M/ d! ^6 L" U2 ~/ h& @# } A
bomType = SwConst.swBomType_e.swBomType_TopLevelOnly
7 ]( p: w6 \, I$ b1 X
swModel.ClearSelection2 True- e! k. Y: d( _' D4 p
configuration = ""
- f9 ]8 J& {" W b
tableTemplate = "" '<---在雙引號內輸入新零件表模板完整路徑( t) w- v, L+ @
Set swBomAnn = swView.InsertBomTable2(False, 0, 0, anchorType, bomType, configuration, tableTemplate)
" W7 W* v6 I# C5 G R( s9 S
'上一行代碼中,False後接的 0,0 即為工程圖中的 X,Y 座標值,自行依需要插入表格位置修改,唯注意比例是 1:5000- P" ?" Y7 Y% z9 R3 H
Set swBomFeat = swBomAnn.BomFeature
/ b+ y, u. p: C0 T9 ~
Names = swBomFeat.GetConfigurations(False, visible)* v& S p( a" B
visible(0) = True6 n# M* N0 h. }6 e: `+ F6 a% x! R* ^
boolstatus = swBomFeat.SetConfigurations(True, visible, Names)- Y$ C$ M# a5 z5 A, @; F
swFeatMgr.UpdateFeatureTree7 S; G% R5 K4 W7 W& X) m' Z1 M0 w
End Sub

复制代码

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

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

通知

[分享] 【分享】Replace BOM Table

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

评分

浏览过的版块