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

标题: 表面处理与材料匹配的VBA程序 [打印本页]

作者: 慕容揽月 时间: 2019-2-27 15:13
标题: 表面处理与材料匹配的VBA程序
程序的功能：当材料为“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

作者: fangfangfang 时间: 2019-3-1 16:11
好东西，努力学习学习！

作者: 夕梦恋 时间: 2019-3-25 14:13
不错希望能弄出一个整体的，比如材质最好能链接到sw的材质库，然后表面处理工艺可以多项可选，比如45#可以电镀镀锌发黑等等

作者: hdgd501 时间: 2019-5-11 10:52
楼主太有才了，膜拜中……

作者: huangshanyi125 时间: 2021-7-31 17:12
怎么没有反应呢

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

作者: yni621 时间: 2021-8-1 10:33
SW机械工程师网，找到组织了！

作者: UDF998 时间: 2021-8-5 16:58
活到老学到老！

作者: 无心快语 时间: 2021-8-13 21:23
楼主辛苦了！

作者: hhh001 时间: 2022-7-6 00:01
有类似的宏吗？没反应啊

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

材质为系统设置材质

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

: 下载附件保存到相册

2022-7-8 23:33 上传

表面处理.zip

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

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

作者: end305518 时间: 2022-7-9 11:02
value = Part.GetCustomInfoValue，，这个代码学习了，以前只会填，不会读取

作者: 淡淡的雲 时间: 2022-7-11 13:14
活到老学到老！

作者: cqzhou 时间: 2022-11-18 11:08
value = Part.GetCustomInfoValue，，这个代码学习了，以前只会填，不会读取

作者: geliang112055 时间: 2023-3-1 15:08
SW机械工程师网，找到组织了！

作者: geliang112055 时间: 2023-3-9 14:02
感谢楼主分享，很不错！

作者: 墨壬生 时间: 2023-3-9 21:45
不值十个币

作者: 可乐瓶子 时间: 2023-3-25 09:39

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

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

作者: 黄火山 时间: 2023-3-25 14:58
感谢楼主分享，很不错！

作者: 可乐瓶子 时间: 2023-3-27 08:47

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

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

作者: 逍遥子2022 时间: 2023-8-3 10:56
SW机械工程师网，找到组织了！

作者: 懒懒的高贵 时间: 2023-8-3 14:17
好好学习，天天向上！

作者: Jadezhao 时间: 2023-8-5 09:39
感谢楼主分享，很不错！

作者: jimmy8005 时间: 2023-8-5 10:21
感谢楼主分享，很不错！

作者: 1732434178 时间: 2023-8-5 16:34
SW机械工程师网，找到组织了！

作者: 1732434178 时间: 2023-8-5 16:38
厉害了，谢谢分享

作者: ljljlj15 时间: 2023-8-6 09:48
思路挺好学习了

作者: taolai89 时间: 2024-5-10 20:46
楼主能共享一下模型吗？我真的很喜欢

作者: taolai89 时间: 2024-5-12 13:32
楼主能共享一下模型吗？我真的很喜欢

作者: coke681 时间: 2025-2-14 17:02
活到老学到老！

欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/)