Excel 批量修改SW档案属性 (无需 SWDM-API 许可号码)

minyih · 发表于 2014-11-12 02:01:42

经典图书

大佬辛苦的成果，我不客气收下了。

谢谢大佬无私分享宝贵作品。

虽然说大佬有设定解压缩密码，但是被我误打误撞矇到了。可以劳烦大佬公佈给其他人吗？或者是让我代其劳？

lzhqin · 发表于 2014-11-13 06:26:25

谢臭弟及梧桐提醒，已经加上提示字句。（按Ctrl+A看密码）

madfox · 发表于 2014-11-13 17:47:26

经典图书

这个适用于2015版

能不能做成SWDM-API 的样式
（很贪婪）

fargood · 发表于 2014-11-14 22:56:06

原因好像是出在"许可码"

myfeet · 发表于 2014-11-15 16:56:55

经典案例图书

臭弟误会了梧桐兄的意思了。

完整句子是：
试过这个无需 SWDM-API 许可号码的程序适用于2015版

能不能改良一下这个程序做成与需要SWDM-API许可号码那个程序的样式一样呢？
（我是不是很贪婪呀？）

先要向可能会产生Hard Feeling的臭弟说句不好意思，不是在挑剔臭弟，而是牺牲臭弟顶出糗例子，希望可以提倡互相体谅的意识，可让往后讨论更为畅顺。

另外，正在归纳臭弟的『从总组件开启往下所有相关工程图的巨集』，看看能否与这一个程序融合，还在努力中，请臭弟稍等。

hunter2932 · 发表于 2014-11-17 00:26:11

原来是这样阿

-----------------------------------------------------------

大佬放心，我习惯从错误中学习

真的麻烦你了，一直记得我的需求与学习。

我正在加紧工作进度，想早点把"推车"给完成

showpicnet · 发表于 2014-11-17 20:56:24

经典案例图书

大佬，一开始就GG了…

好像少了宣告…后来加上这一行…就成功了耶！！！
Dim swExportPDFData As SldWorks.ExportPdfData

复制代码

另外请教大佬，步骤5的第2行代码…是不是要改成这样才会储存在对的资料夹呀… If (MyPathName = "" Or MyPathName = 0 Or IsEmpty(MyPathName)) Then MyPathName = PathName '如果C1没有内容则用源文件的位置

复制代码

folkman · 发表于 2014-11-18 02:47:53

贴上操作成功的过程。谢谢大佬~~^^

cooperman · 发表于 2014-11-18 22:38:33

终于等到大佬施展魅力了。

是的，大佬此举可说是“故意的错误”，好让吃下天降馅饼时带点难度，看似麻烦实属有益无害，绝对是“良心食品”。

希望“故意的错误”不要变成“错误的故意”，谢谢！

perfectymh · 发表于 2014-11-20 13:40:21

经典图书

感谢大佬无私分享
个人在运行时有这种问题，读取属性是读取的数值/表达式内的数据，而不是读取评估的值里的数据，比如材料或者重量之类的属性

经过修改后可以得到评估的值里的数据
修改后代码如下，但是不知正确与否，还望大佬指正

读取属性的值.txt (1.78 KB, 下载次数: 137)

另外：高速版也是这样的，但是我怎么都更改不过来，找到了函数始终不会用
不知是否函数找错(GetCustomPropertyValues)Dim linkedTo As String
PropValue = swDoc.GetCustomPropertyValues(PropName, swDmCustomInfoText, linkedTo)

复制代码

changuse · 发表于 2014-11-20 17:59:34

谢谢讨论。
应读取『数式』还是『结果』，是值得讨论的。

大佬选择读取『数式』是顾及到还有『将表格内容写入到档案』这个功能，如果写入到档案是『结果』，档案的属性就会变成固定值，比如零件设变后质量改变了，零件的质量属性也不会更新了。

大佬还没想出一个两全其美的做法，希望各位可以提出不同见解及想法，集思广益，让问题得以解决。

major1 · 发表于 2014-11-25 03:21:59

谢谢大佬回复

写入属性的话，是不会写到『结果』的吧，在文档里面手动操作，『结果』那一栏都是灰色的，不允许写入任何东西，只允许在『数式』里面写，不知道我的理解对不对

cyx0219 · 发表于 2014-11-28 07:18:10

与SW的UI无关的。

只要试一下你自己的建议（代码），然后执行『将表格内容写入到档案』，就会明白大佬的意思。

zyftxdj · 发表于 2014-11-28 15:43:26

测试如下：
下图是原来的属性

用了45楼的代码，变成这样

mjtppf · 发表于 2014-11-29 09:53:03

加入QQ群
参与讨论和学习

或扫描二维码加入

现在明白大佬的意思了
我是这样想的：
1.可否在写入属性时，由用户自行删除有表达式的属性，然后再执行『将表格内容写入到档案』(这个比较好执行)
2.将重量，材料类似这些属性有表达式的属性，不执行写入属性功能
3.可否由程序判断表达式的关键字眼，例如“PRP”，“___.SLDPRT”之类的，然后过滤掉这些属性的写入

mhymhy7713 · 发表于 2014-11-30 06:40:50

经典案例图书

话说回来，“养眼”也是一个合理要求，可以尝试Excel的注释，那就可以既看到又不影响了。

whuawei846 · 发表于 2014-11-30 18:58:58

加入QQ群
参与讨论和学习

或扫描二维码加入

谢谢大佬的讨论
看来我的这个想法确实是无意义的

xiangkaikui · 发表于 2014-12-3 02:42:30

经典案例图书

不用泄气，意念不错，45楼的代码也很好，可读取『结果』，略作修改，就可以把『结果』加入到注释，改后的代码如下 Dim val As String
Dim valout As String
Dim bool As Boolean
Set swModelDocExt = swDoc.Extension
Set swCustProp = swModelDocExt.CustomPropertyManager(Cells(RowNumber, 3))
bool = swCustProp.Get4(PropName, False, val, valout)
' Cells(RowNumber, ColumnNumber) = valout '此句可删
Cells(RowNumber, ColumnNumber).ClearComments
Cells(RowNumber, ColumnNumber).AddComment
Cells(RowNumber, ColumnNumber).Comment.Visible = False
Cells(RowNumber, ColumnNumber).Comment.Text Text:="评估值：" & Chr(10) & valout

复制代码

swswsw2020 · 发表于 2014-12-3 06:52:56

谢谢大佬
修改后的效果

另外大佬可能又在做"故意的错误"

googoo · 发表于 2014-12-4 18:45:49

能不能加入一列，用SW-API读取到“创建时间”？

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