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

慕容攬月

程序的功能：當材料為“45”時表面處理為“鍍黑鋅”，當材料為“AL6061”時表面處理為"本色噴砂陽極"

% P! }2 g( ~% s5 G  j. ^( z$ t作用：使表面處理這個屬性不用人工去一個個填

下面為程序，以一個當前文件做例子來表現的，用簡單的內容來表達一個功能的寫法。
. R, s( y& K5 G
5 Z8 K# m7 |" ]6 u9 m1 F' [; N* T) q2 QDim swApp As Object
. P4 v5 G% I: h$ L Sub main()
( R) U, C, W7 G1 e- H& \ Set swApp = Application.SldWorks
) |0 ^- q9 d7 R8 U( j Set Part = swApp.ActiveDoc
value = Part.GetCustomInfoValue("", "材料")
If value = "45" Then
) P1 R- d! V& _) ], c blnretval = Part.AddCustomInfo3("", "表面處理", swCustomInfoText, "鍍黑鋅")
2 g* y' F; c& J' `' @End If
If value = "AL6061" Then
  [( S; g/ a# S/ I4 K blnretval = Part.AddCustomInfo3("", "表面處理", swCustomInfoText, "本色噴砂陽極")
End If
'MsgBox value
End Sub

冷月梧桐

能不能在選擇材料的時候，只能把材料對應的熱處理或表面處理工藝對應到文件屬性欄里面？？
9 {; [4 s6 U3 E% W2 b2 N. t

慕容攬月

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

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

遠祥

樓主這個是哪個軟件？？

慕容攬月

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

sw

hdgd501

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

石龍123

hdgd501 發表于 2019-7-2 21:29
0 G1 d% x. X  q( B+ M高人，你能把這些屬性添加到“配置特定”選項卡里么？

3 _$ ?3 _6 e8 N  O( ~/ J  }2 t# i你的需求是這個實例嗎-----微信視頻號：軟件自動化定制，7月17日中那個視屏嗎？