程序的功能：当材料为“45”时表面处理为“镀黑锌”，当材料为“AL6061”时表面处理为"本色喷砂阳极"
8 o8 C& G) M1 v X `7 q1 N5 m3 W
, u( b9 K9 F( [; e作用：使表面处理这个属性不用人工去一个个填
/ x& \$ B+ s, h S0 y, [
" [1 B! \. `2 X 下面为程序，以一个当前文件做例子来表现的，用简单的内容来表达一个功能的写法。8 @. R' @& i; F5 H( k2 W
: I+ k" m# ^1 s7 ]# z e, cDim swApp As Object8 h/ b2 j% E! O( N8 }, x( g' n
Sub main()
) {5 b# _4 P/ V% N Set swApp = Application.SldWorks& }; v x; y% _$ Q
Set Part = swApp.ActiveDoc
- [6 _/ t% @5 b% U5 K value = Part.GetCustomInfoValue("", "材料")# T0 Z1 ^: M( h* M. ?" e) i
If value = "45" Then+ l, p. I2 {( M
blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, "镀黑锌")
* f+ h: [9 N3 p; Q: K6 e: ZEnd If4 t0 W9 T! @/ w" H; B
If value = "AL6061" Then" b! B. z5 s! j
blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, "本色喷砂阳极")7 X1 n: b$ c6 Y3 n' k$ h, Z4 ~
End If# A* {% C6 J; t' Y# M& c3 a
'MsgBox value/ X# l! C# K- C, s2 u8 ?
End Sub |
发表于 2019-2-27 15:19:00
