<<改编>>遍历装配体获取子件的自定义属性及缩略图输出到Excel的宏

wwwerzhou · 发表于 2021-8-11 20:14:03

经典图书

感谢楼主分享，很不错！

刘茂机械 · 发表于 2021-8-11 22:45:43

感谢楼主分享，很不错！

zhjan518 · 发表于 2021-8-18 13:59:42

经典图书

复件下载了，一运行这个宏就奔溃了，系统WIN7 64 sw2016，是哪里的原因呢
这是打开宏的状态，确定后无任何反应

这是编辑宏的状态，直接奔溃

zhjan518 · 发表于 2021-8-18 14:16:38

找到原因了，可以正常打开，表格中怎么加入文件名呢

tg000057 · 发表于 2021-8-18 14:39:57

经典案例图书

zhjan518 发表于 2021-8-18 14:16
找到原因了，可以正常打开，表格中怎么加入文件名呢

什么情况？

tg000057 · 发表于 2021-8-18 14:46:29

zhjan518 发表于 2021-8-18 14:16
找到原因了，可以正常打开，表格中怎么加入文件名呢

xx = Bti(UI)
xlWs.Range(Chr(65 + UI) & CurRow).Value = Get_Property_value(swDoc, xx) '转到获取当前模型文档的某个属性的值

这里改成：

xx = Bti(UI)
If xx = "文件名" Then
xlWs.Range(Chr(65 + UI) & CurRow).Value = swDocName
Else
xlWs.Range(Chr(65 + UI) & CurRow).Value = Get_Property_value(swDoc, xx) '转到获取当前模型文档的某个属性的值
End If

在表格标题名为“文件名”的列，输入文件名。

yni621 · 发表于 2021-8-18 15:07:57

经典案例图书

很不错，找到组织了！

zhjan518 · 发表于 2021-8-18 15:16:56

tg000057 发表于 2021-8-18 14:46
xx = Bti(UI)
xlWs.Range(Chr(65 + UI) & CurRow).Value = Get_Property_value(swDoc, xx) ...

按照楼主的改了，又出现以下问题

zhjan518 · 发表于 2021-8-18 15:40:50

少了一个end if

tg000057 · 发表于 2021-8-18 16:15:17

经典图书

zhjan518 发表于 2021-8-18 15:40
少了一个end if

刚刚运行导致sw奔溃的原因和解决方法说一下吧，别让有相同问题的伙伴摸不到头脑

。

zhjan518 · 发表于 2021-8-18 17:18:56

tg000057 发表于 2021-8-18 16:15
刚刚运行导致sw奔溃的原因和解决方法说一下吧，别让有相同问题的伙伴摸不到头脑。

是我不小心改错了宏文件参数造成的

，经过楼主提示增加了文件名，调整了下表格。属性也由自定义改为默认属性

tg000057 · 发表于 2021-8-19 08:12:14

有个bug，7-26发布的：选取项输出时，如果展开零件设计树多选里面的的特征，会识别成选取多个相同零件，在不去重的情况下，会多重输出。
8-06发布的：修正方案是，为避免以上情况，提取实例号去重（因为实例号不重复）。
现发现一问题是：当装配体1和装配2同时有零件1时，装配体1和装配2内的零件1实例号有可能是一样的。当选择项内同时有装配体1和装配2内的零件1时，且输入不勾选去重的情况下，有可能因为实例号相同只输出一个项。
刚想到的存在问题，还没有解决方案，只能先说慎用这项功能。

zhjan518 · 发表于 2021-8-19 14:31:52

可以参考下凯元和麦迪的BOM

阿斯蒂芬0 · 发表于 2021-8-19 21:46:52

2016运行报错

tg000057 · 发表于 2021-8-20 07:57:44

加入QQ群
参与讨论和学习

或扫描二维码加入

阿斯蒂芬0 发表于 2021-8-19 21:46
2016运行报错

楼上518也是用2016的，所以应该不是sw的问题，你检查一下execl！

無鈊唐螂 · 发表于 2021-9-19 13:49:34

经典案例图书

很不错，找到组织了！

無鈊唐螂 · 发表于 2021-9-24 16:24:02

加入QQ群
参与讨论和学习

或扫描二维码加入

感谢楼主分享，很不错！

gardner · 发表于 2021-9-27 13:21:56

经典案例图书

非常不错，稍微改了一下就能用了。赞一个！

makejon · 发表于 2021-10-19 20:54:55

楼主太有才了，膜拜中……

makejon · 发表于 2021-10-19 20:56:53

感谢楼主分享，很不错！

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

<<改编>>遍历装配体获取子件的自定义属性及缩略图输出到Excel的宏

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献

<<改编>>遍历装配体获取子件的 自定义属性及 缩略图 输出到Excel的宏

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献

<<改编>>遍历装配体获取子件的自定义属性及缩略图输出到Excel的宏