【原创】装配体内零件排序宏（升级版）

Allate

因为有需求又想尝试一下程序的自引用，所以就有了这个升级版。
未升级前的链接——这里

' ******************************************************************************
' 装配体内零件排序宏（升级版）.swp - By Allate, 2021-07-02
' 参考imzhyo的【装配体内零件自动排序宏】
' ******************************************************************************
'1. 用于对装配体内的零部件进行排序，装配体在前，零件在后。
'2. 对子装配体内部进行排序。
'3. 不对压缩状态的零部件生效。
'4. 不对文件夹中的零部件生效。

效果图（图片懒得换）：


装配体内零件排序宏（升级版）_2021-07-15.zip (10.04 KB, 下载次数: 142, 售价: 20 金币)

2021-7-15 10:31 上传

点击文件名下载附件
售价: 20 金币  [记录]
下载积分: 金币 -1

2021-07-03更新，修正空文件引发的错误。
2021-07-15更新，增加对压缩零件的兼容。
没下载的朋友建议下载终极版（这里），可以处理子装配体内的排序以及文件夹内排序。

along668

很不错，顶一下！

tiancaiashuai

新鲜出炉的，尝尝鲜哈哈

tiancaiashuai

提示下标越界
For i = 0 To UBound(swArr) - 1
这一行黄色

tiancaiashuai

   经典案例图书

运行时错误 9
下标越界
   
我是2018版本

Allate

tiancaiashuai 发表于 2021-7-2 17:12
运行时错误 9
下标越界
   

截图看看你的设计树

1066236582

   经典案例图书

楼主很专业，写得很好！

tiancaiashuai

Allate 发表于 2021-7-2 17:14
截图看看你的设计树

我电脑传不了图片了，附件插入那里灰色的，用不了

tiancaiashuai

For i = 0 To UBound(swArr) - 1
这一行是黄色的

Allate

tiancaiashuai 发表于 2021-7-2 17:22
我电脑传不了图片了，附件插入那里灰色的，用不了

关于电脑有加密的情况我不清楚怎么处理，有可能会是这方面影响到宏的使用。

tiancaiashuai

换个浏览器，看看能不能发图片

tiancaiashuai

Allate 发表于 2021-7-2 17:30
关于电脑有加密的情况我不清楚怎么处理，有可能会是这方面影响到宏的使用。

楼主，电脑没有加密的

tiancaiashuai

我用子装配体不排序那个宏，可以正常运行

hjrhqs

tiancaiashuai 发表于 2021-7-2 16:47
新鲜出炉的，尝尝鲜哈哈

新鲜出炉的，尝尝鲜哈哈

Allate

加入QQ群
参与讨论和学习

或扫描二维码加入

tiancaiashuai 发表于 2021-7-2 17:32
换个浏览器，看看能不能发图片

找出问题了，这是因为你有一个空的子装配体。
附件已经更新过，可以重新下载解决这个问题，或者按下图操作，添加有绿线的那两行代码：

tiancaiashuai

   经典案例图书

楼主早上好，7月3号的运行有图片这样的提示。
按照你说的，7月2号的我加了那两行，可以运行了。
对比了一下，发现图片圈起来那行，在整个语句中位置不一样，特反馈给楼主。
再次感谢楼主的热心帮助，赞赞赞

Allate

加入QQ群
参与讨论和学习

或扫描二维码加入

tiancaiashuai 发表于 2021-7-3 09:08
楼主早上好，7月3号的运行有图片这样的提示。
按照你说的，7月2号的我加了那两行，可以运行了。
对比了一 ...

哦，忘记更改变量名了，你把swDoc改成swModel就好。感谢你的提醒！
P.S. 更改位置是为了更好的取消选择。

UDF998

   经典案例图书

文件夹里也要排序，子装配不需要排序，这个也有需求

Allate

UDF998 发表于 2021-7-3 10:24
文件夹里也要排序，子装配不需要排序，这个也有需求

那请使用未升级的宏，再自行改编代码吧。
P.S. 或者有空有心情的时候我再弄一个终极版吧。

superlian

报错啊
对象变量或with块变量未设置

  If swFile.GetModelDoc2().GetType = 1 Then