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

慕容攬月

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

) m; Q! {0 i, X3 y/ s: f5 X3 uSub main()
  |6 k# ]- b1 R, r( F/ c9 ]# F'打開EXCEL表格開始
6 r; }) _# i) z. T5 v! F& aDim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
' }9 Y; r: f2 }; \ExcelSheet.Application.Visible = True
'結束
! i1 K$ s1 t% [) J( i
'填入數(shù)據(jù)開始
1 i/ a1 s! Z. t9 O6 P. E9 p3 d9 T- n4 pDim d
+ L: r$ ~3 f( L3 U9 L% R* CSet d = CreateObject("Scripting.Dictionary")
MsgBox "請輸入數(shù)據(jù)"
'結束
0 O& \+ [/ s5 U& A
- J% H7 k( G5 f" h( l0 z'數(shù)據(jù)寫入字典開始
Dim Myr&
Myr = 500 '需人工設定
For i = 1 To Myr
5 n$ i1 O  g9 |& qd(ExcelSheet.Application.Cells(i, 1).Value) = ExcelSheet.Application.Cells(i, 2).Value
# @. S# l# H6 V- UNext
'結束
; Y1 q8 w3 U$ `% H5 w
7 S3 \2 w( I& s9 x9 [: y3 I7 \: S'將字典數(shù)據(jù)逐個寫入到零件開始
Dim swApp As Object
$ s: T: A/ n( H" Y* \: ?9 ~2 SDim Part As Object
Dim longstatus As Long, longwarnings As Long
Dim myPath$, myFile$

( B/ J2 i8 |) H- o# tSet swApp = _
* V8 ?9 e/ v  i% A$ GApplication.SldWorks
/ g* i5 {9 }9 J! ~' d8 U( I. m! o5 HmyPath = "C:\Users\Administrator\Desktop\1\" '..........................重點：把文件路徑定義給變量
myFile = Dir(myPath & "*.sldprt") '依次找尋指定路徑中的*.文件
+ d% f0 X' x. b3 E: U4 [( d9 EDo While myFile <> ""
6 `5 D  k7 l5 f( r% ySet Part = swApp.OpenDoc6(myPath & myFile, 1, 0, "", longstatus, longwarnings)

& M. n* I2 v3 Z% X- \    '單個零件寫入數(shù)據(jù)開始
0 ?* s) j: y' ~/ J: g% R0 F7 e: S'Dim swApp As Object
# Q. w) e1 `3 d1 r4 {: SDim c As String
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
c = swApp.ActiveDoc.GetTitle() '零件名
blnretval = Part.AddCustomInfo3("", "數(shù)量", swCustomInfoText, d.Item(c))
    '單個零件寫入數(shù)據(jù)結束

0 J' X  _' S) ZPart.Save
3 Q. ~; Q/ l" yswApp.CloseDoc myPath & myFile
- b/ l" ]3 @& {8 BmyFile = Dir '找尋下一個*.文件
: @( X, D4 N; X; [0 b( {1 oLoop
5 O" ^$ s4 n! f. s& v& p* Q4 ['將字典數(shù)據(jù)逐個寫入到零件結束
9 y8 H  ^% X: D; aEnd Sub

hdgd501

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

Miles_chen

樓主這個，數(shù)量寫入 需要是都改為一個數(shù)量吧 不然容易出錯
我之前選擇的方式是：excel 內(nèi)輸入bom表，零件名稱 及 需要寫入的屬性
/ f4 I$ ?# c& K- U9 H  M5 f然后通過excel 調(diào)用SW，逐個打開part，寫入cell內(nèi)的數(shù)量 或者 其他屬性，再關閉

Miles_chen

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