马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 litao036 于 2016-1-12 10:23 编辑
5 c5 ?8 H+ k5 z# W7 X) L; W& }* b6 p# O4 c0 A
! c1 Z( T. i( x9 N. @" m; A+ l
Sub ReadPrp() Set swApp = CreateObject("SldWorks.Application") '启动SW ReadFilesCount = 0 HeaderRow = 2 RowNumber = HeaderRow + 1 PathName = Cells(RowNumber, 2) '读取第一个路径的值 While Not (PathName = "" Or PathName = 0 Or IsEmpty(PathName)) '直到读完路径栏 FileName = Cells(RowNumber, 3) & "." & Cells(RowNumber, 4) If UCase(Right(FileName, 3)) = "PRT" Then swFileTYpe = 1 If UCase(Right(FileName, 3)) = "ASM" Then swFileTYpe = 2 ' If UCase(Right(Filename, 3)) = "DRW" Then swFileTYpe = 3 Set swDoc = Nothing If Dir(PathName & FileName) <> "" Then Set swDoc = swApp.OpenDoc(PathName & FileName, swFileTYpe) '开启档案 End If If Not swDoc Is Nothing Then ColumnNumber = 6 PropName = Cells(HeaderRow, ColumnNumber) While Not (PropName = "" Or PropName = 0 Or IsEmpty(PropName)) '直到读完表头 PropValue = swDoc.CustomInfo2("", PropName) '获取属性 Sheet1.Cells(RowNumber, ColumnNumber) = PropValue ColumnNumber = ColumnNumber + 1 '下一栏 PropName = Cells(HeaderRow, ColumnNumber) ' If swFileTYpe = 2 And ColumnNumber = 10 Then ColumnNumber = 13 '组件跳过读取零件的材料属性 Wend '回到>直到读完表头 : X8 y+ L* t& g, [& e& u" _
这个 读取自定义 属性的 如何改成读取 配置属性的？？？？？ 1 [! ^# B$ i; `0 P x# M
6 l, J( x5 \- Y( b
Sub WritePrp() Set swApp = CreateObject("SldWorks.Application") '启动SW SavedFilesCount = 0 HeaderRow = 2 RowNumber = 3 RowNumber = HeaderRow + 1 PathName = Cells(RowNumber, 2) '读取第一个路径的值 While Not (PathName = "" Or PathName = 0 Or IsEmpty(PathName)) '直到读完路径栏 FileName = Cells(RowNumber, 3) & "." & Cells(RowNumber, 4) If UCase(Right(FileName, 3)) = "PRT" Then swFileTYpe = 1 If UCase(Right(FileName, 3)) = "ASM" Then swFileTYpe = 2 If UCase(Right(FileName, 3)) = "DRW" Then swFileTYpe = 3 Set swDoc = Nothing If Dir(PathName & FileName) <> "" Then Set swDoc = swApp.OpenDoc(PathName & FileName, swFileTYpe) '打开文件 End If If Not swDoc Is Nothing Then ColumnNumber = 6 PropName = Cells(HeaderRow, ColumnNumber) If PropName = "材料" And swFileTYpe = 2 Then GoTo 200 If PropName = "材料厚度" And swFileTYpe = 2 Then GoTo 200 While Not (PropName = "" Or PropName = 0 Or IsEmpty(PropName)) '直到读完表头 ' ConfigName = Cells(RowNumber, 3) PropValue = Cells(RowNumber, ColumnNumber) If Len(PropValue) > 0 Then swDoc.DeleteCustomInfo2 ConfigName, PropName '删除属性 swDoc.AddCustomInfo3 ConfigName, PropName, 30, PropValue '新增属性 End If ' If ColumnNumber = 9 And swFileTYpe = 2 Then ' ColumnNumber = ColumnNumber + 3 ' End If ColumnNumber = ColumnNumber + 1 '下一栏 PropName = Cells(HeaderRow, ColumnNumber) 200 Wend '回到>直到读完表头 Dim lErrors As Long Dim lWarnings As Long SaveOk = swDoc.Save3(1, lErrors, lWarnings) swApp.CloseDoc PathName & FileName '关闭工程图 If SaveOk Then Cells(RowNumber, 2).Interior.Color = RGB(255, 255, 127) SavedFilesCount = SavedFilesCount + 1 End If End If 这个 输入自定义 属性的 如何改成输入到 配置属性的？？？？？ 哪位高手 指导一下 A1 j/ n) z% s' W
2 h# @, ?* `- u: ?. g; P2 {+ a/ [
5 W) @ z+ D' _3 E& H | 
发表于 2016-1-11 11:11:38
发表于 2016-1-11 11:25:06
楼主
