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

慕容揽月

程序的功能：当材料为“45”时表面处理为“镀黑锌”，当材料为“AL6061”时表面处理为"本色喷砂阳极"
6 p" x( P5 o: U( M' v+ I4 u  q
& l0 _# E1 X! N5 l! x- Q3 R' T作用：使表面处理这个属性不用人工去一个个填
1 v$ n' x# q) k3 g% K, b# I4 g8 j
$ o/ m6 A; V1 B1 @# ^$ G 下面为程序，以一个当前文件做例子来表现的，用简单的内容来表达一个功能的写法。

$ B% L+ s; `- `% g% wDim swApp As Object
: |; o) C) ]( p# R8 @ Sub main()
$ N% ^% l' K& h  M+ s2 i" r Set swApp = Application.SldWorks
! t- [+ n# p5 J' L. f6 p Set Part = swApp.ActiveDoc
' `2 o8 t1 y; U4 h8 N value = Part.GetCustomInfoValue("", "材料")
2 |; S9 t' S( ~; `+ ^If value = "45" Then
# D& l7 n/ i; A" i! u. p blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, "镀黑锌")
End If
& s9 Z" _5 z5 @. I5 w+ J9 L If value = "AL6061" Then
3 C! g# C" m& C/ R/ D  I blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, "本色喷砂阳极")
4 l! I- z4 }* D/ K7 w7 YEnd If
9 h+ x$ P2 l" }0 {3 {, s2 {+ n# _% o% h 'MsgBox value
8 k: `/ d9 w; C End Sub

石龙123

hdgd501 发表于 2019-7-2 21:29
2 l8 ]: {3 ]1 Q. S7 k9 v: M高人，你能把这些属性添加到“配置特定”选项卡里么？

你的需求是这个实例吗-----微信视频号：软件自动化定制，7月17日中那个视屏吗？
" m  b% M' P" F& n; K

hdgd501

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

慕容揽月

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

sw

远祥

楼主这个是哪个软件？？

慕容揽月

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

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

冷月梧桐

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