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

慕容攬月

程序的功能：當(dāng)材料為“45”時表面處理為“鍍黑鋅”,，當(dāng)材料為“AL6061”時表面處理為"本色噴砂陽極"
( P4 V- l6 P; B4 J& J
作用：使表面處理這個屬性不用人工去一個個填
2 U' U0 n5 Y5 T$ ^4 ?5 q
下面為程序，以一個當(dāng)前文件做例子來表現(xiàn)的,，用簡單的內(nèi)容來表達(dá)一個功能的寫法,。
, `2 Z8 M* r# a) H$ d7 ~  L
Dim swApp As Object
: m7 ~" S; g& [7 d Sub main()
! U# @# [7 p  t  M- h3 I( s: o: [: @8 M Set swApp = Application.SldWorks
/ \1 P- p' `2 ]# {. R2 Z" [ Set Part = swApp.ActiveDoc
value = Part.GetCustomInfoValue("", "材料")
If value = "45" Then
blnretval = Part.AddCustomInfo3("", "表面處理", swCustomInfoText, "鍍黑鋅")
End If
If value = "AL6061" Then
5 a7 y  r3 P1 B$ q4 `5 Q blnretval = Part.AddCustomInfo3("", "表面處理", swCustomInfoText, "本色噴砂陽極")
4 z( g: k, v" p! FEnd If
'MsgBox value
End Sub

冷月梧桐

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

慕容攬月

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

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

遠(yuǎn)祥

樓主這個是哪個軟件,？？

慕容攬月

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

sw

hdgd501

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

石龍123

hdgd501 發(fā)表于 2019-7-2 21:29
! `/ V3 B- n7 ~; h/ U高人,，你能把這些屬性添加到“配置特定”選項卡里么,？

/ @: {9 d- M# m: y* V% h$ h4 e你的需求是這個實例嗎-----微信視頻號：軟件自動化定制,，7月17日中那個視屏嗎？