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

慕容攬?jiān)?/a>

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

Sub main()
3 @+ W/ l& _$ T+ M+ P" R'打開EXCEL表格開始
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = True
6 u) \- K6 y& w8 U'結(jié)束

'填入數(shù)據(jù)開始
Dim d
Set d = CreateObject("Scripting.Dictionary")
) T& G% e3 G; n3 c" UMsgBox "請(qǐng)輸入數(shù)據(jù)"
6 b  Y4 A6 e, Z& U& t4 ]'結(jié)束

'數(shù)據(jù)寫入字典開始
Dim Myr&
6 V4 z1 L# o4 }1 c' h4 C/ u7 sMyr = 500 '需人工設(shè)定
' Y5 q; c3 c2 f7 M# JFor i = 1 To Myr
d(ExcelSheet.Application.Cells(i, 1).Value) = ExcelSheet.Application.Cells(i, 2).Value
Next
3 K9 P* c  D1 @9 c7 e* t  M" b'結(jié)束

0 \. d+ \5 z0 T( V* J" K'將字典數(shù)據(jù)逐個(gè)寫入到零件開始
7 m% u- |0 f" EDim swApp As Object
! N4 n# o( k# V: w1 i7 UDim Part As Object
+ O+ H; l3 ]9 F5 D5 i4 c  ~Dim longstatus As Long, longwarnings As Long
/ }% e! \  I! @9 M- @% \+ sDim myPath$, myFile$

% Q5 `" u% |' W9 s; C  g. }  [$ U" VSet swApp = _
Application.SldWorks
myPath = "C:\Users\Administrator\Desktop\1\" '..........................重點(diǎn)：把文件路徑定義給變量
* W1 z% ~' Q# W4 o5 QmyFile = Dir(myPath & "*.sldprt") '依次找尋指定路徑中的*.文件
* Y2 s2 ~5 L( U" u6 q  ZDo While myFile <> ""
Set Part = swApp.OpenDoc6(myPath & myFile, 1, 0, "", longstatus, longwarnings)
: u8 ~4 K" e4 D% U( p
, O9 R$ N- b3 E* n) U. Z    '單個(gè)零件寫入數(shù)據(jù)開始
! D! U5 Q6 j0 x) g: {% |  K+ C5 Z8 m+ ]8 V'Dim swApp As Object
Dim c As String
Set swApp = Application.SldWorks
, L1 X  r6 q) h: G; w" mSet Part = swApp.ActiveDoc
5 G4 q: a( b1 w6 Q4 X: \c = swApp.ActiveDoc.GetTitle() '零件名
1 m  Y2 A- H* ?! U9 Pblnretval = Part.AddCustomInfo3("", "數(shù)量", swCustomInfoText, d.Item(c))
: }' X$ b$ K$ _( P    '單個(gè)零件寫入數(shù)據(jù)結(jié)束
* c" I. I+ P% ?! o( v9 W+ O! B5 h
Part.Save
- U! S) r/ Z" [0 J8 C2 ZswApp.CloseDoc myPath & myFile
0 n" S& E  D2 O  I4 hmyFile = Dir '找尋下一個(gè)*.文件
Loop
'將字典數(shù)據(jù)逐個(gè)寫入到零件結(jié)束
) F6 e+ Y" S* [/ [' V4 sEnd Sub

hdgd501

謝謝樓主分享，期待高手進(jìn)來進(jìn)一步完善

Miles_chen

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

Miles_chen

哦 剛開始沒看清
你是全部寫到 數(shù)組里，然后做對(duì)比……,，以裝配體樹結(jié)構(gòu)為準(zhǔn)
% q! I5 S+ q# G, w: T6 V我是直接按excel 零件名,，順序調(diào)用打開文件 ，以excel為準(zhǔn)