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

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

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

1 ?: p% B4 O% v8 jSub main()
4 W  P6 u9 \/ b'打開EXCEL表格開始
/ G! L- Z* u, P/ s0 z8 VDim ExcelSheet As Object
* ]+ P7 a) i. rSet ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = True
'結(jié)束

7 `0 Z' ]+ m4 Q% Y; z'填入數(shù)據(jù)開始
: {8 U' n# }9 j, w% YDim d
Set d = CreateObject("Scripting.Dictionary")
+ ?0 O) v! b$ fMsgBox "請輸入數(shù)據(jù)"
'結(jié)束
  {/ X( x3 q& w
+ d$ Y4 k# S3 e'數(shù)據(jù)寫入字典開始
Dim Myr&
  S. d, Z5 q6 @# ]2 k7 F( H  k* @3 [Myr = 500 '需人工設(shè)定
1 Z& R4 @/ i4 x( H5 x' U# oFor i = 1 To Myr
d(ExcelSheet.Application.Cells(i, 1).Value) = ExcelSheet.Application.Cells(i, 2).Value
Next
'結(jié)束
) T- m1 j# i# N4 f0 A
'將字典數(shù)據(jù)逐個(gè)寫入到零件開始
Dim swApp As Object
Dim Part As Object
Dim longstatus As Long, longwarnings As Long
Dim myPath$, myFile$

Set swApp = _
Application.SldWorks
myPath = "C:\Users\Administrator\Desktop\1\" '..........................重點(diǎn)：把文件路徑定義給變量
' N7 ]% R" R& h/ M8 i9 WmyFile = Dir(myPath & "*.sldprt") '依次找尋指定路徑中的*.文件
Do While myFile <> ""
Set Part = swApp.OpenDoc6(myPath & myFile, 1, 0, "", longstatus, longwarnings)

8 B1 h0 \+ H2 E- p9 _& W4 F    '單個(gè)零件寫入數(shù)據(jù)開始
'Dim swApp As Object
, T& _# @/ J' @6 o, I. Y3 d4 g9 \Dim c As String
Set swApp = Application.SldWorks
6 e! P8 K: B# v  e/ Y; B# s& kSet Part = swApp.ActiveDoc
c = swApp.ActiveDoc.GetTitle() '零件名
blnretval = Part.AddCustomInfo3("", "數(shù)量", swCustomInfoText, d.Item(c))
7 ~# ~2 U& K/ b8 }' p. {9 Y    '單個(gè)零件寫入數(shù)據(jù)結(jié)束

% v' x" p7 b( b" v( s* [Part.Save
3 ]5 Q! F) p+ f5 y! u' ]swApp.CloseDoc myPath & myFile
* {8 Y2 L" Z$ `. JmyFile = Dir '找尋下一個(gè)*.文件
Loop
'將字典數(shù)據(jù)逐個(gè)寫入到零件結(jié)束
0 S" ^- M! @8 x3 MEnd Sub
% L/ W3 G* B; C. w# K) J

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ù)組里，然后做對比……,，以裝配體樹結(jié)構(gòu)為準(zhǔn)
我是直接按excel 零件名,，順序調(diào)用打開文件 ，以excel為準(zhǔn)