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

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

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

Sub main()
9 q! _% ~% Q3 B( J6 t* G7 ^'打開(kāi)EXCEL表格開(kāi)始
5 c2 j3 A2 B5 s# w* n/ s; v# cDim ExcelSheet As Object
8 n+ j$ Y  [! b0 ^Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = True
'結(jié)束
8 }# \7 }2 ]. q6 Q" P( Q5 v6 w
'填入數(shù)據(jù)開(kāi)始
* v) _. M$ j% O7 D) yDim d
Set d = CreateObject("Scripting.Dictionary")
$ W# [. V4 g9 qMsgBox "請(qǐng)輸入數(shù)據(jù)"
'結(jié)束
/ M% }0 @5 d9 S& b2 |1 d8 ~$ |7 E
! U0 Q: |1 v7 }! f'數(shù)據(jù)寫(xiě)入字典開(kāi)始
- d, |  e, o, q; D# n/ K5 CDim Myr&
Myr = 500 '需人工設(shè)定
( b7 K  v) D) Y' d1 ?  i2 P; C; l1 LFor i = 1 To Myr
! V! f7 A" J( s/ T, fd(ExcelSheet.Application.Cells(i, 1).Value) = ExcelSheet.Application.Cells(i, 2).Value
7 s  F; N" @* Y$ e- s$ \Next
'結(jié)束
% ~3 N( z# _) k$ s
'將字典數(shù)據(jù)逐個(gè)寫(xiě)入到零件開(kāi)始
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)：把文件路徑定義給變量
1 }+ f/ l1 a2 _myFile = Dir(myPath & "*.sldprt") '依次找尋指定路徑中的*.文件
. L% n* D2 r: _: ?Do While myFile <> ""
6 M0 \8 k6 q4 k9 S9 P! I0 c. v/ o! ZSet Part = swApp.OpenDoc6(myPath & myFile, 1, 0, "", longstatus, longwarnings)

  q" P- V( b4 \/ ]& h    '單個(gè)零件寫(xiě)入數(shù)據(jù)開(kāi)始
2 _6 ]. L* R/ F0 f2 t/ V/ T" y'Dim swApp As Object
Dim c As String
- @7 S" n5 X0 }/ i' I7 tSet swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
c = swApp.ActiveDoc.GetTitle() '零件名
blnretval = Part.AddCustomInfo3("", "數(shù)量", swCustomInfoText, d.Item(c))
    '單個(gè)零件寫(xiě)入數(shù)據(jù)結(jié)束
" W0 a* h+ W% L; R# X
% V) b1 u! R* a/ PPart.Save
swApp.CloseDoc myPath & myFile
. j: b/ f; Y3 q% s4 ]myFile = Dir '找尋下一個(gè)*.文件
Loop
'將字典數(shù)據(jù)逐個(gè)寫(xiě)入到零件結(jié)束
End Sub
2 G4 ?4 K/ W( s

hdgd501

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

Miles_chen

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

Miles_chen

哦 剛開(kāi)始沒(méi)看清
4 _/ P* {! L$ r! b6 ?" w6 _你是全部寫(xiě)到 數(shù)組里，然后做對(duì)比……,，以裝配體樹(shù)結(jié)構(gòu)為準(zhǔn)
我是直接按excel 零件名,，順序調(diào)用打開(kāi)文件 ，以excel為準(zhǔn)