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

慕容攬月

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

* Z2 p/ `: P* e  }. h作用：使表面處理這個屬性不用人工去一個個填
; d) d' E1 N# L3 y
( G: N% c2 z1 C- M* v' S4 c# R 下面為程序，以一個當前文件做例子來表現的，用簡單的內容來表達一個功能的寫法。

Dim swApp As Object
Sub main()
! p1 g8 v! {& _8 m$ {, N1 q Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
value = Part.GetCustomInfoValue("", "材料")
3 A# a( t5 F+ d7 o3 p) TIf value = "45" Then
blnretval = Part.AddCustomInfo3("", "表面處理", swCustomInfoText, "鍍黑鋅")
$ b# p1 ]4 i0 l3 BEnd If
' _/ n$ p, d7 b. r) s/ m If value = "AL6061" Then
6 E% ]( R5 S3 \5 u( V& t blnretval = Part.AddCustomInfo3("", "表面處理", swCustomInfoText, "本色噴砂陽極")
1 E! w8 ?5 w. `+ WEnd If
'MsgBox value
End Sub

冷月梧桐

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

慕容攬月

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

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

遠祥

樓主這個是哪個軟件？？

慕容攬月

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

sw

hdgd501

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

石龍123

hdgd501 發表于 2019-7-2 21:29
# n3 _% }0 R0 p! I* _2 r/ G8 m高人，你能把這些屬性添加到“配置特定”選項卡里么？

& O# V# {, n' z  M- F你的需求是這個實例嗎-----微信視頻號：軟件自動化定制，7月17日中那個視屏嗎？
, N9 u, h' W3 {2 y. _, X