程序的功能：當材料為“45”時表面處理為“鍍黑鋅”，當材料為“AL6061”時表面處理為"本色噴砂陽極"
0 L& B& I' k6 `/ S
- K' V5 |+ t& P( K S- @# S2 ?作用：使表面處理這個屬性不用人工去一個個填
2 F/ ?7 h& w; G5 f) T" Q
6 P- d! g) D2 ?# `: f4 q 下面為程序，以一個當前文件做例子來表現的，用簡單的內容來表達一個功能的寫法。
1 I+ F5 `- N- e" k! x
1 g3 a) q+ Y+ y( qDim swApp As Object4 f/ d0 k! a# F! X1 E
Sub main()
/ p" r; a U; N Set swApp = Application.SldWorks7 e8 i3 c: h/ p4 J
Set Part = swApp.ActiveDoc' x4 i1 H7 [ d4 {: b# [+ d# k) V1 r
value = Part.GetCustomInfoValue("", "材料")1 K+ i. F' R+ e- Y7 y& h$ U
If value = "45" Then
z; s- G+ m1 e( ^, Q) f3 \ blnretval = Part.AddCustomInfo3("", "表面處理", swCustomInfoText, "鍍黑鋅")4 g" r+ I o& d0 o# ~
End If
2 a s) p( D% | If value = "AL6061" Then) M; ?, n- H$ ?% [1 g5 u
blnretval = Part.AddCustomInfo3("", "表面處理", swCustomInfoText, "本色噴砂陽極"): w7 r. n* b* y$ M- [" @$ X
End If1 U& C3 r A3 d( |
'MsgBox value
: k. w A1 R# \: U End Sub |
發表于 2019-2-27 15:19:00
QQ好友和群
QQ空間
