亚洲欧美日韩国产一区二区精品_亚洲国产精品一区二区动图_级婬片A片手机免费播放_亚洲国产成人Av毛片大全,男女爱爱好爽好疼视频免费,中文日韩AV在线,无码视频免费,欧美在线观看成人高清视频,在线播放免费人成毛片,成人网站在线视频A片 ,亚洲AV成人精品一区二区三区

機(jī)械社區(qū)

標(biāo)題: 表面處理與材料匹配的sw中的VBA程序 [打印本頁(yè)]

作者: 慕容攬?jiān)?nbsp; 時(shí)間: 2019-2-27 15:19
標(biāo)題: 表面處理與材料匹配的sw中的VBA程序
程序的功能：當(dāng)材料為“45”時(shí)表面處理為“鍍黑鋅”,，當(dāng)材料為“AL6061”時(shí)表面處理為"本色噴砂陽(yáng)極"

作用：使表面處理這個(gè)屬性不用人工去一個(gè)個(gè)填

下面為程序，以一個(gè)當(dāng)前文件做例子來(lái)表現(xiàn)的,，用簡(jiǎn)單的內(nèi)容來(lái)表達(dá)一個(gè)功能的寫(xiě)法,。

Dim swApp As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
value = Part.GetCustomInfoValue("", "材料")
If value = "45" Then
blnretval = Part.AddCustomInfo3("", "表面處理", swCustomInfoText, "鍍黑鋅")
End If
If value = "AL6061" Then
blnretval = Part.AddCustomInfo3("", "表面處理", swCustomInfoText, "本色噴砂陽(yáng)極")
End If
'MsgBox value
End Sub

作者: 冷月梧桐 時(shí)間: 2019-2-27 20:28
能不能在選擇材料的時(shí)候，只能把材料對(duì)應(yīng)的熱處理或表面處理工藝對(duì)應(yīng)到文件屬性欄里面,？,？

作者: 慕容攬?jiān)?nbsp; 時(shí)間: 2019-2-27 21:06

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

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

作者: 遠(yuǎn)祥 時(shí)間: 2019-2-28 20:05
樓主這個(gè)是哪個(gè)軟件？,？

作者: 慕容攬?jiān)?nbsp; 時(shí)間: 2019-2-28 21:53

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

作者: hdgd501 時(shí)間: 2019-7-2 21:29
高人,，你能把這些屬性添加到“配置特定”選項(xiàng)卡里么,？

作者: 石龍123 時(shí)間: 2020-10-8 15:13

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

你的需求是這個(gè)實(shí)例嗎-----微信視頻號(hào)：軟件自動(dòng)化定制,，7月17日中那個(gè)視屏嗎？

歡迎光臨機(jī)械社區(qū) (http://giwivy.com.cn/)