程序的功能：当材料为“45”时表面处理为“镀黑锌”，当材料为“AL6061”时表面处理为"本色喷砂阳极"
; `% g1 j- v0 j7 S6 }' D
8 _ b7 T7 T T1 e2 j; Q/ \- O. r作用：使表面处理这个属性不用人工去一个个填
5 d O+ i7 T* D! @4 R
0 T; D8 V; g+ q1 t: q 下面为程序，以一个当前文件做例子来表现的，用简单的内容来表达一个功能的写法。 _6 [6 {/ J% `4 t$ f2 K1 V' [
3 s% h2 d0 y6 J$ R) ^3 R
Dim swApp As Object: I4 w% ^+ C) a1 U
Sub main()
) H4 N7 b) d- V4 V Set swApp = Application.SldWorks
! r- u9 W8 X6 H$ s) ^ Set Part = swApp.ActiveDoc
) b3 a+ K8 a' Z( x' u value = Part.GetCustomInfoValue("", "材料")9 a* U2 G, ]8 X2 p& R2 |
If value = "45" Then4 Q2 p& S/ v5 _6 Y
blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, "镀黑锌"), {) L: I5 r l* p4 ]
End If
( H" G) c5 [* q1 i If value = "AL6061" Then
3 N% F! R. g) _' c$ g blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, "本色喷砂阳极")
! i* t* _, j# NEnd If
8 C) b6 w5 j+ O- F- M7 b3 a1 C' Q! t 'MsgBox value& u ]7 W+ y+ l. S6 z3 i: E
End Sub |
发表于 2019-2-27 15:19:00
