UG NX二次开发源码分享：VB创建自定义加工车间文档

admin

9 X# T0 L: ^$ c1 Y( p8 w  O
  m& E' Y; b8 C2 e) e* ]; a
/ w8 Z5 V6 r  F" k5 l

1. Option Strict Off
   
2. Imports System
   
3. Imports System.IO
   
4. Imports NXOpen
   $ {! I& W" e1 `4 ~
5. Imports NXOpen.CAM
   
6. Imports NXOpen.UF
   
7. Imports NXOpen.Utilities
   ! D  _- t" d3 |) |* g
8. Imports System.Drawing
   $ h5 e% p# k+ p1 a( G  |9 |
9. Imports System.Windows.Forms
   " k8 i; R* Z0 a3 D8 h9 `* m
10. 
    
11. Module Module1
    
12.     Dim theSession As Session = Session.GetSession()
    
13.     Dim myUI As UI = UI.GetUI()
    6 j! t- f  I  A1 D+ c( b) W* W
14.     Dim theUFSession As UFSession = UFSession.GetUFSession()
    
15.     Dim theWorkPart As Part = theSession.Parts.Work
    ) |& d) [! ]# c; E
16. 
    6 n7 o) n# t+ g& m8 R% m5 d
17.     Dim mytag() As NXOpen.Tag '选择的加工操作标记数组
    
18.     Dim mcount As Integer '选择的加工操作数量
    
19. 
    
20.     Sub Main()     
    5 K2 C2 v- }1 O% e
21. 
    ! I! r2 K+ f7 ?' |" a
22.         Shell(Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\SnapPic.exe", AppWinStyle.NormalFocus, True)
    ! L5 i) H. C! v( f& {: n. S: ?
23. 
    
24.         Try
    
25.             '获取选择的操作数
    + b. f: m$ ?' V* H0 j  r. E! {
26.             theUFSession.UiOnt.AskSelectedNodes(mcount, mytag)
    % {  R, l$ f3 I
27.             If mcount = 0 Then
    6 R; w3 s  W, C2 n
28.                 MsgBox("没有选择加工操作!", MsgBoxStyle.OkOnly, "提示信息")
    % d/ a9 |4 x+ |( @: }5 T2 m' C
29.                 Exit Sub
    
30.             End If
    
31. 
    2 y# R0 P% \0 P/ x6 ^
32.             '设置车间文档EXCEL模板路径
    
33.             Dim fp As String = Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\WorkShop.xls"
    
34.             '打开与写出车间文档
    
35.             If String.IsNullOrEmpty(fp) = False Then
    
36.                 Dim myExcel As New MY_EXCEL
    
37.                 myExcel.Create()
    1 p$ a  W* q* y7 z. g4 |4 T# D
38.                 myExcel.Open(fp)
    
39.                 myExcel.Write("M4", AskDisplatyPartName())
    3 \4 `, R% s, h8 o3 J& R/ f
40.                 myExcel.Write("S4", Format(Now, "yyyy/MM/dd"))
    
41.                 myExcel.InsertPicture("b4", Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\jietu.jpg")
    0 ?& W, D( }- c
42.                 For i = 0 To mcount - 1
    
43.                     '输出结果
    7 [. R1 c8 t8 L5 E
44.                     myExcel.Write("B" + (i + 17).ToString, (i + 1).ToString)
    ; a. p- Y! `- a* w& _
45.                     myExcel.Write("D" + (i + 17).ToString, GetGemoGroup_Name(mytag(i)))
    8 y; k+ e4 l- C7 m
46.                     myExcel.Write("E" + (i + 17).ToString, GetToolPathName(mytag(i)))
    2 Y3 U+ T. G) t& _; N
47.                     myExcel.Write("F" + (i + 17).ToString, GetToolName(mytag(i)))
    ( p8 Z' j2 k1 p  A
48.                     myExcel.Write("G" + (i + 17).ToString, GetToolNumber(mytag(i)).ToString)
    " b% v7 H. m; d6 P( o. E; T: k% i
49.                     myExcel.Write("H" + (i + 17).ToString, GetToolDiameter(mytag(i)).ToString)
    
50.                     myExcel.Write("I" + (i + 17).ToString, GetToolCornerRadius(mytag(i)).ToString)
    
51.                     myExcel.Write("J" + (i + 17).ToString, GetToolHeight(mytag(i)).ToString)
    
52.                     myExcel.Write("K" + (i + 17).ToString, GetToolFluteLength(mytag(i)).ToString)
    8 |  O5 g: H7 w6 s0 ]& K" ?
53.                     myExcel.Write("L" + (i + 17).ToString, GetStockPart(mytag(i)).ToString)
    6 G# j+ u; u: n* T
54.                     myExcel.Write("M" + (i + 17).ToString, GetStockFloor(mytag(i)).ToString)
    , v' A$ G9 x% U2 K$ N% i  R
55.                     myExcel.Write("N" + (i + 17).ToString, GetSpeedValue(mytag(i)).ToString)
    ) O* j) y4 N1 P2 Y( \
56.                     myExcel.Write("O" + (i + 17).ToString, GetFeedValue(mytag(i)).ToString)
    0 y; E5 \; O. G# [% D
57.                     myExcel.Write("Q" + (i + 17).ToString, CInt(GeTCutTime(mytag(i))).ToString)
    
58. 
    
59.                 Next
    & ?" H2 R; [) @* k  h& g$ R* s
60.                 myExcel.SaveAs()
    
61.                 'myExcel.Quit()
    
62.             End If
    # I/ [% U: F. C1 j3 s, w7 k# b
63.             '出错处理：
    
64.         Catch ex As Exception
    ! Q# b, |0 f  o; b
65.             MsgBox(ex)
    
66.         End Try
    
67. 
    
68.     End Sub
    
69.     '当前文档文件名
    
70.     Function AskDisplatyPartName() As String
    2 t6 q9 ^, J+ [# K4 ~" Z0 C9 d
71.         Dim UFS As UFSession = UFSession.GetUFSession()
    * T9 R, _  P6 |
72.         Dim part_name As String = ""
    
73.         Dim part_tag As NXOpen.Tag = UFS.Part.AskDisplayPart
    
74.         UFS.Part.AskPartName(part_tag, part_name)
    $ {2 i0 R& k2 S* y" L4 X  d
75.         Dim aa() As String
    ; R5 l+ o$ G( J0 t4 \+ y; ^
76.         Dim bb() As String
    
77.         aa = Split(part_name, ".prt")
    
78.         part_name = aa(0)
    
79.         bb = Split(part_name, "")
    
80.         part_name = bb(bb.Length - 1)
    
81.         Return part_name
    % I4 O- h0 j- z# d- T2 i  ?" i
82.     End Function
    
83.     '取加工几何试图程序组
    2 q" J8 {9 m4 o9 v. U5 }
84.     Function GetGemoGroup_Name(ByVal camObjectTag As NXOpen.Tag) As String
    
85.         Dim theGemoGroup_Tag As NXOpen.Tag
    2 i9 i1 Z. R& K1 A; T, v  i$ s7 z
86.         Dim GemoGroupName As String = ""
    . _7 L: l9 m5 c
87.         theUFSession.Oper.AskGeomGroup(camObjectTag, theGemoGroup_Tag)
    
88.         theUFSession.Obj.AskName(theGemoGroup_Tag, GemoGroupName)
    9 }% [* v4 Y2 D7 E- P( {
89.         Return GemoGroupName
    
90.     End Function
    : d% `8 o' g1 r4 X! K- N# A
91. 
    
92.     '取操作名称
    : E8 ~! i! ?$ P+ W0 @5 O
93.     Function GetToolPathName(ByVal camObjectTag As NXOpen.Tag) As String
    
94.         Dim ToolPathName As String = ""
    
95.         theUFSession.Oper.AskNameFromTag(camObjectTag, ToolPathName)
    
96.         Return ToolPathName
    
97.     End Function
    
98.     '获取刀具名称
    $ _3 J5 o' |- z( K% R4 C
99.     Function GetToolName(ByVal camObjectTag As NXOpen.Tag) As String
    
100.         Dim ToolName As String = ""
     ( G' q; u. E0 u1 p0 i% c
101.         Dim ToolTag As NXOpen.Tag
     
102.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
103.         theUFSession.Obj.AskName(ToolTag, ToolName)
     
104.         Return ToolName
     
105.     End Function
     + B  {+ T: Q4 J
106.     '获取刀具号码
     ) N. S; W4 N/ e* W- ?
107.     Function GetToolNumber(ByVal camObjectTag As NXOpen.Tag) As Integer
     
108.         Dim ToolTag As NXOpen.Tag
     5 K2 e. |, f+ h6 n# R& P
109.         Dim ToolNumber As Integer
     
110.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
111.         theUFSession.Param.AskIntValue(ToolTag, UFConstants.UF_PARAM_TL_NUMBER, ToolNumber)
     
112.         Return ToolNumber
     
113.     End Function
     ; a: r/ c. E! a) B# Z
114.     '获取刀具长度
     
115.     Function GetToolHeight(ByVal camObjectTag As NXOpen.Tag) As Double
     
116.         Dim ToolTag As NXOpen.Tag
       r) p% i9 W- x3 o+ G
117.         Dim ToolHeight As Double
     8 O" y* E4 B7 l; m5 E9 h; B
118.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
119.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_HEIGHT, ToolHeight)
     
120.         Return ToolHeight
     
121.     End Function
     
122.     '获取刀具直径
     $ Q8 A4 O0 A, V4 u( N
123.     Function GetToolDiameter(ByVal camObjectTag As NXOpen.Tag) As Double
     " p% ]0 O7 {! f: G: ]. u
124.         Dim ToolTag As NXOpen.Tag
     ! r/ {3 U3 @5 J
125.         Dim ToolDiameter As Double
     6 a2 M+ m& _, j/ E! v, ^2 ~% y
126.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     / f" o0 a9 q  C& v9 X: N, V
127.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_DIAMETER, ToolDiameter)
     9 X* S6 p  c0 N  f: ]
128.         Return ToolDiameter
     * F- m/ p/ E' a" g5 ^6 v, Z4 ?* J
129.     End Function
     * a$ o; }, f9 I: q
130.     '获取刀具刃长
     & k7 p% C: p) ], p" U# Y  \, Y
131.     Function GetToolFluteLength(ByVal camObjectTag As NXOpen.Tag) As Double
     * a( G/ z8 O7 ?) g  E
132.         Dim ToolTag As NXOpen.Tag
     
133.         Dim ToolFluteLength As Double
     
134.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
135.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_FLUTE_LN, ToolFluteLength)
     
136.         Return ToolFluteLength
     6 t) R- U3 l' r8 k) I2 f) m2 @5 Q
137.     End Function
     
138.     '获取刀具R角
     - y: {3 h, Y* v
139.     Function GetToolCornerRadius(ByVal camObjectTag As NXOpen.Tag) As Double
     
140.         Dim ToolTag As NXOpen.Tag
     
141.         Dim ToolCornerRadius As Double
     - P7 X* L$ E% Y% U
142.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
143.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_COR1_RAD, ToolCornerRadius)
     5 F2 O8 p5 M  p) N, \
144.         Return ToolCornerRadius
     3 {/ y3 x% y$ w% d2 v; i! M
145.     End Function
     7 W% U4 Z) j" G2 p
146.     '取部件侧部余量
     5 q+ o; Z4 l: a! U5 ^
147.     Function GetStockPart(ByVal camObjectTag As NXOpen.Tag) As Double
     
148.         Dim StockPart As Double
     
149.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_STOCK_PART, StockPart)
     9 x2 E) \6 i9 P& n
150.         Return StockPart
     
151.     End Function
       }  Q0 X1 v$ e  Y3 Q) s5 q
152.     '取部件底部余量
     
153.     Function GetStockFloor(ByVal camObjectTag As NXOpen.Tag) As Double
     
154.         Dim Stockfloor As Double
     
155.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_STOCK_FLOOR, Stockfloor)
     
156.         Return Stockfloor
     
157.     End Function
     6 \" D/ `0 D3 i6 r
158. 
     
159.     '取主轴转速
     
160.     Function GetSpeedValue(ByVal camObjectTag As NXOpen.Tag) As Double
     ) w7 u% U/ R- Q+ ]- N
161.         Dim SpeedVale As Double
     
162.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_SPINDLE_RPM, SpeedVale)
     : E9 y+ n: p7 _1 w7 k
163.         Return SpeedVale
     7 j" ?; M2 r% E; a8 v0 |
164.     End Function
     
165.     '取进给速度
     - x; I9 l) M% O
166.     Function GetFeedValue(ByVal camObjectTag As NXOpen.Tag) As Double
     
167.         Dim FeedValue As Double
     
168.         Dim _camObject As NXObject = NXObjectManager.Get(camObjectTag)
     4 k% @, D" P  ]! s1 ~  u) G
169.         Dim params(0) As CAM.Operation
     ( ?  o; t) r/ o* T
170.         params(0) = CType(_camObject, Operation)
     
171.         Dim FeedsBuilder1 As ObjectsFeedsBuilder = theSession.Parts.Work.CAMSetup.CreateFeedsBuilder(params)
     $ H2 P, x" Z4 h- E- A
172.         FeedValue = FeedsBuilder1.FeedsBuilder.FeedCutBuilder.Value
     8 U$ }; Q1 c% a! U4 g
173.         FeedsBuilder1.Destroy()
     % A7 i: Q9 c) g. T( G# `
174.         Return FeedValue
     
175.     End Function
     
176.     '取切削时间
     
177.     Function GetCutTime(ByVal camObjectTag As NXOpen.Tag) As Double
     
178.         Dim CutTime As Double
     
179.         theUFSession.Param.AskDoubleValue(camObjectTag, 142, CutTime)
     
180.         Return CutTime
     
181.     End Function
     
182. 
     + r) a5 m" c/ t- g) N$ U* t! p
183.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     
184. 
     
185.         'Unloads the image immediately after execution within NX
     
186.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
     
187. 
     . T8 L! i6 }, r9 j4 ?$ l/ o1 }
188.         '----Other unload options-------
     
189.         'Unloads the image when the NX session terminates
     
190.         'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     
191. 
     
192.         'Unloads the image explicitly, via an unload dialog
     
193.         'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
     : r& A% ?# q$ a" K
194.         '-------------------------------
       p- r* u4 m& W* h4 _- t. n
195. 
     
196.     End Function
     ; T- |4 U$ ]/ V
197. 
     
198. 
     / r8 X9 E2 D' g' s' y* f3 Q2 U
199. End Module
     
200. 
     8 x+ s; J* W5 Y6 S9 h) T
201. Public Class MY_EXCEL
     , N; V$ I% R' @$ w+ o# C7 y
202.     Private app As Object
     * {1 h3 o( y' ?1 Z
203.     Private book As Object
     - ~, G/ i: M/ U* R
204.     Private sheet As Object
     . I) {. M3 i" Q" M7 |) ^
205.     '表格名称
     0 G$ {* O, c: M- D' L
206.     Public Property xlSheetName() As String
     
207.         Get
     + I4 O8 o3 r; p0 Z) p* i
208.             Return sheet.Name
       z  B: _4 |8 O3 G
209.         End Get
     , A) t# D& {! u
210.         Set(ByVal value As String)
     : l$ a, e% n. f7 k
211.             sheet.Name = value
     : z9 e: J8 Z; G/ _
212.         End Set
     - ^2 ^8 Q! C4 i* _4 L
213.     End Property
     ; y1 ?5 u' Y7 A% d  z9 Y! q: k- l
214.     '新建程序
     
215.     Public Function Create() As Boolean
     
216.         app = CreateObject("Excel.Application")
     
217.         If app Is Nothing Then
     
218.             Return False
     + ~) t6 i. z2 g2 v$ y4 |
219.         Else
     
220.             app.Visible = True
     
221.             Return True
     
222.         End If
     $ }% J( J7 r* f3 `
223.     End Function
     ; _2 h0 J; Z  {
224.     '打开文件
     
225.     Public Sub Open(ByVal xlFileName As String)
       Y( I  e2 e7 u* f' Y- Q- A
226.         book = app.Workbooks.Open(xlFileName)
     & C2 r; |# O6 Z) D" @( `+ `
227.         sheet = book.ActiveSheet
     8 r9 }% P3 ~( [' t; a
228.     End Sub
     7 r3 \9 l9 `3 Q# r2 t8 D
229.     '写单元格
     0 ]2 D( i3 C$ b( M0 b7 l: Y
230.     Public Sub Write(ByVal _Range As String, ByVal value As Object)
     1 u5 u- `. c* `
231.         If _Range <> "" Then
     ) i  Q. h. O; [; [# T
232.             sheet.Range(_Range).Value = value
     ) V5 {3 x2 ^, U3 e, [! B
233.         End If
     " \+ d$ r/ }" s( U
234.     End Sub
     
235.     '插入图片
     
236.     Public Sub InsertPicture(ByVal _Range As String, ByVal imageFile As String)
     ( a- G+ G* @. _6 X, ~0 N
237.         If _Range <> "" Then
     
238.             Dim ExcelRange As Object = sheet.Range(_Range)
     
239.             Dim Ins_image As Image
     
240.             Ins_image = Image.FromFile(imageFile)
     
241.             Dim HeightScale As Double = Math.Round((ExcelRange.Height * 12 - 6) / Ins_image.Height, 2)
     
242.             Dim WidthScale As Double = Math.Round((ExcelRange.Width * 15 - 6) / Ins_image.Width, 2)
     
243.             Dim ScaleHW As Double = Math.Min(HeightScale, WidthScale)
     5 F* l; c" x6 L  I& S
244.             sheet.Shapes.AddPicture(imageFile, 0, 1, ExcelRange.Left + 2, ExcelRange.Top + 2, Ins_image.Width * ScaleHW, Ins_image.Height * ScaleHW)
     
245.             Ins_image.Dispose()
     
246.         End If
     ; y) ?3 j4 U) m7 G3 n1 T& p
247.     End Sub
     
248.     '取指定单元格值
     
249.     Public Function GetValue(ByVal _table As Integer, ByVal _Range As String) As String
     2 ]* t5 i; o; ?8 [6 t
250.         Dim sheet As Object = book.Sheets.Item(_table)
     4 \2 B2 ^% y( i
251.         Return sheet.Range(_Range).value
     5 e; Z6 v- s6 K+ W8 ]
252.     End Function
     ) X. Q  d3 z/ U" @1 x  L
253.     Public Function Save() As Boolean
     
254.         book.Save()
     
255.     End Function
     
256.     Public Function SaveAs() As Boolean
     
257.         Dim Sdlg As SaveFileDialog = New SaveFileDialog '定义一个保存对话框
     
258.         Sdlg.FileName = AskDisplatyPartName() + "加工工序单.xls" '保存对话框的默认文件名
     / I5 }' O/ o3 J! g' d& I
259.         Sdlg.Filter = "EXCEL档案(*.xls)|*.xls" '过滤器设置
     : m, u5 {# }6 a
260.         If Sdlg.ShowDialog = Windows.Forms.DialogResult.OK Then '如果保存对话框的确认按钮被按下
     
261.             book.SaveAs(Sdlg.FileName) '保存文件
     + t0 Y' H5 Y: b. l2 q7 G
262.         End If
     2 l/ I4 A8 C& b, `$ W5 O
263.     End Function
     ) R& {& u/ M1 h+ L' c  p  w
264.     '结束EXCEL对象
     ( f5 K- P2 [& u0 p+ W9 z$ f6 O
265.     Public Function Quit() As Boolean
     ( |: q6 {6 u8 y5 |. {7 c. r
266.         book.close()
     ) G9 N$ ~* G: O4 o; }5 e+ Q; O
267.         app.Quit()
     
268.         app = Nothing
     
269.         GC.Collect()
     
270.     End Function
     6 t% G( e7 a( L% G
271. 
     / K& n/ N- p8 K, f4 G, W- N
272.     '取数组
     
273.     Public Function GetArryValue(ByRef _table As Integer, ByVal _Row As String, ByVal _Cell As String, ByRef ArryString() As String) As Integer
     
274.         Dim sheet As Object = book.Sheets.Item(_table)
     
275.         Dim rowvalue As String = sheet.Range(_Row).value
     
276.         Dim cellvalue As String = sheet.Range(_Cell).value
     
277.         Dim k As Integer = 0
     
278.         If rowvalue <> "" And cellvalue <> "" Then
     
279.             Dim rowstr() As String = Split(rowvalue, "/")
     % w" F1 j: x5 e# Z
280.             Dim cellstring() As String = Split(cellvalue, "/")
     ; C0 W4 K2 f8 j7 d, W- K
281.             Dim a, b, c, d As Integer
     4 u) u/ l. F% G" ^/ f" ]
282.             If rowstr.Length > 1 And cellstring.Length > 0 Then
     
283.                 a = Convert.ToInt32(rowstr(0))
     % i$ C' J/ w+ A$ c; n
284.                 b = Convert.ToInt32(rowstr(1))
     
285.                 If a > 0 And b > a Then
     
286.                     ReDim Preserve ArryString(b - a)
     
287.                     For i As Integer = 0 To b - a
     " g4 x8 I1 ]% g- e+ l% z* V' `, B
288.                         ArryString(i) = cellstring(0) & Convert.ToString(a + i)
     & h: w' D$ R# D) ~
289.                         k += 1
     
290.                     Next
     
291.                     If rowstr.Length > 3 And cellstring.Length > 1 Then
     
292.                         c = Convert.ToInt32(rowstr(2))
     
293.                         d = Convert.ToInt32(rowstr(3))
     + V' d  o2 C* \8 u
294.                         If c > 0 And d > c Then
     
295.                             ReDim Preserve ArryString(b - a + d - c + 1)
     
296.                             For j As Integer = 0 To d - c
     
297.                                 ArryString(b - a + j + 1) = cellstring(1) & Convert.ToString(c + j)
     6 h) e- W0 `+ X) i
298.                                 k += 1
     + B& J% q" B1 x- [
299.                             Next
     / R: f9 p4 x* Y; e, X
300.                         End If
     # W$ a1 \- O/ A& B
301.                     End If
     
302.                 End If
     
303.             End If
     
304.         End If
     
305.         Return k
     ( f1 E' O( N9 [
306.     End Function
     
307. End Class

复制代码

8 k( |$ y3 v0 G" z0 V0 o
, \0 _6 f# G2 k* M- [6 n6 B