批量更改属性宏代码求助？添加属性的？

zja239 · 发表于 2016-3-11 17:34:48

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 '回到>直到读完表头

这个读取自定义属性的如何改成读取配置属性的？？？？？

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

这个输入自定义属性的如何改成输入到配置属性的？？？？？

哪位高手指导一下

轩昕 · 发表于 2016-3-11 17:38:50

好的谢谢

嘉信 · 发表于 2016-3-11 17:40:30

这个还是改不好有哪位高手帮我直接改一下贴出来谢谢了

天天美加 · 发表于 2016-3-11 17:41:25

Sub ReadPrp() 及 Sub WritePrp() 之編程皆不完整 (兩個宏都沒有 END SUB)
需要幫助請重新上傳原始SWP檔
是配合EXCEL操作的嗎? 是的話也需上傳EXCEL檔

ヤ明ヤ · 发表于 2016-3-11 17:43:00

经典案例图书

我已经发给你了网盘帮我看一下改改谢谢了

cw044 · 发表于 2016-3-11 17:47:37

無法操作

蔡J · 发表于 2016-3-11 17:47:47

经典案例图书

你是32 位系统？

ccf0017 · 发表于 2016-3-11 17:48:19

你注册一下试试

唐僧不洗头123 · 发表于 2016-3-11 17:48:38

Solidworks 批量改名改属性工具.zip (141.15 KB, 下载次数: 128) 我上传的你在下载看看我的也 64 位的 EXCEL 2010的运行正常啊

2008randy · 发表于 2016-3-11 17:51:22

我从新上传了你在看看哈哈

marthald · 发表于 2016-3-11 17:51:43

點了 "系統註冊控件" 已不顯示錯誤了
但是點了 "系統註冊控件" 什麼也沒動作
應該陳述下如何操作
excel也是2010,宏的簡体字全部轉成繁体,就不知道是不是註冊繁版的因素.

xk7999 · 发表于 2016-3-11 17:54:01

另工程圖也用不到配置屬性

xiaozhuzhu · 发表于 2016-3-11 17:54:36

1、集成改名改属性；
2、菜单采用系统菜单方式，看着专业，呵呵，
3、鼠标点击零件行可显示零件的预览图，
4、零件的预览图拖动图标题栏可以移到自己需要的位置固定；
5、预览图标题栏点右键可设大小，
6、增加环境设置工具；
7、如果选取的零件有工程图，会在零件名的左侧显示五角星；改名时会将工程图的名字一并更改并关联。
使用说明：
1、详细功能自己体会；
2、表头1-6列请不要更改，7列及后续列可按照各自产品的属性值需要，自行更改。

稻草人sos · 发表于 2016-3-11 17:56:32

支持原创～

tolam · 发表于 2016-3-11 17:57:44

加入QQ群
参与讨论和学习

或扫描二维码加入

sw2016出现错误

星夜行 · 发表于 2016-3-11 17:58:53

经典案例图书

可以读取外形尺寸，但是属性读后没有显示，属性是配置属性，是不是不支持。

mimi12345 · 发表于 2016-3-11 18:01:34

加入QQ群
参与讨论和学习

或扫描二维码加入

试过，只能读取自定义属性，若能读取配置特定属性就好了，不知能否改，求助。

lizylazy · 发表于 2016-3-11 18:02:46

经典案例图书

以下是大王兄的做法，能否参考
【利用 Excel 批量修改SW檔案屬性】
利用 Excel 批量修改SW檔案自訂屬性及模型組態指定 (無需 SWDM-API 許可號碼)

大侠曾經要求過整合類型及配置（模型組態），經過一番努力後，找到了笨拙的對應方法。

因為自訂屬性和組態指定都有人採用，是必須顧及的，所以分為5種類型，分別是零件、零件含組態、組合件、組合件含組態和工程圖，如下圖：

模型組態方面的難處是，組態屬於每個檔案的分支，而Excel的表單是二維的，要在同一表單同時處理三類的資料（檔案名稱、組態名稱及屬性），原則上是不可能的，
唯有把檔案名稱和組態名稱合二為一，每一個模型組態當成是獨立的檔案來看待，這樣就可以套用於二維的Excel表單上了，如下圖：

Excel檔案的說明：
1. 首列是用來安放按鈕，第二列是正式表頭，第三列起是資料內容。
2. 除了首三個欄位（路徑、檔案名稱及組態名稱），之後的都是屬性名稱，可隨意修改或添加，沒有上限的。
3. 選擇檔案時可以同時選擇多個檔案，點選後再次點選的話，就會往下繼續添加，注意是不會過濾重複檔案的。
4. 可以利用Excel本身功能快速清空表單，例如框選後按Delete鍵。
5. 在還未熟練前，不要直接以有用資料來做實驗，可以複製到別處試驗，以免因失誤搞壞資料。
SW-API.rar (15.1 KB, 下載次數: 250) 密碼：thankyou
回覆後按 Ctrl+A 看密碼。

bojili · 发表于 2016-5-6 09:05:22

好好学习，天天向上！

leon_cxf · 发表于 2016-5-14 14:00:08

看着好深奥啊，路过，学习

		自动登录	找回密码
密码			立即注册

批量更改属性宏代码求助？添加属性的？

最佳新人

活跃会员

宣传达人