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

慕容揽月

思路是将SW的BOM表导入到EXCEL，然后将EXCEL的数据（零件名+数量）写入到字典，然后通过文件名来匹配到字典里存的数据（数量）写入到零件的数量属性。其中提示请输入数据时需要粘帖数据进来。Myr = 500 '需人工设定。欢迎大家进行补充、使程序更智能。
' N$ V) B, @5 i2 i
/ K- A) D4 [# wSub main()
# \2 ?0 N% ?8 [' K1 F; Z# |0 n'打开EXCEL表格开始
Dim ExcelSheet As Object
2 E3 U8 A9 P6 H( W r- _Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = True
'结束
, O! F) q: n# Y+ X
2 u* E2 \; ]4 y- E( E& ~6 |- R'填入数据开始
Dim d
# T/ t. i! ^! E" \+ sSet d = CreateObject("Scripting.Dictionary")
MsgBox "请输入数据"
u4 `+ L" c# r# T! {' s'结束
. f. v. F8 ?( e: a+ d' E
'数据写入字典开始
Dim Myr&
7 L! G) D% J- q5 fMyr = 500 '需人工设定
For i = 1 To Myr
d(ExcelSheet.Application.Cells(i, 1).Value) = ExcelSheet.Application.Cells(i, 2).Value
Next
'结束

'将字典数据逐个写入到零件开始
3 f0 G6 {& p3 g+ s" [2 F0 n9 [# V1 oDim swApp As Object
Dim Part As Object
Dim longstatus As Long, longwarnings As Long
Dim myPath$, myFile$
2 O; X: {) n) n
9 h: p3 ?2 k8 y% r) BSet swApp = _
Application.SldWorks
) I2 a( x6 k- _% R* h* WmyPath = "C:\Users\Administrator\Desktop\1\" '..........................重点：把文件路径定义给变量
5 P2 }& U, o- o& I. P/ I+ ~( tmyFile = Dir(myPath & "*.sldprt") '依次找寻指定路径中的*.文件
; a b) M+ e( h! @) F3 vDo While myFile <> ""
6 _/ M0 k2 Z# I; a5 I3 F- ASet Part = swApp.OpenDoc6(myPath & myFile, 1, 0, "", longstatus, longwarnings)
8 v3 W% |& ~. a+ ? f- g
& Z0 H7 Z) I! G2 m1 d$ {'单个零件写入数据开始
% b) g- j! P# M'Dim swApp As Object
/ J7 ~8 K# e) T; B1 ^/ ~Dim c As String
Set swApp = Application.SldWorks
" d6 B/ K8 o5 m- n/ G3 F0 N* ?! TSet Part = swApp.ActiveDoc
c = swApp.ActiveDoc.GetTitle() '零件名
3 `& j' k- [+ jblnretval = Part.AddCustomInfo3("", "数量", swCustomInfoText, d.Item(c))
0 W9 {* }, H; |% r+ f1 w'单个零件写入数据结束

2 H( ~: r" K ~# dPart.Save
! w8 h, v6 i! p+ u0 S; rswApp.CloseDoc myPath & myFile
' U( V$ X& O/ E: v7 [7 c3 P8 MmyFile = Dir '找寻下一个*.文件
2 a5 F: r- X6 o: C" {% qLoop
'将字典数据逐个写入到零件结束
9 K( o/ u% l7 ] n. n* o. ~- kEnd Sub

hdgd501

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

Miles_chen

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

Miles_chen

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