【原创】多实体零件组合成装配体-宏

tg000057

如题：
'说明：
'1.零件状态运行，
'2.多实体零件自动拆分成一个个单实体零件，并组合成一个装配体，原点装配，
'3.装配中装配原始零件，自动成压缩状态。



补充内容 (2021-10-6 14:35):
2021-10-06更新版在39楼

补充内容 (2021-11-22 14:28):
45楼更新，避免新建零件，装配体的重名操作，（当文件夹内已有相同名称时，名称自动序号+1）

tg000057

peng188 发表于 2021-9-1 20:12
建议原来多实体零件自动压缩状态改为封套，并隐藏。

个人习惯这样子用，代码是开源的，下载后可自行修改。

tg000057

peng188 发表于 2021-9-1 19:56
相同实体怎么处理？

怎么个相同？此宏是遍历实体个个保存，然后插入装配体，还有识别是否相同的功能。

tg000057

tg000057 发表于 2021-9-1 20:34
怎么个相同？此宏是遍历实体个个保存，然后插入装配体，还有识别是否相同的功能。

额，是没有识别功能，打上面打错字了。

tg000057

   经典案例图书

Allate 发表于 2021-9-3 14:07
山寨，哈哈哈哈

放羊的孩子啊！

tg000057

是有bug忘记更新了，
1.如果多实体没有保存就就运行，运行后会强行关闭，倒致一些特征没有。
加一段保存的代码在判断文档类型后面。
    If swModel.GetType <> 1 Then MsgBox "请在零件状态下运行！": End
    swModel.Save2 False





2.当多实体零件只有实体没有曲面，或者只有曲面没有实体时，会下标报错，
在新建零件插入实体的循环前加一段判断代码代码。


If i = 0 Then Exit Sub
For i = 0 To UBound(sAname)



If j = 0 Then Exit Sub
For j = 0 To UBound(sBname)

tg000057

   经典案例图书

更新：1，当零件只有曲面或实体其中一种时，下标报错。
2，新建零件或装配体时，重命报错（非第一次运行)。

增加：
1，点选其中一个或多个实体，仅输出选中实体 ，再新建零件来组合装配体。
2，增加最后保存装配体。

tg000057

刘茂机械 发表于 2021-9-30 20:28
SW2016中运行报错

这个应该是重名报错了，更新的在39楼，你也可以根据下面的代码修改，保存零件部件也要同样修改，只是要注意变量序号1的位置。
mm= 1
G_mm:
FileA = Left(File, Len(File) - 7) & "-装配" & mm & ".SLDASM"                      '装配体路径
If Dir(FileA) <> "" Then mm = mm + 1: GoTo G_mm                 '当文件名存在时，序号+1

tg000057

刘茂机械 发表于 2021-10-6 14:51
重新下载后还是不行 插入了原零件 后就没有反应了  2016版本

具体哪一段报错，报错内容是什么，还是完全没有反映？

嗯，还有另一种可能就是有些api不支持，我这边用的2019的，如果是这个原因的话就要看看有没有对应的接口可以替用了。

tg000057

增加输入名称选项
执行时会提示输入装配体名称，建立的装配体，装配体名称自动在后面加“00”，相关实体建立的名称则为输入的装配名称后面加“01”、“02”。。。。如果第二次执行时输入 相同的名称 则，装配体名称后则加“01”，相关实体建立的零件则为输入的装配名称后面加，已在存在的序号加1。

tg000057

igxoqve 发表于 2021-10-29 09:16
楼主,把这个宏改成能识别相同实体就完美了

这个做不到的，零件中的所有实体都是唯一性的存在，没有办法让它来帮你找相同，

tg000057

fz8889 发表于 2021-10-30 10:45
SW2018运行会报错

报错提示？？

tg000057

fz8889 发表于 2021-10-30 14:21
现在报错提示：438  装配图模板路径和零件模板路径我也都修改正确了的

经查，InsertPart3是sw2019以上才有，sw2018没有，你可以试试换成InsertPart2。
把new_Part_A和new_Part_B段的修改成。
Set myFeature = swModel.InsertPart2(File, 259)

tg000057

刘茂机械 发表于 2021-11-2 18:44
我用2018修改代码后可用 现在我想.插入装配中装配原始零件，自动勾选不包括在材料明细表中(如图)。

6楼已回复！

tg000057

加入QQ群
参与讨论和学习

或扫描二维码加入

ZJGERS 发表于 2021-11-22 14:11
我不知道后面有更新了，请问我下载了第一版的报错，怎么样升级啊，没钱下更新的拉

如果是用了39楼的，是没问题，45楼的更新不是很重要，只是避免重名的操作而已，我发一个给你。