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

tg000057

进入论坛接触到宏半年有多，在论坛学了好多好多东西，作为菜鸟多数是改改别人的作品，吸取前辈的知识，感谢巨人让我们在其肩上行走。这次冒险改个宏，希望能与更多人交流，学到更多的东西。

新手改编，语法很乱，不喜勿喷啊！！

本宏是由多个宏强行结合在一起使用，没有考虑运行快捷，语法整洁等，只求一个能用。

由于代码几乎都是抄各位前辈的，所以没有一一向各位要授权之类的，如有侵权请告知本人tg000057@126.com，或联系版主删帖！

下面简单说一下功能：
1.窗体选项，可选4种类型输出表格，可选是否去重输出，镜向件是否输出，是否略过无工程图组件输出。
2.表格设置完善标题，公司标题，冻结窗口，页脚，边框，打印等设置，可直接A4纸打印。
3.轻化件自动还原后输出，如用选取项输出有选取压缩件，也能输出。(先选取再运行宏)。
4.缩略图可选上色模式,线框模式，和无图模式，缩略图只截取默认配置缩略图，其他多配置不截取。
5.输出表格存放在装配体目录下，命名：装配体名+“-明细表”+序号，多次执行序号增加，不会覆写。
6.输出顺序和设计树的一样。
7.无特别定制要求，按“根据自己需求进行更改”处修改即可用。

为避伸手党，设置高一点门槛，见谅!!


补充内容 (2021-8-6 09:55):
有个bug，选取项输出时，如果展开零件设计树多选里面的的特征，会识别成选取多个相同零件，在不去重的情况下，会多重输出。解决方法是：提取时连同子件实例号一起提取，然后再去重！

补充内容 (2021-8-6 15:16):
更新版在18楼！

tg000057

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

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

Allate

tg000057 发表于 2021-8-6 14:57
找到原因了，静默打开文件时用的配置是“”，然后获取缩略图用的配置是“默认”，没有对应好。
用了段时 ...

当时没注意，忘记写出具体的问题点，还是你厉害，一下子看出来还解决掉

tg000057

修复已知漏洞！

ygsl

   经典案例图书

感谢楼主分享，很不错！

Allate

有点小瑕疵，但瑕不掩瑜！

arranger

   经典案例图书

很不错，顶一下！

工程Jay_chen

楼主大神和各位大神，请问这个怎么改成读取装配体里面该零件的总数量？现在读不出来的~

工程Jay_chen

顶一下，坐等高手！

tg000057

工程Jay_chen 发表于 2021-8-5 14:26
顶一下，坐等高手！

Dim ZD, ii, jj, Sl As Variant
Set ZD = CreateObject("scripting.dictionary")
For Each ii In Gn
If ii <> "" Then jj = ZD(ii): ZD(ii) = jj + 1
Next

Gn = ZD.Keys
Sl = ZD.Items


这一段代码是把数组去重，并统计其重复数量，放进两个数组里，你参考试着改一下！

工程Jay_chen

tg000057 发表于 2021-8-5 16:58
Dim ZD, ii, jj, Sl As Variant
Set ZD = CreateObject("scripting.dictionary")
For Each ii In Gn

感谢，感谢！我去试试

工程Jay_chen

tg000057 发表于 2021-8-5 16:58
Dim ZD, ii, jj, Sl As Variant
Set ZD = CreateObject("scripting.dictionary")
For Each ii In Gn

试了下，运行不起来显示运行时错误“438” 长老求指导~

yqzjjx

多谢分享   在试用中

tg000057

工程Jay_chen 发表于 2021-8-5 18:54
试了下，运行不起来显示运行时错误“438” 长老求指导~

上图啊老板。

工程Jay_chen

加入QQ群
参与讨论和学习

或扫描二维码加入

tg000057 发表于 2021-8-5 21:58
上图啊老板。

图没了...昨天把这个段程序放在不同的位置都试了一下，有几种报错的，也有的没有反应，小白我只能靠碰碰运起了...望大神指导下这段程序应该放在哪个位置合适。

tg000057

   经典案例图书

工程Jay_chen 发表于 2021-8-6 11:27
图没了...昨天把这个段程序放在不同的位置都试了一下，有几种报错的，也有的没有反应，小白我只能靠碰碰 ...

昨天那段代码是把获取的数组，去重和统计重复的数量，不是放到哪个位置就可以了，还要修改对应的变量。如果用此方法统计数量的话就必须去重。去重就会出现另一个问题，当零件1在装配体1和装配体2同时存在时，去重后它只出现在第一次出现的位置。

工程Jay_chen

加入QQ群
参与讨论和学习

或扫描二维码加入

tg000057 发表于 2021-8-6 11:38
昨天那段代码是把获取的数组，去重和统计重复的数量，不是放到哪个位置就可以了，还要修改对应的变量。如 ...

大神，明白你说的原理了，去重后它出现在第一次出现的位置也没问题，只要统计重复的数量是正确的就OK；不过你说的需要改动相对应的变量，这个应该怎么去改，代码搞不太懂

tg000057

   经典案例图书

工程Jay_chen 发表于 2021-8-6 13:14
大神，明白你说的原理了，去重后它出现在第一次出现的位置也没问题，只要统计重复的数量是正确的就OK；不 ...

帮你定制一个吧，把数量列更改为统计数量，当标题有“数量”一词时，则将统计的数量写入对应的单元格。
可选择统计输出数量或统计总装配数量。
然后是否去重也保留，不影响数量的统计。

tg000057

Allate 发表于 2021-7-27 09:15
有点小瑕疵，但瑕不掩瑜！

找到原因了，静默打开文件时用的配置是“”，然后获取缩略图用的配置是“默认”，没有对应好。
用了段时间我这边都没出现漏图的，今天突然有一个图没有上来，发现是零件的打开配置不一样才发现这个！

工程Jay_chen

tg000057 发表于 2021-8-6 14:53
帮你定制一个吧，把数量列更改为统计数量，当标题有“数量”一词时，则将统计的数量写入对应的单元格。
...

实在是太感谢了，谢谢大神!（已经试用，效果完美！）

無鈊唐螂

SW机械工程师网，找到组织了！