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

慕容揽月

程序的功能：当材料为“45”时表面处理为“镀黑锌”，当材料为“AL6061”时表面处理为"本色喷砂阳极"
  R1 s/ Y4 k7 z
- _$ N' s9 W0 q* l& X" L作用：使表面处理这个属性不用人工去一个个填

% J) V& ?; g7 \6 V: _! ~$ U 下面为程序，以一个当前文件做例子来表现的，用简单的内容来表达一个功能的写法。
' X/ ^& W" K1 f- T7 M
Dim swApp As Object
Sub main()
9 ]$ G+ }$ O: W& k8 X- c5 _% s4 r) T6 @ Set swApp = Application.SldWorks
7 p) a5 `$ g$ E9 i! K' s- u Set Part = swApp.ActiveDoc
7 H. W& Y& g, ?/ q. e value = Part.GetCustomInfoValue("", "材料")
7 j2 S- C9 a  I4 l  B/ WIf value = "45" Then
blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, "镀黑锌")
End If
If value = "AL6061" Then
blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, "本色喷砂阳极")
7 A' F+ _/ J. b% f/ r# w& `5 OEnd If
* w; f2 ?& ~& z 'MsgBox value
. s. g. m  ?5 [' U0 ~" | End Sub

冷月梧桐

能不能在选择材料的时候，只能把材料对应的热处理或表面处理工艺对应到文件属性栏里面？？
% @- a$ X5 M* Z% H! x

慕容揽月

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

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

远祥

楼主这个是哪个软件？？

慕容揽月

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

sw

hdgd501

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

石龙123

hdgd501 发表于 2019-7-2 21:29
' m% P$ u& G  E9 u/ D# j6 M高人，你能把这些属性添加到“配置特定”选项卡里么？

你的需求是这个实例吗-----微信视频号：软件自动化定制，7月17日中那个视屏吗？
& {, K9 s  R# Q% ]3 }