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

自由设计 · 发表于 2021-9-5 13:08:17

感谢楼主分享，很不错！

淡淡的雲 · 发表于 2021-9-6 11:01:49

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

夕梦恋 · 发表于 2021-9-7 08:16:47

感谢楼主分享，很不错！

jugege · 发表于 2021-9-7 08:35:15

价格好贵

fan03488 · 发表于 2021-9-11 08:32:29

经典案例图书

感谢楼主分享，很不错！

qqfly332211 · 发表于 2021-9-11 11:02:23

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

Tony001 · 发表于 2021-9-15 13:18:54

经典案例图书

是不是与装配体功能一样。

Tony001 · 发表于 2021-9-15 13:27:47

运行出错。

tg000057 · 发表于 2021-9-15 14:34:20

是有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)

aba121 · 发表于 2021-9-15 15:06:55

感谢楼主分享，很不错！

337868333 · 发表于 2021-9-18 20:14:23

感谢楼主分享，很不错！

刘茂机械 · 发表于 2021-9-19 19:05:22

感谢楼主分享，很不错！

wufang2004 · 发表于 2021-9-20 08:34:16

楼主最好发张图片！

jugege · 发表于 2021-9-21 20:24:20

如果多实体中包含钣金，转为装配体后，零件的钣金特征还在吗？

Kerwin1314 · 发表于 2021-9-23 08:11:07

加入QQ群
参与讨论和学习

或扫描二维码加入

感谢楼主分享，很不错

yechao12233 · 发表于 2021-9-28 09:47:02

经典案例图书

有没有用啊，怎么样

qqfly332211 · 发表于 2021-9-29 08:54:48

加入QQ群
参与讨论和学习

或扫描二维码加入

感谢楼主分享，很不错！

刘茂机械 · 发表于 2021-9-30 20:28:05

经典案例图书

SW2016中运行报错

tg000057 · 发表于 2021-10-6 14:29:12

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

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

tg000057 · 发表于 2021-10-6 14:32:56

刘茂机械发表于 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

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

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

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献