将BOM表中零件的数量写入到零件图的属性中的VBA程序

慕容揽月

思路是将SW的BOM表导入到EXCEL，然后将EXCEL的数据（零件名+数量）写入到字典，然后通过文件名来匹配到字典里存的数据（数量）写入到零件的数量属性。其中提示请输入数据时需要粘帖数据进来。Myr = 500 '需人工设定。欢迎大家进行补充、使程序更智能。
) R, }0 o5 B' b7 ]
+ F4 d$ r. _0 Q! qSub main()
. k" P6 b% j, U'打开EXCEL表格开始
" z# E6 S% B& n, i2 {Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
! C0 P- H. X- OExcelSheet.Application.Visible = True
$ _1 V" o0 v; T% S1 j9 f& D, W8 j'结束

$ k! {% _5 Y# S  ?* n) \% ?5 x'填入数据开始
5 Z$ y( e5 Q, p2 x6 p/ d- ^3 gDim d
) ^/ S$ H; \' |( LSet d = CreateObject("Scripting.Dictionary")
& ]6 y" W; l4 V( P2 IMsgBox "请输入数据"
0 y/ f$ |. ^5 Y& J5 @5 P& Q; J' M# D'结束
; I6 h( _# B+ T5 c# o0 ~) s
'数据写入字典开始
Dim Myr&
Myr = 500 '需人工设定
For i = 1 To Myr
% x# E% c0 C. l; M! t7 \( ud(ExcelSheet.Application.Cells(i, 1).Value) = ExcelSheet.Application.Cells(i, 2).Value
Next
'结束
9 s, ^% Y* C. X, s. x
'将字典数据逐个写入到零件开始
Dim swApp As Object
+ E0 w6 w& w# ^Dim Part As Object
Dim longstatus As Long, longwarnings As Long
, i8 t8 a5 ^2 TDim myPath$, myFile$

Set swApp = _
) z1 G5 n3 e+ @4 E6 R1 |/ {7 z* ~Application.SldWorks
myPath = "C:\Users\Administrator\Desktop\1\" '..........................重点：把文件路径定义给变量
myFile = Dir(myPath & "*.sldprt") '依次找寻指定路径中的*.文件
$ `- r6 q: h2 O, `4 _Do While myFile <> ""
/ n" g2 ]% K# j4 k9 Q  YSet Part = swApp.OpenDoc6(myPath & myFile, 1, 0, "", longstatus, longwarnings)

. @' b# r7 g* x  {4 B# \! g    '单个零件写入数据开始
'Dim swApp As Object
Dim c As String
Set swApp = Application.SldWorks
1 v& `  J* ^0 }, u/ BSet Part = swApp.ActiveDoc
. T9 G+ q& S. u+ s; b8 f! vc = swApp.ActiveDoc.GetTitle() '零件名
blnretval = Part.AddCustomInfo3("", "数量", swCustomInfoText, d.Item(c))
    '单个零件写入数据结束

6 K2 ~3 e8 Q2 ZPart.Save
" T8 [/ f. E6 E( _) jswApp.CloseDoc myPath & myFile
myFile = Dir '找寻下一个*.文件
) J; W7 m) y. z& S" }/ hLoop
'将字典数据逐个写入到零件结束
' d; w* y/ B9 `0 j1 q7 NEnd Sub

hdgd501

谢谢楼主分享，期待高手进来进一步完善

Miles_chen

楼主这个，数量写入 需要是都改为一个数量吧 不然容易出错
我之前选择的方式是：excel 内输入bom表，零件名称 及 需要写入的属性
然后通过excel 调用SW，逐个打开part，写入cell内的数量 或者 其他属性，再关闭

Miles_chen

哦 刚开始没看清
你是全部写到 数组里，然后做对比……，以装配体树结构为准
我是直接按excel 零件名，顺序调用打开文件 ，以excel为准