【改编】---装配体下工程图合并一张多页工程图

钓鱼要戴头盔 · 发表于 2023-12-7 12:09:50

'感谢pyczt!!!(

献花致敬)
'主要修改：从选择文件变为遍历装配体，在明细表中的零件，对其工程图的进行合并。
'--注意：多页工程图的只能调取第一页进行合并。
'--注意：合并后不要着急关闭工程图，容易闪崩。

panmiao8012 · 发表于 2024-4-28 16:07:06

钓鱼要戴头盔发表于 2023-12-21 11:19
有两行代码，获取名称的错误了，没更正过来

MergeFileName = Right(swModel.GetPathName, Len(swModel.GetPathName) - InStrRev(swModel.GetPathName, "\", -1))
MergeFileName = Left(MergeFileName, Len(MergeFileName) - InStrRev(MergeFileName, ".", -1) + 2) & ".SLDDRW"
楼主是不是这2行代码，具体要怎么改

dengchenghui · 发表于 2024-4-8 10:35:00

楼主能把报错修改好的再发一次吗？谢谢

a305367 · 发表于 2024-4-7 22:35:12

很不错，顶一下！

懒懒的高贵 · 发表于 2024-4-4 13:19:26

经典案例图书

好东西，努力学习学习！

54butterfly · 发表于 2024-4-4 07:48:49

感谢楼主分享，很不错！

钓鱼要戴头盔 · 发表于 2023-12-21 11:19:44

经典案例图书

zxt0824 发表于 2023-12-15 18:57
装配体有工程图，但一直提示无工程图。不知道该怎么办了。

有两行代码，获取名称的错误了，没更正过来

zxt0824 · 发表于 2023-12-15 18:57:11

装配体有工程图，但一直提示无工程图。不知道该怎么办了。

zxt0824 · 发表于 2023-12-15 18:33:28

感谢楼主分享，很不错！

月下漫步 · 发表于 2023-12-15 11:31:12

确实用得到这个

384432485 · 发表于 2023-12-14 16:47:15

感谢楼主分享，很不错！

hdgd501 · 发表于 2023-12-13 12:40:50

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

随遇而安9528 · 发表于 2023-12-13 09:16:51

楼主，我运行报91错误：Set swRootComp = swConf.GetRootComponent 运行时错误 91

taiyi000 · 发表于 2023-12-8 11:30:04

有工程图为什么提示无？

wjbg2019 · 发表于 2023-12-7 16:55:30

加入QQ群
参与讨论和学习

或扫描二维码加入

好东西，努力学习学习！

sunsu168 · 发表于 2023-12-7 15:16:24

经典案例图书

感谢楼主分享，很不错！

yni621 · 发表于 2023-12-7 14:57:40

加入QQ群
参与讨论和学习

或扫描二维码加入

楼主辛苦了！

沉默的人 · 发表于 2023-12-7 14:57:30

经典案例图书

感谢楼主分享，很不错！

jyzas001 · 发表于 2023-12-7 13:42:51

感谢分享

jyzas001 · 发表于 2023-12-7 13:42:46

感谢分享

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

【改编】---装配体下工程图合并一张多页工程图

评分

浏览过的版块

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献