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

慕容揽月

程序的功能：当材料为“45”时表面处理为“镀黑锌”，当材料为“AL6061”时表面处理为"本色喷砂阳极"
5 a7 ^/ U* ?0 z9 y+ ^
作用：使表面处理这个属性不用人工去一个个填
$ T/ p) R7 u/ V- _: p
下面为程序，以一个当前文件做例子来表现的，用简单的内容来表达一个功能的写法。
5 d s# x3 I# [" |- T9 n
Dim swApp As Object
5 k) R0 i9 m, _% _, ]# k5 |6 ISub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
value = Part.GetCustomInfoValue("", "材料")
& L. H7 v8 T* e& C1 a* sIf value = "45" Then
blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, "镀黑锌")
, w7 t0 a* F @( {& C! ZEnd If
If value = "AL6061" Then
blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, "本色喷砂阳极")
- }; J9 u' \4 xEnd If
'MsgBox value
$ c/ W- l7 q i2 [) a/ M/ |" oEnd Sub

冷月梧桐

能不能在选择材料的时候，只能把材料对应的热处理或表面处理工艺对应到文件属性栏里面？？
' l/ a& z& h, t! R$ E

慕容揽月

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

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

远祥

楼主这个是哪个软件？？

慕容揽月

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

sw

hdgd501

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

石龙123

hdgd501 发表于 2019-7-2 21:29
" e1 o# ^4 F+ [" H6 v' E" [. j2 l- {) E5 B高人，你能把这些属性添加到“配置特定”选项卡里么？

2 `& w- G- Z3 D* q你的需求是这个实例吗-----微信视频号：软件自动化定制，7月17日中那个视屏吗？
: a) l. ]* }: [( L8 W, B' n