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

慕容揽月

思路是将SW的BOM表导入到EXCEL，然后将EXCEL的数据（零件名+数量）写入到字典，然后通过文件名来匹配到字典里存的数据（数量）写入到零件的数量属性。其中提示请输入数据时需要粘帖数据进来。Myr = 500 '需人工设定。欢迎大家进行补充、使程序更智能。
( u4 _3 _0 i4 I; l! F! J5 v& ]( u
9 {, W6 V) h) X" i; e7 n# oSub main()
'打开EXCEL表格开始
Dim ExcelSheet As Object
: j. u+ p3 D8 Q/ p) G( qSet ExcelSheet = CreateObject("Excel.Sheet")
2 U* w1 F' r9 X# u3 B2 @# VExcelSheet.Application.Visible = True
( o! U8 K. ^' E" d$ N) y s" z* l'结束

# g/ p6 R8 z0 T: j. l'填入数据开始
9 V' V9 v# o5 ^# `Dim d
Set d = CreateObject("Scripting.Dictionary")
) O, N5 e" {$ t y$ fMsgBox "请输入数据"
'结束
# v/ D4 K+ B, `! f
- E0 ^( x5 h/ J; ]$ y" H/ ~'数据写入字典开始
Dim Myr&
- I3 u# T: x+ I' K9 XMyr = 500 '需人工设定
For i = 1 To Myr
d(ExcelSheet.Application.Cells(i, 1).Value) = ExcelSheet.Application.Cells(i, 2).Value
Next
5 F8 c3 Z/ ]+ U( u7 ?! U'结束

* G8 t; O$ f- t: [5 n'将字典数据逐个写入到零件开始
Dim swApp As Object
& ^' Q& D G# tDim Part As Object
( @' x9 K" u0 u2 v. A# v" ?Dim longstatus As Long, longwarnings As Long
+ m$ Q0 Y& J3 H( t( X" B! I5 {Dim myPath$, myFile$

Set swApp = _
% _- }) x: E& O2 JApplication.SldWorks
myPath = "C:\Users\Administrator\Desktop\1\" '..........................重点：把文件路径定义给变量
myFile = Dir(myPath & "*.sldprt") '依次找寻指定路径中的*.文件
5 o. s- B5 b- s. L3 B. w$ GDo While myFile <> ""
Set Part = swApp.OpenDoc6(myPath & myFile, 1, 0, "", longstatus, longwarnings)

w$ K, i% G3 P- c'单个零件写入数据开始
1 w* n( d% ]" _ s'Dim swApp As Object
Dim c As String
3 u1 d. T5 Z. w3 |: }Set swApp = Application.SldWorks
( Q8 a% O( y9 o- h9 F ^5 USet Part = swApp.ActiveDoc
2 H; {. d1 _( i% z4 h% ?c = swApp.ActiveDoc.GetTitle() '零件名
blnretval = Part.AddCustomInfo3("", "数量", swCustomInfoText, d.Item(c))
'单个零件写入数据结束
4 [. ~* ^+ W7 F0 ~( `4 s) E/ V# v
Part.Save
swApp.CloseDoc myPath & myFile
; Z( J' C6 Y) v1 wmyFile = Dir '找寻下一个*.文件
: g! n6 o w$ I. h: V4 zLoop
'将字典数据逐个写入到零件结束
, E( K3 r7 }& FEnd Sub
% Y% }7 j6 e& c) e

Miles_chen

哦 刚开始没看清
你是全部写到 数组里，然后做对比……，以装配体树结构为准
1 }: A3 b; O% J) W) S' t我是直接按excel 零件名，顺序调用打开文件 ，以excel为准

Miles_chen

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

hdgd501

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