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

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

思路是將SW的BOM表導(dǎo)入到EXCEL，然后將EXCEL的數(shù)據(jù)（零件名+數(shù)量）寫入到字典，然后通過(guò)文件名來(lái)匹配到字典里存的數(shù)據(jù)（數(shù)量）寫入到零件的數(shù)量屬性。其中提示請(qǐng)輸入數(shù)據(jù)時(shí)需要粘帖數(shù)據(jù)進(jìn)來(lái)。Myr = 500 '需人工設(shè)定。歡迎大家進(jìn)行補(bǔ)充、使程序更智能。
5 G: O) T/ B8 e- Z$ |* M& T
+ z( K% ?& ~9 Z) U: \* q$ SSub main()
'打開(kāi)EXCEL表格開(kāi)始
Dim ExcelSheet As Object
/ d5 H: {: g: U8 u/ G5 qSet ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = True
'結(jié)束

'填入數(shù)據(jù)開(kāi)始
Dim d
Set d = CreateObject("Scripting.Dictionary")
' A$ K2 G+ B) V* b, `MsgBox "請(qǐng)輸入數(shù)據(jù)"
5 I1 E3 [5 ~5 a6 y1 c'結(jié)束
6 j6 a- \6 p& E7 ]' r
'數(shù)據(jù)寫入字典開(kāi)始
, g- |8 S3 Y' l. u4 n# T, CDim Myr&
Myr = 500 '需人工設(shè)定
0 d; H/ [4 u4 h. D4 B% e4 vFor i = 1 To Myr
  Y" l$ |. f9 ~6 R" P' ]d(ExcelSheet.Application.Cells(i, 1).Value) = ExcelSheet.Application.Cells(i, 2).Value
Next
* \  s/ y5 U  `'結(jié)束
8 P& z9 e4 c! a% l: r- u$ j* p
'將字典數(shù)據(jù)逐個(gè)寫入到零件開(kāi)始
' U  F) J! {* O5 r, jDim swApp As Object
Dim Part As Object
2 Q+ M- i* M- }* n3 W$ p& [# T2 g/ [4 XDim longstatus As Long, longwarnings As Long
Dim myPath$, myFile$
3 q: t7 E: P, |
. k/ }" U. y' K* ]Set swApp = _
" ~* h/ }# H4 p$ m4 q. eApplication.SldWorks
" R' P8 A* v6 Q1 {/ Z) g- u- qmyPath = "C:\Users\Administrator\Desktop\1\" '..........................重點(diǎn)：把文件路徑定義給變量
myFile = Dir(myPath & "*.sldprt") '依次找尋指定路徑中的*.文件
. z. G2 f; @& z2 X% v( Y8 zDo While myFile <> ""
Set Part = swApp.OpenDoc6(myPath & myFile, 1, 0, "", longstatus, longwarnings)
# |' x" O5 i& ]
" q1 P4 Z9 o2 H1 r8 O3 x    '單個(gè)零件寫入數(shù)據(jù)開(kāi)始
'Dim swApp As Object
  k5 l4 O" }$ [; Z1 E& c* w! ~$ aDim c As String
Set swApp = Application.SldWorks
  P) O5 N0 ~. d8 g: QSet Part = swApp.ActiveDoc
c = swApp.ActiveDoc.GetTitle() '零件名
. T8 l! \; t! _blnretval = Part.AddCustomInfo3("", "數(shù)量", swCustomInfoText, d.Item(c))
    '單個(gè)零件寫入數(shù)據(jù)結(jié)束
+ `! ^. t/ A: V# Q
. j& ~/ t/ u/ {/ oPart.Save
0 L/ H6 ^' W( a; T+ Z" aswApp.CloseDoc myPath & myFile
myFile = Dir '找尋下一個(gè)*.文件
Loop
'將字典數(shù)據(jù)逐個(gè)寫入到零件結(jié)束
3 k4 T  e9 _& q" V% [/ v/ kEnd Sub
0 ^, t% O7 R* |2 C2 D

hdgd501

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

Miles_chen

樓主這個(gè)，數(shù)量寫入 需要是都改為一個(gè)數(shù)量吧 不然容易出錯(cuò)
" P+ ^7 i. ]$ u2 P我之前選擇的方式是：excel 內(nèi)輸入bom表，零件名稱 及 需要寫入的屬性
; W! w, v, |$ }" s- j然后通過(guò)excel 調(diào)用SW，逐個(gè)打開(kāi)part，寫入cell內(nèi)的數(shù)量 或者 其他屬性，再關(guān)閉

Miles_chen

哦 剛開(kāi)始沒(méi)看清
你是全部寫到 數(shù)組里，然后做對(duì)比……，以裝配體樹(shù)結(jié)構(gòu)為準(zhǔn)
我是直接按excel 零件名，順序調(diào)用打開(kāi)文件 ，以excel為準(zhǔn)