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

慕容揽月

程序的功能：当材料为“45”时表面处理为“镀黑锌”，当材料为“AL6061”时表面处理为"本色喷砂阳极"

2 `5 o. u& z, y! N! k  R作用：使表面处理这个属性不用人工去一个个填

% b( Y& E9 J0 ~ 下面为程序，以一个当前文件做例子来表现的，用简单的内容来表达一个功能的写法。
" E8 |! w5 R/ O4 V& G2 v$ ?4 e
7 L/ [$ N& j4 N7 }/ G& `Dim swApp As Object
& N  `. U) E7 |9 D! Z Sub main()
- s9 G4 b& I9 n2 g2 E  O+ _ Set swApp = Application.SldWorks
6 L$ K4 W) u0 T7 [ Set Part = swApp.ActiveDoc
value = Part.GetCustomInfoValue("", "材料")
If value = "45" Then
blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, "镀黑锌")
3 @0 W& v* i% ^3 A6 q* e/ WEnd If
' w) P1 d. ~# t9 | If value = "AL6061" Then
& J6 Z3 `/ Z7 Z' ^' A/ J blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, "本色喷砂阳极")
End If
'MsgBox value
) ?# P) G1 |! I+ f5 _- g: r- j End Sub

冷月梧桐

能不能在选择材料的时候，只能把材料对应的热处理或表面处理工艺对应到文件属性栏里面？？

慕容揽月

|冷月梧桐发表于 02-27 20:28能不能在选择材料的时候，只能把材料对应的热处理或表面处理工艺对应到文件属性栏里面？？<br>

这个程序就是这个功能，把表面处理的数据写入到零件的属性里

远祥

楼主这个是哪个软件？？

慕容揽月

|远祥发表于 02-28 20:05楼主这个是哪个软件？？

sw

hdgd501

高人，你能把这些属性添加到“配置特定”选项卡里么？

石龙123

hdgd501 发表于 2019-7-2 21:29
高人，你能把这些属性添加到“配置特定”选项卡里么？

6 ?, m9 N) |$ h4 H你的需求是这个实例吗-----微信视频号：软件自动化定制，7月17日中那个视屏吗？
: t: H3 I6 d+ D4 k3 v4 |4 a6 q