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

慕容攬?jiān)?/a>

程序的功能：當(dāng)材料為“45”時(shí)表面處理為“鍍黑鋅”，當(dāng)材料為“AL6061”時(shí)表面處理為"本色噴砂陽極"
+ T! E6 W- ~4 B  |1 K. y+ g$ d5 V
作用：使表面處理這個(gè)屬性不用人工去一個(gè)個(gè)填

下面為程序，以一個(gè)當(dāng)前文件做例子來表現(xiàn)的，用簡單的內(nèi)容來表達(dá)一個(gè)功能的寫法。
: s5 h; N6 {: U- D: _/ k+ Y6 i
Dim swApp As Object
Sub main()
/ m' y% _5 F+ G4 @! I. e; \ Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
* `3 n9 _1 Q; { value = Part.GetCustomInfoValue("", "材料")
If value = "45" Then
blnretval = Part.AddCustomInfo3("", "表面處理", swCustomInfoText, "鍍黑鋅")
End If
7 \3 b; L) Q/ X( V, }+ m If value = "AL6061" Then
blnretval = Part.AddCustomInfo3("", "表面處理", swCustomInfoText, "本色噴砂陽極")
8 a& D  L5 I3 p7 o+ m- n; sEnd If
'MsgBox value
End Sub

冷月梧桐

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

慕容攬?jiān)?/a>

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

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

遠(yuǎn)祥

樓主這個(gè)是哪個(gè)軟件？？

慕容攬?jiān)?/a>

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

sw

hdgd501

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

石龍123

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

( }+ ?0 A. M5 H/ s你的需求是這個(gè)實(shí)例嗎-----微信視頻號：軟件自動(dòng)化定制，7月17日中那個(gè)視屏嗎？