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

慕容攬月

程序的功能：當(dāng)材料為“45”時表面處理為“鍍黑鋅”，當(dāng)材料為“AL6061”時表面處理為"本色噴砂陽極"
* u& o- Z7 S; Z0 B/ j! V, K# v
) z3 ^7 {, L! b8 n7 Z% F$ F作用：使表面處理這個屬性不用人工去一個個填
. M& Y) ~1 i& M
% W" N8 ]. g. W 下面為程序,，以一個當(dāng)前文件做例子來表現(xiàn)的,，用簡單的內(nèi)容來表達(dá)一個功能的寫法,。

' U5 e/ H( X7 t5 O$ GDim swApp As Object
1 A8 d2 S4 X- @. f( u! d: X Sub main()
6 c  ?  x. D1 k$ T Set swApp = Application.SldWorks
8 M; j1 m/ t5 W/ s1 q2 X Set Part = swApp.ActiveDoc
8 ^, [2 g3 o$ j5 Y value = Part.GetCustomInfoValue("", "材料")
# U. E# \5 U2 d- d, BIf value = "45" Then
blnretval = Part.AddCustomInfo3("", "表面處理", swCustomInfoText, "鍍黑鋅")
End If
8 w- ?+ Y9 y2 _ If value = "AL6061" Then
blnretval = Part.AddCustomInfo3("", "表面處理", swCustomInfoText, "本色噴砂陽極")
End If
'MsgBox value
End Sub

冷月梧桐

能不能在選擇材料的時候，只能把材料對應(yīng)的熱處理或表面處理工藝對應(yīng)到文件屬性欄里面,？,？
. I7 @  R# {- s3 H# g, P/ h

慕容攬月

|冷月梧桐發(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
高人,，你能把這些屬性添加到“配置特定”選項卡里么,？

你的需求是這個實例嗎-----微信視頻號：軟件自動化定制，7月17日中那個視屏嗎,？
$ X6 N3 ]8 k) T* _0 _  j