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

慕容攬月

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

作用：使表面處理這個屬性不用人工去一個個填
3 L7 m! a- r, S2 }; ]1 q- T
下面為程序，以一個當(dāng)前文件做例子來表現(xiàn)的，用簡單的內(nèi)容來表達一個功能的寫法。

Dim swApp As Object
Sub main()
# ~+ {+ L# k! L Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
value = Part.GetCustomInfoValue("", "材料")
- T: `  G2 P4 CIf value = "45" Then
blnretval = Part.AddCustomInfo3("", "表面處理", swCustomInfoText, "鍍黑鋅")
End If
0 A7 _" {6 v* j; E9 q( ~# | If value = "AL6061" Then
blnretval = Part.AddCustomInfo3("", "表面處理", swCustomInfoText, "本色噴砂陽極")
0 v/ @1 n( h' a# m7 f0 Q" Z3 @( NEnd If
'MsgBox value
End Sub

冷月梧桐

能不能在選擇材料的時候，只能把材料對應(yīng)的熱處理或表面處理工藝對應(yīng)到文件屬性欄里面？？
+ M: ^  ]/ ^6 F, U6 h

慕容攬月

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

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

遠祥

樓主這個是哪個軟件？？

慕容攬月

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

sw

hdgd501

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

石龍123

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

7 {/ _  D! p/ P你的需求是這個實例嗎-----微信視頻號：軟件自動化定制，7月17日中那個視屏嗎？
0 T" T3 d( {& U' b* O