程序的功能：當材料為“45”時表面處理為“鍍黑鋅”，當材料為“AL6061”時表面處理為"本色噴砂陽極"2 f2 \+ D" M6 n. f5 T
* Z2 p/ `: P* e }. h作用：使表面處理這個屬性不用人工去一個個填
; d) d' E1 N# L3 y
( G: N% c2 z1 C- M* v' S4 c# R 下面為程序，以一個當前文件做例子來表現的，用簡單的內容來表達一個功能的寫法。 H* [* J& I. I( ^" n/ L) \- f
b7 c0 G) p2 @4 x
Dim swApp As Object O% A6 U" u8 r( @
Sub main()
! p1 g8 v! {& _8 m$ {, N1 q Set swApp = Application.SldWorks9 n0 L: }3 M1 R1 e) q
Set Part = swApp.ActiveDoc% m9 f# O3 W) c7 |
value = Part.GetCustomInfoValue("", "材料")
3 A# a( t5 F+ d7 o3 p) TIf value = "45" Then* k, b( l; R6 Z; ], {
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% g8 p/ U9 b5 ~1 c
'MsgBox value3 l- q2 u, R7 g: a$ K
End Sub |
發表于 2019-2-27 15:19:00
QQ好友和群
QQ空間
