设为首页收藏本站
开启辅助访问 切换到宽版

SolidWorks机械工程师网——最大的SolidWorks学习平台

 找回密码
 立即注册

QQ登录

只需一步，快速开始

好品数字
好品数字
SolidWorks机械工程师网——最大的SolidWorks学习平台»学习社区 › SolidWorks开发与拓展应用 › SolidWorks二次开发（宏，VBA） › 【改编】---装配体下工程图合并一张多页工程图
返回列表 发新帖
查看: 5274|回复: 19
打印 上一主题 下一主题

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

  [复制链接]
钓鱼要戴头盔

1

主题

105

帖子

94

金币

堂主

Rank: 4

积分
567

最佳新人活跃会员热心会员宣传达人
跳转到指定楼层
楼主
 楼主| 发表于 2023-12-7 12:09:50 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
'感谢pyczt!!!(献花致敬)
'主要修改：从选择文件变为遍历装配体，在明细表中的零件，对其工程图的进行合并。
'--注意：多页工程图的只能调取第一页进行合并。
'--注意：合并后不要着急关闭工程图，容易闪崩。

mmexport1701919758082.png

装配体合并多页工程图 .rar

（25.02 KB, 下载次数: 83 售价: 1 金币 ）

评分

参与人数 1威望 +5 金币 +52 贡献 +5 收起 理由
专门设计 + 5 + 52 + 5 赞一个!

查看全部评分

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏4 转播转播 分享教程|习题|模型|技巧 点赞点赞 拍砖拍砖
SolidWorks机械工程师网
提示：建议使用谷歌浏览器浏览本网站！如单击这里下载！否则，可能无法下载附件文件！（支持大多数版本的谷歌浏览器，支持360和QQ浏览器的极速模式，即谷歌内核模式，使用IE和Edge浏览器，浏览个别网页以及下载文件时，会误报“***不安全”，此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载，另外，本网站不含任何不安全的文件，已联系微软公司解决，纯属IE和Edge浏览器误报）
回复

使用道具 举报

jyzas001

3

主题

433

帖子

848

金币

传奇

Rank: 8Rank: 8

积分
4599

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
沙发
发表于 2023-12-7 13:42:46 | 只看该作者
感谢分享
SolidWorks机械工程师网
提示：建议使用谷歌浏览器浏览本网站！如单击这里下载！否则，可能无法下载附件文件！（支持大多数版本的谷歌浏览器，支持360和QQ浏览器的极速模式，即谷歌内核模式，使用IE和Edge浏览器，浏览个别网页以及下载文件时，会误报“***不安全”，此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载，另外，本网站不含任何不安全的文件，已联系微软公司解决，纯属IE和Edge浏览器误报）
回复 支持 反对

使用道具 举报

jyzas001

3

主题

433

帖子

848

金币

传奇

Rank: 8Rank: 8

积分
4599

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
板凳
发表于 2023-12-7 13:42:51 | 只看该作者
感谢分享
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

沉默的人

3

主题

1129

帖子

217

金币

传奇

Rank: 8Rank: 8

积分
3792

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
地板
发表于 2023-12-7 14:57:30 | 只看该作者
感谢楼主分享，很不错！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

yni621

7

主题

425

帖子

775

金币

传奇

Rank: 8Rank: 8

积分
4502

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
5#
发表于 2023-12-7 14:57:40 | 只看该作者

   经典案例图书
楼主辛苦了！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

sunsu168

5

主题

235

帖子

887

金币

长老

Rank: 6Rank: 6Rank: 6

积分
2982

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
6#
发表于 2023-12-7 15:16:24 | 只看该作者
感谢楼主分享，很不错！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

wjbg2019

9

主题

257

帖子

362

金币

VIP特别用户组

Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30

积分
2226

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
7#
发表于 2023-12-7 16:55:30 | 只看该作者

   经典案例图书
好东西，努力学习学习！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

taiyi000

6

主题

96

帖子

40

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1042

最佳新人活跃会员热心会员宣传达人
8#
发表于 2023-12-8 11:30:04 | 只看该作者
有工程图为什么提示无？

1.png
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

随遇而安9528

1

主题

568

帖子

52

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1603

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
9#
发表于 2023-12-13 09:16:51 | 只看该作者
楼主，我运行报91错误：Set swRootComp = swConf.GetRootComponent   运行时错误 91
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

hdgd501

6

主题

611

帖子

834

金币

实习版主

Rank: 7Rank: 7Rank: 7Rank: 7

积分
5299

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
10#
发表于 2023-12-13 12:40:50 | 只看该作者
楼主太有才了，膜拜中……
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

384432485

1

主题

297

帖子

186

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1928

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
11#
发表于 2023-12-14 16:47:15 | 只看该作者
感谢楼主分享，很不错！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

月下漫步

0

主题

42

帖子

34

金币

天使

Rank: 2Rank: 2

积分
184

最佳新人活跃会员宣传达人
12#
发表于 2023-12-15 11:31:12 | 只看该作者
确实用得到这个
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

zxt0824

15

主题

398

帖子

74

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1794

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
13#
发表于 2023-12-15 18:33:28 | 只看该作者
感谢楼主分享，很不错！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

zxt0824

15

主题

398

帖子

74

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1794

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
14#
发表于 2023-12-15 18:57:11 | 只看该作者
装配体有工程图，但一直提示无工程图。不知道该怎么办了。
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

钓鱼要戴头盔

1

主题

105

帖子

94

金币

堂主

Rank: 4

积分
567

最佳新人活跃会员热心会员宣传达人
15#
 楼主| 发表于 2023-12-21 11:19:44 | 只看该作者
加入QQ群
参与讨论和学习

SolidWorks技术交流群

或扫描二维码加入

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

有两行代码，获取名称的错误了，没更正过来
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

54butterfly

0

主题

107

帖子

121

金币

堂主

Rank: 4

积分
554

最佳新人活跃会员热心会员宣传达人
16#
发表于 2024-4-4 07:48:49 | 只看该作者

   经典案例图书

感谢楼主分享，很不错！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

懒懒的高贵

6

主题

480

帖子

529

金币

长老

Rank: 6Rank: 6Rank: 6

积分
2567

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
17#
发表于 2024-4-4 13:19:26 | 只看该作者
加入QQ群
参与讨论和学习

SolidWorks技术交流群

或扫描二维码加入

好东西，努力学习学习！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

a305367

0

主题

13

帖子

49

金币

天使

Rank: 2Rank: 2

积分
153

最佳新人宣传达人
18#
发表于 2024-4-7 22:35:12 | 只看该作者

   经典案例图书
很不错，顶一下！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

dengchenghui

2

主题

373

帖子

13

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1491

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
19#
发表于 2024-4-8 10:35:00 | 只看该作者
楼主能把报错修改好的再发一次吗？谢谢
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

panmiao8012

4

主题

112

帖子

79

金币

堂主

Rank: 4

积分
586

最佳新人活跃会员热心会员宣传达人
20#
发表于 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行代码，具体要怎么改
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭 卷起
关闭 卷起

手机版|小黑屋| GMT+8, 2024-5-7 20:26 , Processed in 0.379571 second(s), 37 queries .

SolidWorks机械工程师网 ( 鲁ICP备14025122号-2 ) 鲁公网安备 37028502190335号

声明：本网言论纯属发表者个人意见，与本网立场无关。
如涉版权，可发邮件： admin@swbbsc.com

快速回复 返回顶部 返回列表