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

慕容攬月

思路是將SW的BOM表導入到EXCEL，然后將EXCEL的數據（零件名+數量）寫入到字典，然后通過文件名來匹配到字典里存的數據（數量）寫入到零件的數量屬性。其中提示請輸入數據時需要粘帖數據進來。Myr = 500 '需人工設定。歡迎大家進行補充、使程序更智能。
3 R; s' N! ~3 }, S! A
Sub main()
'打開EXCEL表格開始
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
7 x" r* ]0 Y: J6 LExcelSheet.Application.Visible = True
'結束
( W" |/ _' @* L# O7 l: v  H0 `
$ B0 t* m5 X" Q# J# {'填入數據開始
Dim d
) `3 Y+ ^3 c, ~; M6 ^Set d = CreateObject("Scripting.Dictionary")
MsgBox "請輸入數據"
! _+ b* Q# f+ \: E- T'結束

8 t( C! h  x7 |! B'數據寫入字典開始
9 X" G2 I7 ~4 U# v9 RDim Myr&
Myr = 500 '需人工設定
. T& O3 G* k- T1 f) V5 F+ eFor i = 1 To Myr
d(ExcelSheet.Application.Cells(i, 1).Value) = ExcelSheet.Application.Cells(i, 2).Value
" ?0 _7 u, a. z/ D2 M4 @1 F$ DNext
'結束

0 K2 p( i4 U- F' V" o'將字典數據逐個寫入到零件開始
Dim swApp As Object
Dim Part As Object
1 Z' \% z4 c- r3 q2 @Dim longstatus As Long, longwarnings As Long
0 }( L" C& @1 i$ ^& R& ODim myPath$, myFile$

Set swApp = _
Application.SldWorks
: V  Q; o% _1 f, [( C7 [5 H5 }0 rmyPath = "C:\Users\Administrator\Desktop\1\" '..........................重點：把文件路徑定義給變量
myFile = Dir(myPath & "*.sldprt") '依次找尋指定路徑中的*.文件
Do While myFile <> ""
- k/ @! t9 N4 ~% c( hSet Part = swApp.OpenDoc6(myPath & myFile, 1, 0, "", longstatus, longwarnings)
% U8 Z" V; ~8 o& W: A: X8 O: ~
1 h- e, O$ C1 M    '單個零件寫入數據開始
'Dim swApp As Object
Dim c As String
Set swApp = Application.SldWorks
4 h2 \7 }4 a( Q+ ^1 a( `$ W8 r0 [Set Part = swApp.ActiveDoc
, `" X& |9 m* M9 Kc = swApp.ActiveDoc.GetTitle() '零件名
blnretval = Part.AddCustomInfo3("", "數量", swCustomInfoText, d.Item(c))
    '單個零件寫入數據結束
7 a8 W4 X# D6 j# \6 n  E
2 P, f3 p) c4 y, S0 q- v  L8 hPart.Save
swApp.CloseDoc myPath & myFile
myFile = Dir '找尋下一個*.文件
' U# ^" ~% ^+ |5 R3 e# c2 M# ^! ALoop
'將字典數據逐個寫入到零件結束
End Sub
0 \+ O$ c/ i2 k

hdgd501

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

Miles_chen

樓主這個，數量寫入 需要是都改為一個數量吧 不然容易出錯
0 C) [6 d2 a5 K. a* _; J我之前選擇的方式是：excel 內輸入bom表，零件名稱 及 需要寫入的屬性
然后通過excel 調用SW，逐個打開part，寫入cell內的數量 或者 其他屬性，再關閉

Miles_chen

哦 剛開始沒看清
你是全部寫到 數組里，然后做對比……，以裝配體樹結構為準
6 J4 O6 t; m$ s  H6 q1 E我是直接按excel 零件名，順序調用打開文件 ，以excel為準