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

慕容揽月

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

  o, Y  ~' _1 i% t作用：使表面处理这个属性不用人工去一个个填

% j/ s1 l. V: _  t: U6 }/ ^# y8 l 下面为程序，以一个当前文件做例子来表现的，用简单的内容来表达一个功能的写法。
( q2 |) M1 C8 ?, G7 D
& J2 |/ B- n) X' J+ F1 C# P$ JDim swApp As Object
) A. r" I6 c7 ]# H& _! T, V+ O Sub main()
Set swApp = Application.SldWorks
  ~& I3 ^9 z- ?2 U; K0 [' |- _9 p9 d Set Part = swApp.ActiveDoc
7 W7 y) T! e4 r9 d4 Z value = Part.GetCustomInfoValue("", "材料")
If value = "45" Then
blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, "镀黑锌")
+ |& D/ J+ P9 i$ v$ PEnd If
If value = "AL6061" Then
blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, "本色喷砂阳极")
& E/ {6 ]7 O! y% q; n7 XEnd If
# r2 l) r3 [/ m+ f 'MsgBox value
End Sub

冷月梧桐

能不能在选择材料的时候，只能把材料对应的热处理或表面处理工艺对应到文件属性栏里面？？
- A4 l( f$ ]0 q4 C. L

慕容揽月

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

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

远祥

楼主这个是哪个软件？？

慕容揽月

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

sw

hdgd501

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

石龙123

hdgd501 发表于 2019-7-2 21:29
6 L; a6 H0 I& M5 Z' E1 I- s高人，你能把这些属性添加到“配置特定”选项卡里么？

你的需求是这个实例吗-----微信视频号：软件自动化定制，7月17日中那个视屏吗？
/ d6 \# B5 c4 Q9 M& x