程序的功能：当材料为“45”时表面处理为“镀黑锌”，当材料为“AL6061”时表面处理为"本色喷砂阳极"
1 ^: N# O) v1 G5 q0 m
( F, }8 q) N- U- Q- e" k作用：使表面处理这个属性不用人工去一个个填% U3 _3 P" f6 v7 O
/ T* _; r( e9 C( B2 f0 Q 下面为程序，以一个当前文件做例子来表现的，用简单的内容来表达一个功能的写法。
0 A* V6 D. w5 P6 [0 D6 c
# i/ b5 s; c, K# f) l8 K- G/ nDim swApp As Object! t- G' w# b4 i( Q9 S5 G0 j) I) `
Sub main()/ Y- m* @) u5 w) m6 J( a$ j
Set swApp = Application.SldWorks
1 J1 v% Y8 W1 i Set Part = swApp.ActiveDoc8 [) ]0 H* \& f4 Z R/ `' ]/ S, ~
value = Part.GetCustomInfoValue("", "材料")5 C8 |: s1 M+ Z4 {3 Q
If value = "45" Then- |0 |$ d8 B1 q, D, K
blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, "镀黑锌")# c! G7 b! v! s( \6 \: ~
End If
) I6 B" i; h5 ~* `' M If value = "AL6061" Then
% D9 `4 M3 r+ ~, x) [ blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, "本色喷砂阳极")
+ Y! L+ P" g# P5 `. g+ w( KEnd If
8 O) k5 ~5 B V: e( Y/ v 'MsgBox value; c. J3 q1 g5 X
End Sub |
发表于 2019-2-27 15:19:00
