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

慕容揽月

程序的功能：当材料为“45”时表面处理为“镀黑锌”，当材料为“AL6061”时表面处理为"本色喷砂阳极"
% c* m" i% K/ E2 [# a% K
* W( L# ?! q6 y( |, Z& |. [; |作用：使表面处理这个属性不用人工去一个个填
* S& ?1 r3 H) I
/ Q6 x; W2 }& y/ q$ Z( N; M; F 下面为程序，以一个当前文件做例子来表现的，用简单的内容来表达一个功能的写法。
) e+ N- j- a7 H. O' x; ~
1 d: g. ~! s, MDim swApp As Object
Sub main()
5 P. x0 R" C7 F$ Z Set swApp = Application.SldWorks
: I5 |4 O7 }' Z! F9 p+ Z& A3 _ Set Part = swApp.ActiveDoc
value = Part.GetCustomInfoValue("", "材料")
If value = "45" Then
7 ]( r  |; d6 e3 j; m6 b# d/ A' a blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, "镀黑锌")
# [, g1 Z# {% m$ g. h- n4 KEnd If
If value = "AL6061" Then
4 I- L, D0 s4 z# a$ N3 ` blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, "本色喷砂阳极")
End If
8 Z3 V" `3 c- G$ Z8 q 'MsgBox value
End Sub

冷月梧桐

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

慕容揽月

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

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

远祥

楼主这个是哪个软件？？

慕容揽月

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

sw

hdgd501

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

石龙123

hdgd501 发表于 2019-7-2 21:29
$ Y2 J& Y- K# ^! i5 ?( P; z高人，你能把这些属性添加到“配置特定”选项卡里么？

1 n  O, U# Q0 S8 w  x: B你的需求是这个实例吗-----微信视频号：软件自动化定制，7月17日中那个视屏吗？