將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()
'打開(kāi)EXCEL表格開(kāi)始
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
- b/ p( ^8 I$ Y  `; eExcelSheet.Application.Visible = True
% T0 @: Y+ [) v% E+ |3 V+ d4 R) h6 h'結(jié)束
/ G3 N. T9 s) f/ x2 F6 w
'填入數(shù)據(jù)開(kāi)始
Dim d
Set d = CreateObject("Scripting.Dictionary")
( D& E( ?3 D' B; g, MMsgBox "請(qǐng)輸入數(shù)據(jù)"
'結(jié)束

' _3 A2 k: G% R# _9 L1 F'數(shù)據(jù)寫(xiě)入字典開(kāi)始
Dim Myr&
/ ~0 P4 Z  X" y, z& z0 f2 cMyr = 500 '需人工設(shè)定
For i = 1 To Myr
+ ]& M0 Q$ B, a% r) |d(ExcelSheet.Application.Cells(i, 1).Value) = ExcelSheet.Application.Cells(i, 2).Value
9 N  e' H( ^, U2 D& u  C0 ]Next
'結(jié)束

; t7 \" k  J6 {2 t2 d8 ?+ A4 p" g'將字典數(shù)據(jù)逐個(gè)寫(xiě)入到零件開(kāi)始
Dim swApp As Object
% N. g1 M) @# r7 n5 D* ODim Part As Object
Dim longstatus As Long, longwarnings As Long
Dim myPath$, myFile$
& Q/ D; v# x) N1 h) r
1 o0 D+ F- r( S+ TSet swApp = _
6 s. t4 ^$ M; }7 h3 P/ E  PApplication.SldWorks
) h: M" I/ |2 MmyPath = "C:\Users\Administrator\Desktop\1\" '..........................重點(diǎn)：把文件路徑定義給變量
1 `4 l+ P1 A' c& D, t6 ^myFile = Dir(myPath & "*.sldprt") '依次找尋指定路徑中的*.文件
' `) u. ^+ W7 M+ ZDo While myFile <> ""
Set Part = swApp.OpenDoc6(myPath & myFile, 1, 0, "", longstatus, longwarnings)

# B" M  \: |2 O    '單個(gè)零件寫(xiě)入數(shù)據(jù)開(kāi)始
'Dim swApp As Object
Dim c As String
( a0 {3 V; T# z$ u" E" S3 fSet swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
c = swApp.ActiveDoc.GetTitle() '零件名
blnretval = Part.AddCustomInfo3("", "數(shù)量", swCustomInfoText, d.Item(c))
    '單個(gè)零件寫(xiě)入數(shù)據(jù)結(jié)束

2 `' N& @, n4 J4 U8 I: t% g& pPart.Save
swApp.CloseDoc myPath & myFile
* A9 Q! V4 g% ]3 p9 y$ ~myFile = Dir '找尋下一個(gè)*.文件
6 U1 f3 ]! G+ b( q# |4 h7 f8 TLoop
  |# ]: I9 s1 B$ c6 N! L'將字典數(shù)據(jù)逐個(gè)寫(xiě)入到零件結(jié)束
. P: A$ s% W! _+ K3 TEnd Sub
2 G$ P8 V% J& `- t( P

hdgd501

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

Miles_chen

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

Miles_chen

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