表面處理與材料匹配的sw中的VBA程序

慕容攬月

程序的功能：當材料為“45”時表面處理為“鍍黑鋅”，當材料為“AL6061”時表面處理為"本色噴砂陽極"
' K; V  e: B# I
" y  z2 L. v! q! p- d作用：使表面處理這個屬性不用人工去一個個填
8 j) u$ t- B: _; g
' s/ `) y7 V( y0 E 下面為程序，以一個當前文件做例子來表現的，用簡單的內容來表達一個功能的寫法。

3 A) |3 x* h, K$ Y8 b* \Dim swApp As Object
  o+ [9 J( S8 M& E1 w! i Sub main()
Set swApp = Application.SldWorks
" E  R# A4 C6 ?8 G6 J. P" H Set Part = swApp.ActiveDoc
5 p5 s  t9 `1 l' Y( b0 x value = Part.GetCustomInfoValue("", "材料")
: C! s$ P( a6 \4 YIf value = "45" Then
  ?) G1 y! P  b blnretval = Part.AddCustomInfo3("", "表面處理", swCustomInfoText, "鍍黑鋅")
End If
If value = "AL6061" Then
5 V, o. ^& [9 Y& I# A0 A2 T- M! A blnretval = Part.AddCustomInfo3("", "表面處理", swCustomInfoText, "本色噴砂陽極")
End If
4 y; }( G6 d7 [$ M 'MsgBox value
+ p  z3 X- ?& v End Sub

冷月梧桐

能不能在選擇材料的時候，只能把材料對應的熱處理或表面處理工藝對應到文件屬性欄里面？？

慕容攬月

|冷月梧桐發表于 02-27 20:28能不能在選擇材料的時候，只能把材料對應的熱處理或表面處理工藝對應到文件屬性欄里面？？<br>

這個程序就是這個功能，把表面處理的數據寫入到零件的屬性里

遠祥

樓主這個是哪個軟件？？

慕容攬月

|遠祥發表于 02-28 20:05樓主這個是哪個軟件？？

sw

hdgd501

高人，你能把這些屬性添加到“配置特定”選項卡里么？

石龍123

hdgd501 發表于 2019-7-2 21:29
高人，你能把這些屬性添加到“配置特定”選項卡里么？

, V1 p. G/ U- {; f7 S# W. w4 ^你的需求是這個實例嗎-----微信視頻號：軟件自動化定制，7月17日中那個視屏嗎？