程序的功能:当材料为“45”时表面处理为“镀黑锌”,当材料为“AL6061”时表面处理为"本色喷砂阳极"
" \9 T& f, R' x$ ]3 X+ m1 W) u9 V) g) j6 ]9 ]$ h; D
作用:使表面处理这个属性不用人工去一个个填
, W% }+ M3 b( L" s# p2 W
4 [0 O, `$ N/ J* d 下面为程序,以一个当前文件做例子来表现的,用简单的内容来表达一个功能的写法。
. {- h/ `% o, W/ `( j! O( I3 b( e" Z# |$ Q
Dim swApp As Object
9 L, {; |4 z. F: w' H5 u Sub main()
- `0 B9 I$ s1 t3 q/ N3 q; U Set swApp = Application.SldWorks- U$ Q. [7 L/ |4 m/ H
Set Part = swApp.ActiveDoc
2 c, ]# }% H- C2 G. ~ value = Part.GetCustomInfoValue("", "材料")0 `' m9 |( ^! |3 |3 I% @3 q
If value = "45" Then
& f: |3 P/ u. Y2 P9 \: r blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, "镀黑锌")- Z$ W+ U5 E: T1 t% S- F0 `# `$ T
End If% n9 D) q4 u8 c1 m( D2 B1 E
If value = "AL6061" Then/ a' @; ]7 {/ U. R
blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, "本色喷砂阳极")
. C( ~: J2 |$ b+ Y; d7 S7 LEnd If
8 j; L# w$ K: R* J 'MsgBox value! s9 |) i: g# |( v9 |
End Sub |