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

慕容攬月

思路是將SW的BOM表導入到EXCEL,，然后將EXCEL的數(shù)據(jù)（零件名+數(shù)量）寫入到字典,，然后通過文件名來匹配到字典里存的數(shù)據(jù)（數(shù)量）寫入到零件的數(shù)量屬性,。其中提示請輸入數(shù)據(jù)時需要粘帖數(shù)據(jù)進來。Myr = 500 '需人工設定,。歡迎大家進行補充,、使程序更智能。
: A& ]$ J9 f7 T
- ~5 Q0 t- R) t( E! uSub main()
'打開EXCEL表格開始
Dim ExcelSheet As Object
6 n# f' E8 ~0 [. B% bSet ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = True
'結束
* u+ E( v2 w& A+ O
'填入數(shù)據(jù)開始
Dim d
- H& g$ s4 I6 L# I+ z. |Set d = CreateObject("Scripting.Dictionary")
* u8 J6 s. _) |8 N  s1 ^6 i1 n8 ZMsgBox "請輸入數(shù)據(jù)"
( B7 }5 C4 }' u; p'結束
, v+ Y) o: X6 v9 L) [
  K5 h4 ^  r/ j8 g% t'數(shù)據(jù)寫入字典開始
Dim Myr&
Myr = 500 '需人工設定
. _, E5 b+ I, q5 q, g& m; M9 jFor i = 1 To Myr
d(ExcelSheet.Application.Cells(i, 1).Value) = ExcelSheet.Application.Cells(i, 2).Value
# K  m& _, P" B7 p* ^Next
'結束
" M9 `9 p7 A' c: v6 M6 J
, A& w5 N) l1 @7 ?2 J! X% v6 _'將字典數(shù)據(jù)逐個寫入到零件開始
/ D9 M4 F! }# A: u  nDim swApp As Object
Dim Part As Object
Dim longstatus As Long, longwarnings As Long
Dim myPath$, myFile$

Set swApp = _
Application.SldWorks
! a& x& D5 T$ }6 SmyPath = "C:\Users\Administrator\Desktop\1\" '..........................重點：把文件路徑定義給變量
% B2 A; ]0 a$ bmyFile = Dir(myPath & "*.sldprt") '依次找尋指定路徑中的*.文件
Do While myFile <> ""
& c) w  d" F+ B7 M3 {# mSet Part = swApp.OpenDoc6(myPath & myFile, 1, 0, "", longstatus, longwarnings)

    '單個零件寫入數(shù)據(jù)開始
'Dim swApp As Object
Dim c As String
0 o. \; C$ f; RSet swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
" c6 X8 B6 S2 A% J3 ?' gc = swApp.ActiveDoc.GetTitle() '零件名
blnretval = Part.AddCustomInfo3("", "數(shù)量", swCustomInfoText, d.Item(c))
0 @/ Q7 j6 l: q    '單個零件寫入數(shù)據(jù)結束

Part.Save
9 Q5 y; {% _9 w' w6 TswApp.CloseDoc myPath & myFile
myFile = Dir '找尋下一個*.文件
* o" W4 N8 Y7 O4 V% H5 L1 W' S  A7 T/ pLoop
'將字典數(shù)據(jù)逐個寫入到零件結束
End Sub

hdgd501

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

Miles_chen

樓主這個,，數(shù)量寫入 需要是都改為一個數(shù)量吧 不然容易出錯
) Z, \: r2 }2 k我之前選擇的方式是：excel 內(nèi)輸入bom表,，零件名稱 及 需要寫入的屬性
然后通過excel 調(diào)用SW，逐個打開part,，寫入cell內(nèi)的數(shù)量 或者 其他屬性,，再關閉

Miles_chen

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