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

慕容揽月

思路是将SW的BOM表导入到EXCEL，然后将EXCEL的数据（零件名+数量）写入到字典，然后通过文件名来匹配到字典里存的数据（数量）写入到零件的数量属性。其中提示请输入数据时需要粘帖数据进来。Myr = 500 '需人工设定。欢迎大家进行补充、使程序更智能。
+ j9 D5 q5 n6 V1 M1 [
Sub main()
'打开EXCEL表格开始
% |" ^) Q; U, t+ y+ ]Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
% y( [( `& f4 \ExcelSheet.Application.Visible = True
'结束

1 {- C8 V/ k# F' n5 M, A9 p* L'填入数据开始
Dim d
) K; O1 m4 I% g8 `! f9 v) jSet d = CreateObject("Scripting.Dictionary")
MsgBox "请输入数据"
'结束

'数据写入字典开始
Dim Myr&
Myr = 500 '需人工设定
! h! o# {: Y2 R  OFor i = 1 To Myr
d(ExcelSheet.Application.Cells(i, 1).Value) = ExcelSheet.Application.Cells(i, 2).Value
; R$ q9 d5 _2 b' R" A  \& L' DNext
'结束
! z4 f7 }; H( {1 N2 ~5 M: v' M
0 K: K7 @# J2 w2 e0 S! L'将字典数据逐个写入到零件开始
4 r3 C4 e) c, d" M: A. H$ k- X* CDim swApp As Object
Dim Part As Object
Dim longstatus As Long, longwarnings As Long
! T: q4 y( A4 ~7 K$ M# YDim myPath$, myFile$

7 v! n& A3 [) m+ h; uSet swApp = _
4 w- r7 I. _  OApplication.SldWorks
3 X2 G4 w; Q" B. x8 PmyPath = "C:\Users\Administrator\Desktop\1\" '..........................重点：把文件路径定义给变量
myFile = Dir(myPath & "*.sldprt") '依次找寻指定路径中的*.文件
2 y+ P$ f3 }# j: {" rDo While myFile <> ""
: B. X3 S( |1 z/ TSet Part = swApp.OpenDoc6(myPath & myFile, 1, 0, "", longstatus, longwarnings)
- W8 [7 ^. X" m6 i+ @
5 {8 P6 B" X" v    '单个零件写入数据开始
'Dim swApp As Object
0 \8 B3 e9 F( L4 e7 S3 qDim c As String
Set swApp = Application.SldWorks
$ T8 `, p4 I9 G7 p, B( zSet Part = swApp.ActiveDoc
% }& \  x5 h! _' p/ rc = swApp.ActiveDoc.GetTitle() '零件名
blnretval = Part.AddCustomInfo3("", "数量", swCustomInfoText, d.Item(c))
3 ^9 b) J& J9 t! }7 _    '单个零件写入数据结束

Part.Save
swApp.CloseDoc myPath & myFile
myFile = Dir '找寻下一个*.文件
0 U0 p1 Y  l$ l1 C! nLoop
'将字典数据逐个写入到零件结束
7 w' C) ~5 p6 s# o7 `End Sub

hdgd501

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

Miles_chen

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

Miles_chen

哦 刚开始没看清
% h" L& _$ v' _, e! Y4 w你是全部写到 数组里，然后做对比……，以装配体树结构为准
& i' z/ c  n7 S8 ?9 T% S我是直接按excel 零件名，顺序调用打开文件 ，以excel为准