设为首页收藏本站

开启辅助访问切换到宽版

好品数字

好品数字

SolidWorks机械工程师网——最大的SolidWorks学习平台»学习社区 › SolidWorks开发与拓展应用 › SolidWorks二次开发（宏，VBA） › 表面处理与材料匹配的VBA程序

12 / 2 页下一页

发新帖

查看: 6695|回复: 28

上一主题

下一主题

表面处理与材料匹配的VBA程序

2 主题	4 帖子	6 金币

Rank: 1

积分: 34

电梯直达

跳转到指定楼层

楼主

楼主| 发表于 2019-2-27 15:13:40 | 只看该作者 |只看大图回帖奖励

回帖奖励

|倒序浏览 |阅读模式

好品数字

程序的功能：当材料为“45”时表面处理为“镀黑锌”，当材料为“AL6061”时表面处理为"本色喷砂阳极"
作用：使表面处理这个属性不用人工去一个个填
下面为程序，以一个当前文件做例子来表现的，用简单的内容来表达一个功能的写法。

Dim swApp As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
value = Part.GetCustomInfoValue("", "材料")
If value = "45" Then
blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, "镀黑锌")
End If
If value = "AL6061" Then
blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, "本色喷砂阳极")
End If
'MsgBox value
End Sub

分享到: QQ好友和群 QQ空间 腾讯微博 腾讯朋友

收藏10 转播 教程|习题|模型|技巧0 点赞1 拍砖0

SolidWorks机械工程师网

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

回复

使用道具举报

1 主题	59 帖子	189 金币

Rank: 3 Rank: 3 Rank: 3

积分: 356

沙发

发表于 2019-3-1 16:11:08 | 只看该作者

远东卓越

好东西，努力学习学习！

SolidWorks机械工程师网

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

回复支持反对

使用道具举报

1 主题	831 帖子	647 金币

Rank: 8 Rank: 8

积分: 3363

板凳

发表于 2019-3-25 14:13:59 | 只看该作者

好品数字

不错希望能弄出一个整体的，比如材质最好能链接到sw的材质库，然后表面处理工艺可以多项可选，比如45#可以电镀镀锌发黑等等

SolidWorks机械工程师网

回复支持反对

使用道具举报

6 主题	612 帖子	864 金币

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

积分: 5394

地板

发表于 2019-5-11 10:52:45 | 只看该作者

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

SolidWorks机械工程师网

回复支持反对

使用道具举报

0 主题	157 帖子	82 金币

Rank: 4

积分: 744

5^#

发表于 2021-7-31 17:12:21 | 只看该作者

经典案例图书

怎么没有反应呢

SolidWorks机械工程师网

回复支持反对

使用道具举报

2 主题	75 帖子	235 金币

Rank: 6 Rank: 6 Rank: 6

积分: 1263

6^#

发表于 2021-8-1 08:54:54 | 只看该作者

要是能配合在Allate大神的材质设置宏里面就厉害了，设置材质的同时把表面处理给带上，一个材质遇到特殊、不同的表面处理手动改一下，或者有表面处理可以多项选择就更牛了

SolidWorks机械工程师网

回复支持反对

使用道具举报

9 主题	438 帖子	818 金币

Rank: 8 Rank: 8

积分: 4693

7^#

发表于 2021-8-1 10:33:11 | 只看该作者

经典案例图书

SW机械工程师网，找到组织了！

SolidWorks机械工程师网

回复支持反对

使用道具举报

2 主题	499 帖子	50 金币

Rank: 6 Rank: 6 Rank: 6

积分: 2100

8^#

发表于 2021-8-5 16:58:42 | 只看该作者

活到老学到老！

SolidWorks机械工程师网

回复支持反对

使用道具举报

0 主题	108 帖子	9 金币

Rank: 4

积分: 516

9^#

发表于 2021-8-13 21:23:06 | 只看该作者

楼主辛苦了！

SolidWorks机械工程师网

回复支持反对

使用道具举报

1 主题	1994 帖子	1461 金币

Rank: 8 Rank: 8

积分: 7609

10^#

发表于 2022-7-6 00:01:11 | 只看该作者

好品数字

有类似的宏吗？没反应啊

SolidWorks机械工程师网

回复支持反对

使用道具举报

1 主题	1994 帖子	1461 金币

Rank: 8 Rank: 8

积分: 7609

11^#

发表于 2022-7-8 23:38:09 | 只看该作者

远东卓越

自动填写表面处理成功，感谢楼主！注意：前提为系统设置材质在自定义属性中“材质”已经存在这一项

材质为系统设置材质

材质为系统设置材质

运行宏添加表面处理，可自行更改

运行宏添加表面处理，可自行更改

: 下载附件保存到相册

2022-7-8 23:33 上传

表面处理.zip

（7.82 KB, 下载次数: 177 售价: 10 金币 ）

注注意：前提为系统设置材质在自定义属性中“材质”已经存在这一项

SolidWorks机械工程师网

回复支持反对

使用道具举报

1 主题	56 帖子	24 金币

Rank: 2 Rank: 2

积分: 194

12^#

发表于 2022-7-9 11:02:40 | 只看该作者

value = Part.GetCustomInfoValue，，这个代码学习了，以前只会填，不会读取

SolidWorks机械工程师网

回复支持反对

使用道具举报

22 主题	1575 帖子	258 金币

Rank: 8 Rank: 8

积分: 6028

13^#

发表于 2022-7-11 13:14:42 | 只看该作者

活到老学到老！

SolidWorks机械工程师网

回复支持反对

使用道具举报

0 主题	26 帖子	28 金币

Rank: 2 Rank: 2

积分: 94

14^#

发表于 2022-11-18 11:08:23 | 只看该作者

value = Part.GetCustomInfoValue，，这个代码学习了，以前只会填，不会读取

SolidWorks机械工程师网

回复支持反对

使用道具举报

3 主题	471 帖子	449 金币

Rank: 6 Rank: 6 Rank: 6

积分: 1619

15^#

发表于 2023-3-1 15:08:27 | 只看该作者

加入QQ群
参与讨论和学习

或扫描二维码加入

SW机械工程师网，找到组织了！

SolidWorks机械工程师网

回复支持反对

使用道具举报

3 主题	471 帖子	449 金币

Rank: 6 Rank: 6 Rank: 6

积分: 1619

16^#

发表于 2023-3-9 14:02:02 | 只看该作者

经典案例图书

感谢楼主分享，很不错！

SolidWorks机械工程师网

回复支持反对

使用道具举报

12 主题	83 帖子	459 金币

Rank: 6 Rank: 6 Rank: 6

积分: 1690

17^#

发表于 2023-3-9 21:45:20 | 只看该作者

加入QQ群
参与讨论和学习

或扫描二维码加入

不值十个币

SolidWorks机械工程师网

回复支持反对

使用道具举报

0 主题	262 帖子	194 金币

Rank: 6 Rank: 6 Rank: 6

积分: 1729

18^#

发表于 2023-3-25 09:39:52 | 只看该作者

经典案例图书

hhh001 发表于 2022-7-8 23:38
自动填写表面处理成功，感谢楼主！注意：前提为系统设置材质在自定义属性中“材质”已经存在这一项

高手，能添加下遍历，在装配图下运行吗？

SolidWorks机械工程师网

回复支持反对

使用道具举报

7 主题	368 帖子	806 金币

Rank: 8 Rank: 8

积分: 3955

19^#

发表于 2023-3-25 14:58:29 | 只看该作者

感谢楼主分享，很不错！

SolidWorks机械工程师网

回复支持反对

使用道具举报

0 主题	262 帖子	194 金币

Rank: 6 Rank: 6 Rank: 6

积分: 1729

20^#

发表于 2023-3-27 08:47:56 | 只看该作者

hhh001 发表于 2022-7-8 23:38
自动填写表面处理成功，感谢楼主！注意：前提为系统设置材质在自定义属性中“材质”已经存在这一项

高手，能做一个在装配图下运行的吗？

SolidWorks机械工程师网

回复支持反对

使用道具举报

12 / 2 页下一页

发新帖

关闭卷起

关闭卷起

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

手机版|小黑屋| GMT+8, 2024-6-17 01:56 , Processed in 0.340037 second(s), 39 queries .

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

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

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