设为首页收藏本站

开启辅助访问切换到宽版

SolidWorks机械工程师网——最大的SolidWorks学习平台»学习社区 › SolidWorks开发与拓展应用 › SolidWorks二次开发（宏，VBA） › 探讨模型或者装配体重命名宏

12 / 2 页

发新帖

楼主: yanwei1945

上一主题

下一主题

探讨模型或者装配体重命名宏

38 主题	1002 帖子	1万金币

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

积分: 24820

21^#

发表于 2021-4-20 08:55:52 | 只看该作者

经典图书

yanwei1945 发表于 2021-4-19 21:32
请看附件的确比较乱哈我是边看帮助边弄的

现在就差最后一步了按照我的设定重命名文件了

倒数第二行（errors所在行）改成

Part.Extension.SelectByID2 Part.GetTitle, "COMPONENT", 0, 0, 0, False, 0, Nothing, 0
errors = Part.Extension.RenameDocument(mm)

复制代码

SolidWorks机械工程师网

提示：建议使用谷歌浏览器浏览本网站！如单击这里下载！否则，可能无法下载附件文件！（支持大多数版本的谷歌浏览器，支持360和QQ浏览器的极速模式，即谷歌内核模式，使用IE和Edge浏览器，浏览个别网页以及下载文件时，会误报“***不安全”，此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载，另外，本网站不含任何不安全的文件，已联系微软公司解决，纯属IE和Edge浏览器误报）

回复支持反对

使用道具举报

38 主题	1002 帖子	1万金币

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

积分: 24820

22^#

发表于 2021-4-20 09:00:26 | 只看该作者

远东卓越

我猜你还需要在最后面增加这两行

Part.EditRebuild3
Part.Save3 4, 0, 0

复制代码

SolidWorks机械工程师网

提示：建议使用谷歌浏览器浏览本网站！如单击这里下载！否则，可能无法下载附件文件！（支持大多数版本的谷歌浏览器，支持360和QQ浏览器的极速模式，即谷歌内核模式，使用IE和Edge浏览器，浏览个别网页以及下载文件时，会误报“***不安全”，此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载，另外，本网站不含任何不安全的文件，已联系微软公司解决，纯属IE和Edge浏览器误报）

回复支持反对

使用道具举报

17 主题	145 帖子	423 金币

Rank: 6 Rank: 6 Rank: 6

积分: 2503

23^#

楼主| 发表于 2021-4-20 21:55:02 | 只看该作者

经典图书

Allate 发表于 2021-4-20 09:00
我猜你还需要在最后面增加这两行

哈哈！好使谢谢哈大神。

SolidWorks机械工程师网

回复支持反对

使用道具举报

17 主题	145 帖子	423 金币

Rank: 6 Rank: 6 Rank: 6

积分: 2503

24^#

楼主| 发表于 2021-4-28 20:18:02 | 只看该作者

Allate 发表于 2021-4-20 09:00
我猜你还需要在最后面增加这两行

发现个问题好像对轻量化的模型不起作用是不是这个代码出问题了：

If Not (ChildModel Is Nothing) Then '排除抑制及轻化

代号名称分离（批量-新）.zip (12.68 KB, 下载次数: 168)

SolidWorks机械工程师网

回复支持反对

使用道具举报

38 主题	1002 帖子	1万金币

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

积分: 24820

25^#

发表于 2021-5-3 13:49:47 | 只看该作者

经典案例图书

yanwei1945 发表于 2021-4-28 20:18
发现个问题好像对轻量化的模型不起作用是不是这个代码出问题了：

找到这一句

For Each Child In Components

复制代码

在后面加上一句

If Child.GetSuppression() = 1 Then Child.SetSuppression2 2

复制代码

SolidWorks机械工程师网

回复支持反对

使用道具举报

17 主题	145 帖子	423 金币

Rank: 6 Rank: 6 Rank: 6

积分: 2503

26^#

楼主| 发表于 2021-5-4 21:07:21 | 只看该作者

嗯，我试试！

SolidWorks机械工程师网

回复支持反对

使用道具举报

17 主题	145 帖子	423 金币

Rank: 6 Rank: 6 Rank: 6

积分: 2503

27^#

楼主| 发表于 2021-5-4 21:49:47 | 只看该作者

经典案例图书

Allate 发表于 2021-5-3 13:49
找到这一句

在后面加上一句

好使！谢谢哈

SolidWorks机械工程师网

回复支持反对

使用道具举报

小豆芽疯回路转

2 主题	1084 帖子	2339 金币

Rank: 8 Rank: 8

积分: 7781

28^#

发表于 2021-5-29 17:05:05 | 只看该作者

感谢楼主分享，很不错！

SolidWorks机械工程师网

回复支持反对

使用道具举报

2 主题	516 帖子	16 金币

Rank: 6 Rank: 6 Rank: 6

积分: 2172

29^#

发表于 2021-7-6 15:29:05 | 只看该作者

很不错，顶一下！

SolidWorks机械工程师网

回复支持反对

使用道具举报

12 / 2 页

发新帖

SOLIDWORKS 2023 机械设计从入门到精通

手机版|小黑屋| GMT+8, 2025-8-11 22:34 , Processed in 0.402831 second(s), 21 queries , Memcache On.

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

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

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