程序的功能:当材料为“45”时表面处理为“镀黑锌”,当材料为“AL6061”时表面处理为"本色喷砂阳极"
: H. T7 \ J1 ?6 c2 `1 D; L* n) [ g" {! E1 U% y G, |
作用:使表面处理这个属性不用人工去一个个填( y/ f* P# o5 c; B+ B
1 \6 F* ^$ `7 U3 w- J
下面为程序,以一个当前文件做例子来表现的,用简单的内容来表达一个功能的写法。- x5 K: W! u0 Y1 y7 Y
5 I g% w2 v4 J* T5 ]! a4 u- G
Dim swApp As Object
/ \8 U' ?) ~9 `8 f# O, s) D Sub main()% G' N$ r) |7 H+ X' \: q
Set swApp = Application.SldWorks
O+ q, j- \5 F% C Set Part = swApp.ActiveDoc
6 G9 k6 }1 j' O+ M& i( L* x value = Part.GetCustomInfoValue("", "材料")
4 d* z+ O# l1 B. O6 E pIf value = "45" Then
* O4 P/ H6 [8 P& F6 x blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, "镀黑锌"): F8 O+ X# C% D
End If5 F Z6 A8 d4 C" U4 {4 k" \
If value = "AL6061" Then
# I2 P0 }- I0 ^5 M- x$ e1 s8 Q blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, "本色喷砂阳极")
6 Q+ \3 n! L; h+ X% W* bEnd If8 q2 ^0 D8 O% ^8 r& |( L) k0 l. {" u
'MsgBox value
# P" H. o3 A6 G' W2 E# x End Sub |