將BOM表中零件的數(shù)量寫入到零件圖的屬性中的VBA程序

慕容攬月

思路是將SW的BOM表導入到EXCEL，然后將EXCEL的數(shù)據(jù)（零件名+數(shù)量）寫入到字典，然后通過文件名來匹配到字典里存的數(shù)據(jù)（數(shù)量）寫入到零件的數(shù)量屬性。其中提示請輸入數(shù)據(jù)時需要粘帖數(shù)據(jù)進來。Myr = 500 '需人工設定。歡迎大家進行補充、使程序更智能。

Sub main()
'打開EXCEL表格開始
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = True
4 t# A7 [+ v- i' x% V  v6 Y7 ]'結束
0 f1 l8 E1 t/ P: f
9 A, @0 d4 h; W4 t, @'填入數(shù)據(jù)開始
Dim d
+ Y3 `- S; f1 t7 F3 x: q8 QSet d = CreateObject("Scripting.Dictionary")
/ Y/ h( L! R# u( f  |MsgBox "請輸入數(shù)據(jù)"
'結束

4 E) ^* n# a: w1 b% G'數(shù)據(jù)寫入字典開始
: b- D7 s- `, q& yDim Myr&
Myr = 500 '需人工設定
For i = 1 To Myr
d(ExcelSheet.Application.Cells(i, 1).Value) = ExcelSheet.Application.Cells(i, 2).Value
Next
3 ]- J7 t% A" n0 A' D'結束
0 g- j4 ?; ^, t% Z/ f
'將字典數(shù)據(jù)逐個寫入到零件開始
Dim swApp As Object
Dim Part As Object
. ~6 L2 I" x9 O& H. b7 k$ @5 h5 _Dim longstatus As Long, longwarnings As Long
' l# a' H# _6 g" a1 I+ @# oDim myPath$, myFile$

9 g! E* y0 k; [* WSet swApp = _
Application.SldWorks
myPath = "C:\Users\Administrator\Desktop\1\" '..........................重點：把文件路徑定義給變量
. C" E: t" W% X! ^/ [4 z1 dmyFile = Dir(myPath & "*.sldprt") '依次找尋指定路徑中的*.文件
, R# Z" \2 i$ a6 S9 ZDo While myFile <> ""
Set Part = swApp.OpenDoc6(myPath & myFile, 1, 0, "", longstatus, longwarnings)

    '單個零件寫入數(shù)據(jù)開始
'Dim swApp As Object
Dim c As String
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
, M3 ]+ w5 A% q  D# cc = swApp.ActiveDoc.GetTitle() '零件名
0 Q3 [0 R! b/ O: U/ d+ x6 n5 U7 nblnretval = Part.AddCustomInfo3("", "數(shù)量", swCustomInfoText, d.Item(c))
    '單個零件寫入數(shù)據(jù)結束
6 ~) W4 t& N- g9 \! i/ m
Part.Save
2 x6 e2 [) _% `; EswApp.CloseDoc myPath & myFile
: X2 h& T; ~7 l  }4 ]8 qmyFile = Dir '找尋下一個*.文件
& ]0 W9 M' f& f! `Loop
+ U4 s( q: \$ f! }'將字典數(shù)據(jù)逐個寫入到零件結束
End Sub

hdgd501

謝謝樓主分享，期待高手進來進一步完善

Miles_chen

樓主這個，數(shù)量寫入 需要是都改為一個數(shù)量吧 不然容易出錯
& S( f! A, f+ f2 S& W+ s我之前選擇的方式是：excel 內(nèi)輸入bom表，零件名稱 及 需要寫入的屬性
( U. A  ?9 w6 B9 S' L# M- A然后通過excel 調(diào)用SW，逐個打開part，寫入cell內(nèi)的數(shù)量 或者 其他屬性，再關閉

Miles_chen

哦 剛開始沒看清
你是全部寫到 數(shù)組里，然后做對比……，以裝配體樹結構為準
我是直接按excel 零件名，順序調(diào)用打開文件 ，以excel為準