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

慕容揽月

思路是将SW的BOM表导入到EXCEL，然后将EXCEL的数据（零件名+数量）写入到字典，然后通过文件名来匹配到字典里存的数据（数量）写入到零件的数量属性。其中提示请输入数据时需要粘帖数据进来。Myr = 500 '需人工设定。欢迎大家进行补充、使程序更智能。

5 e: }% c$ s8 z. h* |# hSub main()
' m; m& j3 W% J'打开EXCEL表格开始
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
9 w4 N( M! h" P; OExcelSheet.Application.Visible = True
7 u  x7 P; D. e% \8 n1 U  z- g" h: E'结束
# p' k2 D) L3 e' i
& J# f. z& ~% H# O: J7 K- v% e1 L'填入数据开始
! K. I6 f1 b1 k8 dDim d
Set d = CreateObject("Scripting.Dictionary")
MsgBox "请输入数据"
" t2 O4 B% c, T. `7 F6 |$ O; I# W'结束

  f3 t3 R3 I7 o  ]4 G  t3 L'数据写入字典开始
0 _5 t* W+ v$ h5 P/ A7 F* fDim Myr&
Myr = 500 '需人工设定
For i = 1 To Myr
d(ExcelSheet.Application.Cells(i, 1).Value) = ExcelSheet.Application.Cells(i, 2).Value
/ ], Q. p; H* M& b1 L4 y  Q; [Next
'结束
/ Y6 y) ?3 B) M# A7 h7 {4 d
; H4 `# C, U! J4 e( A- J'将字典数据逐个写入到零件开始
* j! C- v# k- i3 O" ~Dim swApp As Object
$ Q1 y: E6 Y/ l6 q+ vDim Part As Object
Dim longstatus As Long, longwarnings As Long
( J, _! l" s' k& pDim myPath$, myFile$

; c  E! ]: a; @7 X* T$ T2 ASet swApp = _
Application.SldWorks
myPath = "C:\Users\Administrator\Desktop\1\" '..........................重点：把文件路径定义给变量
myFile = Dir(myPath & "*.sldprt") '依次找寻指定路径中的*.文件
Do While myFile <> ""
/ w" o- G$ F7 R( R0 }& CSet Part = swApp.OpenDoc6(myPath & myFile, 1, 0, "", longstatus, longwarnings)

    '单个零件写入数据开始
'Dim swApp As Object
Dim c As String
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
% w; e* h7 T5 q+ P( n3 Mc = swApp.ActiveDoc.GetTitle() '零件名
blnretval = Part.AddCustomInfo3("", "数量", swCustomInfoText, d.Item(c))
4 e. y/ E% {: c$ w. @2 S9 N    '单个零件写入数据结束

9 R, b+ X' [1 d* o* L3 `5 W5 L" i7 c) ]Part.Save
* U5 m- K. N/ c, a9 Z- BswApp.CloseDoc myPath & myFile
9 R) c7 `% ^$ g- P7 o" AmyFile = Dir '找寻下一个*.文件
6 M7 K* {' O9 K  C: pLoop
'将字典数据逐个写入到零件结束
End Sub

hdgd501

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

Miles_chen

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

Miles_chen

哦 刚开始没看清
: s& r' q6 Q9 L/ b/ y1 h+ G你是全部写到 数组里，然后做对比……，以装配体树结构为准
我是直接按excel 零件名，顺序调用打开文件 ，以excel为准