將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()
) I) l& b4 G5 i; R'打開(kāi)EXCEL表格開(kāi)始
  [8 n5 ^8 w1 j- ?Dim ExcelSheet As Object
/ i1 K9 _, W$ o8 K3 k4 K( S* j" W& RSet ExcelSheet = CreateObject("Excel.Sheet")
- F4 @5 ?1 X7 u  V) d5 [ExcelSheet.Application.Visible = True
9 [+ ?  b$ N( p'結(jié)束
7 q* A' q* h* F8 M- h& b
'填入數(shù)據(jù)開(kāi)始
+ S/ O" A' |7 b- K2 lDim d
4 S3 ?4 A1 g2 S2 L+ H# USet d = CreateObject("Scripting.Dictionary")
; n5 h, R" U/ L& ?( \) GMsgBox "請(qǐng)輸入數(shù)據(jù)"
'結(jié)束

( h+ T1 G5 o) F'數(shù)據(jù)寫(xiě)入字典開(kāi)始
Dim Myr&
' D8 s  S6 ~2 W( H$ yMyr = 500 '需人工設(shè)定
For i = 1 To Myr
d(ExcelSheet.Application.Cells(i, 1).Value) = ExcelSheet.Application.Cells(i, 2).Value
Next
'結(jié)束
! o1 [- [9 P% R/ |8 V
'將字典數(shù)據(jù)逐個(gè)寫(xiě)入到零件開(kāi)始
Dim swApp As Object
# }; z" A) o( \% KDim Part As Object
Dim longstatus As Long, longwarnings As Long
% B6 P& {- j# U3 I: ZDim myPath$, myFile$
% `; D% m; J& [+ m$ l6 o5 i3 I) l
7 ^7 X: h9 @; }8 B! R7 bSet swApp = _
Application.SldWorks
) i% s4 w% H0 O! E( K! p# Q5 C/ CmyPath = "C:\Users\Administrator\Desktop\1\" '..........................重點(diǎn)：把文件路徑定義給變量
$ l9 F+ q" H4 zmyFile = Dir(myPath & "*.sldprt") '依次找尋指定路徑中的*.文件
/ v, z0 t2 M8 ^) c$ g+ TDo While myFile <> ""
- K2 A3 J* `2 E/ G4 }6 zSet Part = swApp.OpenDoc6(myPath & myFile, 1, 0, "", longstatus, longwarnings)
2 f7 ~* A  q' f" ~3 }% ]6 l
; e( f' K( X+ U8 s8 V/ s: h    '單個(gè)零件寫(xiě)入數(shù)據(jù)開(kāi)始
8 y0 L9 c) {5 U4 ]! m'Dim swApp As Object
$ @6 G2 Y1 ?+ f# I4 GDim c As String
+ [) Z3 f. C# W/ wSet swApp = Application.SldWorks
* i; \2 n" E0 H: y+ c6 t* _6 B( HSet Part = swApp.ActiveDoc
c = swApp.ActiveDoc.GetTitle() '零件名
blnretval = Part.AddCustomInfo3("", "數(shù)量", swCustomInfoText, d.Item(c))
7 v+ x+ x" Z, U    '單個(gè)零件寫(xiě)入數(shù)據(jù)結(jié)束

Part.Save
0 h( B( Z: F; r2 wswApp.CloseDoc myPath & myFile
myFile = Dir '找尋下一個(gè)*.文件
Loop
! X6 u" ?6 }4 e'將字典數(shù)據(jù)逐個(gè)寫(xiě)入到零件結(jié)束
End Sub

hdgd501

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

Miles_chen

樓主這個(gè)，數(shù)量寫(xiě)入 需要是都改為一個(gè)數(shù)量吧 不然容易出錯(cuò)
6 i) O6 T7 m4 ~& m# r0 r" f我之前選擇的方式是：excel 內(nèi)輸入bom表，零件名稱(chēng) 及 需要寫(xiě)入的屬性
4 S6 i7 G% x( K# k7 U) F/ _然后通過(guò)excel 調(diào)用SW，逐個(gè)打開(kāi)part，寫(xiě)入cell內(nèi)的數(shù)量 或者 其他屬性，再關(guān)閉

Miles_chen

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