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

慕容攬月

程序的功能：當材料為“45”時表面處理為“鍍黑鋅”，當材料為“AL6061”時表面處理為"本色噴砂陽極"
! j1 P$ }, z/ y
作用：使表面處理這個屬性不用人工去一個個填

下面為程序，以一個當前文件做例子來表現的，用簡單的內容來表達一個功能的寫法。
- x! u. A: a: e# C6 U
; W4 B0 F: W8 u# }Dim swApp As Object
Sub main()
4 a$ F4 x, I$ j- ~( Q& [& g+ j Set swApp = Application.SldWorks
4 J' k* N. i5 J( k Set Part = swApp.ActiveDoc
  r4 d0 z2 N8 v7 P  l& ? value = Part.GetCustomInfoValue("", "材料")
If value = "45" Then
# p/ f5 U3 x* J8 b1 Q( H blnretval = Part.AddCustomInfo3("", "表面處理", swCustomInfoText, "鍍黑鋅")
End If
( l" `9 v$ G3 R) M  \* @7 [4 c If value = "AL6061" Then
blnretval = Part.AddCustomInfo3("", "表面處理", swCustomInfoText, "本色噴砂陽極")
End If
2 L* C$ x! ?. k7 y4 b3 L 'MsgBox value
. U* x) a3 A( N5 g, b( F0 ~ End Sub

冷月梧桐

能不能在選擇材料的時候，只能把材料對應的熱處理或表面處理工藝對應到文件屬性欄里面？？
, V# F: O3 a$ L

慕容攬月

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

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

遠祥

樓主這個是哪個軟件？？

慕容攬月

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

sw

hdgd501

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

石龍123

hdgd501 發表于 2019-7-2 21:29
6 H! q; m' G3 N# ^* _! F高人，你能把這些屬性添加到“配置特定”選項卡里么？

) O5 a1 N! \& j6 Q  L你的需求是這個實例嗎-----微信視頻號：軟件自動化定制，7月17日中那個視屏嗎？
0 E  w( B. `0 p( ^) F