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

慕容揽月

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

Sub main()
'打开EXCEL表格开始
' S+ x+ d# S% D* gDim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = True
: L' B; N. K# o* D( B  Z'结束

7 C& y0 }# R. s: |'填入数据开始
Dim d
Set d = CreateObject("Scripting.Dictionary")
MsgBox "请输入数据"
& Z4 U) Y- O! u2 N& J1 ]'结束
3 U5 I% X/ ]/ f9 U( L+ i
6 W# |( C4 E5 N2 n9 h3 P( {& ~: ^'数据写入字典开始
9 y$ e) ^: h: W: TDim Myr&
! D2 e7 K; d# z# h8 k# `0 hMyr = 500 '需人工设定
For i = 1 To Myr
0 V9 }1 r) d/ Z) R! W( `d(ExcelSheet.Application.Cells(i, 1).Value) = ExcelSheet.Application.Cells(i, 2).Value
6 W0 h0 w) V$ B. k% O: k" oNext
/ O% Z. a- k* u* s3 M" B  h1 ?'结束

, e2 l# E' v# y# F# m1 a'将字典数据逐个写入到零件开始
/ G5 Z/ M0 t5 o1 {1 n& iDim swApp As Object
3 K4 T- L* _4 i7 eDim Part As Object
Dim longstatus As Long, longwarnings As Long
Dim myPath$, myFile$

Set swApp = _
2 ~; O6 P! ~: n6 x4 [  Y% I4 sApplication.SldWorks
myPath = "C:\Users\Administrator\Desktop\1\" '..........................重点：把文件路径定义给变量
myFile = Dir(myPath & "*.sldprt") '依次找寻指定路径中的*.文件
; Z  @5 g# W& @1 k! H( F* pDo While myFile <> ""
( }, d8 L# J) V( S$ ASet Part = swApp.OpenDoc6(myPath & myFile, 1, 0, "", longstatus, longwarnings)
* G; t2 }: ]* S/ W
    '单个零件写入数据开始
6 j" Z# J. o$ \6 C/ {( F: l- m'Dim swApp As Object
. |# {6 W3 }6 D! dDim c As String
4 [; A. H8 K- Z5 T8 bSet swApp = Application.SldWorks
! W/ U- s% |* v! v9 K# pSet Part = swApp.ActiveDoc
c = swApp.ActiveDoc.GetTitle() '零件名
blnretval = Part.AddCustomInfo3("", "数量", swCustomInfoText, d.Item(c))
4 f! w' m0 z+ p    '单个零件写入数据结束

: {4 D4 Y: d& z" B' |  f  p5 J% _Part.Save
swApp.CloseDoc myPath & myFile
( `  ]% S5 A. x9 W# e3 T& gmyFile = Dir '找寻下一个*.文件
Loop
; m( V9 d; z  W0 O0 c! t'将字典数据逐个写入到零件结束
4 x5 |# W! V: z  i4 C: t( x0 KEnd Sub
# M/ A% U9 e9 S* H

hdgd501

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

Miles_chen

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

Miles_chen

哦 刚开始没看清
# \% Z  r4 V  b- `8 t! t, ]$ F你是全部写到 数组里，然后做对比……，以装配体树结构为准
" X  U2 ?) f' Q7 i4 k9 \我是直接按excel 零件名，顺序调用打开文件 ，以excel为准