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

慕容揽月

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

2 }8 G# `* J( m, |7 x5 c作用：使表面处理这个属性不用人工去一个个填
2 {: y  b( }& S6 j- W2 ]7 h; ^% }6 e
- L. U9 N0 Y2 }, ]3 F 下面为程序，以一个当前文件做例子来表现的，用简单的内容来表达一个功能的写法。
* y; s0 _6 G6 R" f! ]
Dim swApp As Object
1 n) x2 r* K: G( W4 c# o) r( G: W Sub main()
Set swApp = Application.SldWorks
; ~% L& ]  I, J% Q3 s# F Set Part = swApp.ActiveDoc
: g  x3 ^" P) w; [% W: ~ value = Part.GetCustomInfoValue("", "材料")
' a; J! l7 v" F1 HIf value = "45" Then
blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, "镀黑锌")
End If
' A4 q- W* x: H6 d4 e If value = "AL6061" Then
5 V1 t0 z% G& a; m9 d blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, "本色喷砂阳极")
/ D# P% r) v8 R9 F/ ]End If
/ w5 h! ]; U: |% D4 a 'MsgBox value
End Sub

冷月梧桐

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

慕容揽月

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

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

远祥

楼主这个是哪个软件？？

慕容揽月

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

sw

hdgd501

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

石龙123

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

你的需求是这个实例吗-----微信视频号：软件自动化定制，7月17日中那个视屏吗？