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

admin

# ?2 h( E' u8 {  o+ b$ Z/ v* I3 F

1. Option Strict Off
   % \3 t" I( l' p9 c* G. }, w
2. Imports System
   % C. g; E4 R6 m
3. Imports System.IO
   
4. Imports NXOpen
   
5. Imports NXOpen.CAM
   : I* ~3 f2 p# D$ h3 X" P9 k, i
6. Imports NXOpen.UF
   
7. Imports NXOpen.Utilities
   1 ^; y$ k4 z' e5 P$ r- J
8. Imports System.Drawing
   
9. Imports System.Windows.Forms
   
10. 
    7 {- o/ Z8 |$ \
11. Module Module1
    
12.     Dim theSession As Session = Session.GetSession()
      f" C; J, K  K" R8 C( O6 D9 M1 q
13.     Dim myUI As UI = UI.GetUI()
    % k: D) G8 J; N* `0 Z, [
14.     Dim theUFSession As UFSession = UFSession.GetUFSession()
    
15.     Dim theWorkPart As Part = theSession.Parts.Work
    8 k5 E, i2 W, i9 r5 E* T! p# ~
16. 
    1 G7 K# z, Z" Y/ }
17.     Dim mytag() As NXOpen.Tag '选择的加工操作标记数组
    ! O+ j! L8 q1 b8 ]' y& o7 g+ L7 D
18.     Dim mcount As Integer '选择的加工操作数量
    
19. 
    & @. G' m( [( ]
20.     Sub Main()     
    9 ~4 ?4 O9 @4 ?/ C" u! j5 o# M
21. 
    
22.         Shell(Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\SnapPic.exe", AppWinStyle.NormalFocus, True)
    
23. 
    
24.         Try
    ; D! ?/ R; I8 L3 ?( _/ A9 c
25.             '获取选择的操作数
    
26.             theUFSession.UiOnt.AskSelectedNodes(mcount, mytag)
    
27.             If mcount = 0 Then
    
28.                 MsgBox("没有选择加工操作!", MsgBoxStyle.OkOnly, "提示信息")
    ) O0 [8 u5 x: e4 t, z
29.                 Exit Sub
    
30.             End If
    
31. 
    
32.             '设置车间文档EXCEL模板路径
    
33.             Dim fp As String = Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\WorkShop.xls"
    / }* F+ @! f5 n8 W* _4 c
34.             '打开与写出车间文档
    " q8 f3 E* \: \
35.             If String.IsNullOrEmpty(fp) = False Then
    
36.                 Dim myExcel As New MY_EXCEL
    ' }: J6 N) ]9 W1 D! C0 [
37.                 myExcel.Create()
    - D" s0 K+ y3 e+ }3 e
38.                 myExcel.Open(fp)
    * R5 Z8 ?, C, g" H1 J, Z% o
39.                 myExcel.Write("M4", AskDisplatyPartName())
    6 U' u, C( q! h$ _3 ?+ j4 p
40.                 myExcel.Write("S4", Format(Now, "yyyy/MM/dd"))
    
41.                 myExcel.InsertPicture("b4", Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\jietu.jpg")
    
42.                 For i = 0 To mcount - 1
    
43.                     '输出结果
    
44.                     myExcel.Write("B" + (i + 17).ToString, (i + 1).ToString)
    - U" V. V1 J  F
45.                     myExcel.Write("D" + (i + 17).ToString, GetGemoGroup_Name(mytag(i)))
    5 C1 `) S8 f7 t' ~, ]3 d
46.                     myExcel.Write("E" + (i + 17).ToString, GetToolPathName(mytag(i)))
    
47.                     myExcel.Write("F" + (i + 17).ToString, GetToolName(mytag(i)))
    
48.                     myExcel.Write("G" + (i + 17).ToString, GetToolNumber(mytag(i)).ToString)
    1 i. j. B" ?& \  a) X0 Q: h
49.                     myExcel.Write("H" + (i + 17).ToString, GetToolDiameter(mytag(i)).ToString)
    
50.                     myExcel.Write("I" + (i + 17).ToString, GetToolCornerRadius(mytag(i)).ToString)
    9 }! {! W1 n- D; n% f
51.                     myExcel.Write("J" + (i + 17).ToString, GetToolHeight(mytag(i)).ToString)
    
52.                     myExcel.Write("K" + (i + 17).ToString, GetToolFluteLength(mytag(i)).ToString)
    
53.                     myExcel.Write("L" + (i + 17).ToString, GetStockPart(mytag(i)).ToString)
    1 ^( n6 P4 }5 P! k
54.                     myExcel.Write("M" + (i + 17).ToString, GetStockFloor(mytag(i)).ToString)
    
55.                     myExcel.Write("N" + (i + 17).ToString, GetSpeedValue(mytag(i)).ToString)
    
56.                     myExcel.Write("O" + (i + 17).ToString, GetFeedValue(mytag(i)).ToString)
    
57.                     myExcel.Write("Q" + (i + 17).ToString, CInt(GeTCutTime(mytag(i))).ToString)
    
58. 
    
59.                 Next
    8 o! h$ d* |  I. q' B
60.                 myExcel.SaveAs()
    ( i! l3 N  x5 v+ H  v. [, }6 p
61.                 'myExcel.Quit()
    
62.             End If
    
63.             '出错处理：
    5 V( D1 [+ v  _) W( P) N, j% l/ k* A
64.         Catch ex As Exception
    
65.             MsgBox(ex)
    
66.         End Try
    / I2 C# \% m2 u# z- U
67. 
    9 F- X4 ^7 {# D5 A3 V" R1 L
68.     End Sub
    0 A9 z/ e3 u. \) {- `5 s" y3 W
69.     '当前文档文件名
    
70.     Function AskDisplatyPartName() As String
    
71.         Dim UFS As UFSession = UFSession.GetUFSession()
    
72.         Dim part_name As String = ""
    
73.         Dim part_tag As NXOpen.Tag = UFS.Part.AskDisplayPart
    
74.         UFS.Part.AskPartName(part_tag, part_name)
    
75.         Dim aa() As String
    / W3 f( ^! }+ Q4 k
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
    ! ~- I  g! b( B0 z6 Q8 `
82.     End Function
    ' M7 Z3 y  V3 [, s4 n: Z
83.     '取加工几何试图程序组
    
84.     Function GetGemoGroup_Name(ByVal camObjectTag As NXOpen.Tag) As String
    3 U1 X5 s) o4 D
85.         Dim theGemoGroup_Tag As NXOpen.Tag
    0 H+ |9 i: V% S& v  F  Z
86.         Dim GemoGroupName As String = ""
    
87.         theUFSession.Oper.AskGeomGroup(camObjectTag, theGemoGroup_Tag)
    9 h% `1 U1 H# L" c+ [" h& a
88.         theUFSession.Obj.AskName(theGemoGroup_Tag, GemoGroupName)
    2 ^$ y- ]' r  |6 s8 t: C4 w& a1 c! X
89.         Return GemoGroupName
    
90.     End Function
    9 f: U% ]3 T  R/ U3 z
91. 
    - d8 O+ X: j5 I( E/ U& l
92.     '取操作名称
    2 R; L) s! ]( v! g
93.     Function GetToolPathName(ByVal camObjectTag As NXOpen.Tag) As String
    4 b* y! _3 _9 [" I- @! [( |
94.         Dim ToolPathName As String = ""
    
95.         theUFSession.Oper.AskNameFromTag(camObjectTag, ToolPathName)
    
96.         Return ToolPathName
    
97.     End Function
    ; N+ _! V' ]( E) F* ?. _
98.     '获取刀具名称
    
99.     Function GetToolName(ByVal camObjectTag As NXOpen.Tag) As String
    
100.         Dim ToolName As String = ""
     
101.         Dim ToolTag As NXOpen.Tag
     
102.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
103.         theUFSession.Obj.AskName(ToolTag, ToolName)
     ( H( f2 O* x+ k. E
104.         Return ToolName
     0 Z  U" U' b- S# s# \- N: q
105.     End Function
     7 i; A( x5 t; g7 C: b  b: i) ^: C
106.     '获取刀具号码
       j2 @7 _+ S  o7 v& a: }$ x( G
107.     Function GetToolNumber(ByVal camObjectTag As NXOpen.Tag) As Integer
     
108.         Dim ToolTag As NXOpen.Tag
     * b7 e( ?/ ]/ S3 \) D
109.         Dim ToolNumber As Integer
     % N  U, ^" Q. u+ F8 X& c
110.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     ; j* Z4 w, e+ y* F; m" k5 O" }
111.         theUFSession.Param.AskIntValue(ToolTag, UFConstants.UF_PARAM_TL_NUMBER, ToolNumber)
     ; L: o4 Z/ j# w: P) ^: }
112.         Return ToolNumber
     + H$ ?# D4 W/ i/ c5 \; J4 g
113.     End Function
     
114.     '获取刀具长度
     
115.     Function GetToolHeight(ByVal camObjectTag As NXOpen.Tag) As Double
     # y7 U0 j. b( v6 X5 t
116.         Dim ToolTag As NXOpen.Tag
     
117.         Dim ToolHeight As Double
     " G5 h+ T. _% P  r+ X
118.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     , `1 ?9 M: j' K8 S& M# t  ]3 t
119.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_HEIGHT, ToolHeight)
     + b# T% S2 f( K- c1 v8 M' `" e
120.         Return ToolHeight
     * k" X- u  u' w$ k
121.     End Function
     & H" }+ [- i6 ~& Z( o3 C
122.     '获取刀具直径
     - J% o7 Q/ M0 v& v: h
123.     Function GetToolDiameter(ByVal camObjectTag As NXOpen.Tag) As Double
     
124.         Dim ToolTag As NXOpen.Tag
     
125.         Dim ToolDiameter As Double
     
126.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     - |7 x! I# q! r( b: ~. l  |$ y
127.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_DIAMETER, ToolDiameter)
     
128.         Return ToolDiameter
     
129.     End Function
     6 X. p: O. r$ _  m; E6 G9 j
130.     '获取刀具刃长
     
131.     Function GetToolFluteLength(ByVal camObjectTag As NXOpen.Tag) As Double
       B& @+ R3 D' P  R0 v3 h
132.         Dim ToolTag As NXOpen.Tag
     
133.         Dim ToolFluteLength As Double
     2 B. L: i3 V; q6 H4 O' y7 m. y1 X
134.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
135.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_FLUTE_LN, ToolFluteLength)
     
136.         Return ToolFluteLength
     % C5 p) ^) P( {9 j: j9 D! c: i' H
137.     End Function
     
138.     '获取刀具R角
     7 U) Z; l7 j* J' L" f
139.     Function GetToolCornerRadius(ByVal camObjectTag As NXOpen.Tag) As Double
     
140.         Dim ToolTag As NXOpen.Tag
     8 h" e# E# I4 |) Z0 J! y
141.         Dim ToolCornerRadius As Double
     
142.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
143.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_COR1_RAD, ToolCornerRadius)
     ! N" d4 _. v/ t+ b; J6 S; `' z
144.         Return ToolCornerRadius
     
145.     End Function
     
146.     '取部件侧部余量
     : M& X/ [  l$ Y2 V3 ^0 F0 M
147.     Function GetStockPart(ByVal camObjectTag As NXOpen.Tag) As Double
     ( Q$ U, c3 s# k2 e( |0 |2 u; ]& k
148.         Dim StockPart As Double
     ! ~& r- a% a5 Z. l
149.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_STOCK_PART, StockPart)
     
150.         Return StockPart
     . O/ s/ {6 |- y( o) ?
151.     End Function
     
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)
     . y( o: `( @$ B7 w- L
156.         Return Stockfloor
     2 w; @! B+ E6 Y$ G+ ?0 M
157.     End Function
     3 C. I5 r* [6 A4 f9 z; P. F; l
158. 
     ; q- h( k3 {3 p- ^( W: C  M
159.     '取主轴转速
     
160.     Function GetSpeedValue(ByVal camObjectTag As NXOpen.Tag) As Double
     
161.         Dim SpeedVale As Double
     3 T6 g0 v( X  D6 V0 y
162.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_SPINDLE_RPM, SpeedVale)
     7 }% c" c( w8 a+ H
163.         Return SpeedVale
     
164.     End Function
     7 f0 I1 g  q, k# k% ~
165.     '取进给速度
     
166.     Function GetFeedValue(ByVal camObjectTag As NXOpen.Tag) As Double
     
167.         Dim FeedValue As Double
     9 V1 H% c) b, Z$ N  v6 ?3 {
168.         Dim _camObject As NXObject = NXObjectManager.Get(camObjectTag)
     
169.         Dim params(0) As CAM.Operation
     6 o) X6 ]3 [5 S9 X6 d1 e
170.         params(0) = CType(_camObject, Operation)
     
171.         Dim FeedsBuilder1 As ObjectsFeedsBuilder = theSession.Parts.Work.CAMSetup.CreateFeedsBuilder(params)
     
172.         FeedValue = FeedsBuilder1.FeedsBuilder.FeedCutBuilder.Value
     
173.         FeedsBuilder1.Destroy()
     
174.         Return FeedValue
     . B) d$ K( E- L+ s
175.     End Function
     
176.     '取切削时间
     , z+ K4 e, q8 R, Q3 @4 |% M6 L1 H
177.     Function GetCutTime(ByVal camObjectTag As NXOpen.Tag) As Double
     6 ^- x7 I3 Q  H# g( M* G# ]" ~/ g, b( w
178.         Dim CutTime As Double
     3 r6 y2 b- x4 b3 k. A  ?" f" `
179.         theUFSession.Param.AskDoubleValue(camObjectTag, 142, CutTime)
     # _! r6 l% Q8 r- m8 S) n' J: m
180.         Return CutTime
     
181.     End Function
     
182. 
     8 d3 Y& M. l- L
183.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     
184. 
     . H* q/ G$ r1 d) s* u- B+ J
185.         'Unloads the image immediately after execution within NX
     
186.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
     
187. 
     # P9 X2 X$ |8 o7 y
188.         '----Other unload options-------
     
189.         'Unloads the image when the NX session terminates
     
190.         'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     
191. 
     # O- p9 p, N6 X- S( f  O/ U! @
192.         'Unloads the image explicitly, via an unload dialog
     
193.         'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
     , b0 J8 n! W! F: R' L
194.         '-------------------------------
     
195. 
     
196.     End Function
     $ m/ ^* A8 o/ b5 M# J2 H0 a$ K
197. 
     
198. 
     / o2 k7 J) x9 Z: L0 z
199. End Module
     / M* t& j, B4 ~) v+ l% ?3 C
200. 
     
201. Public Class MY_EXCEL
     
202.     Private app As Object
     
203.     Private book As Object
     
204.     Private sheet As Object
     
205.     '表格名称
     
206.     Public Property xlSheetName() As String
     
207.         Get
     " t) z. w, ^: {' N. l* [
208.             Return sheet.Name
     
209.         End Get
     , N5 p1 Q, S3 m6 A5 i- `9 I# f
210.         Set(ByVal value As String)
     / Z- a' O" d, A' k
211.             sheet.Name = value
     
212.         End Set
     
213.     End Property
     
214.     '新建程序
     * J9 @% g7 E* h2 L
215.     Public Function Create() As Boolean
     1 Q; l8 U* T  ^4 F7 U
216.         app = CreateObject("Excel.Application")
     
217.         If app Is Nothing Then
     % |+ q' @4 G! D( y, N
218.             Return False
     ! G$ I* C; y- d" S
219.         Else
     3 S. n8 }! ?% S
220.             app.Visible = True
     
221.             Return True
     
222.         End If
     ' v2 R' A6 u. G3 b. k% |
223.     End Function
     ! R% k3 e* I& j+ Z0 ~! h5 x/ ?+ o
224.     '打开文件
     
225.     Public Sub Open(ByVal xlFileName As String)
     
226.         book = app.Workbooks.Open(xlFileName)
     
227.         sheet = book.ActiveSheet
     $ N0 V3 F+ q4 r4 \8 p5 |9 D' W; L
228.     End Sub
     + ?& t8 z# ?" E+ g" r, G
229.     '写单元格
     ( _# J# N9 x: X7 D8 v0 d1 p
230.     Public Sub Write(ByVal _Range As String, ByVal value As Object)
       W0 O5 n1 h8 Y5 p/ h9 i5 v
231.         If _Range <> "" Then
     6 i. i$ g* t* r3 P
232.             sheet.Range(_Range).Value = value
     
233.         End If
     
234.     End Sub
     
235.     '插入图片
     7 P& c4 b7 z) U* J4 o
236.     Public Sub InsertPicture(ByVal _Range As String, ByVal imageFile As String)
     
237.         If _Range <> "" Then
     + H: x+ i9 v- o" j
238.             Dim ExcelRange As Object = sheet.Range(_Range)
       V# i6 U9 p: S( R) v, E" ]
239.             Dim Ins_image As Image
       b: C( @* y( ]- F( z8 r
240.             Ins_image = Image.FromFile(imageFile)
     ; L6 V. h% x% ^' _- n. \$ v) q# ~
241.             Dim HeightScale As Double = Math.Round((ExcelRange.Height * 12 - 6) / Ins_image.Height, 2)
     % a+ x0 L' Y, n3 p* X3 |  l4 o
242.             Dim WidthScale As Double = Math.Round((ExcelRange.Width * 15 - 6) / Ins_image.Width, 2)
     % Z5 Q7 V2 ?9 h4 R7 m
243.             Dim ScaleHW As Double = Math.Min(HeightScale, WidthScale)
     1 u# R8 [5 X0 i- l
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()
     1 n6 m8 d' f( P* [  F1 K# B
246.         End If
     
247.     End Sub
     : E5 ^) E  v1 K8 K
248.     '取指定单元格值
     1 \3 u$ Z8 P+ u) X1 |' A
249.     Public Function GetValue(ByVal _table As Integer, ByVal _Range As String) As String
     
250.         Dim sheet As Object = book.Sheets.Item(_table)
     
251.         Return sheet.Range(_Range).value
     5 ^) Z& Q" M# U: I7 y' f
252.     End Function
     
253.     Public Function Save() As Boolean
     
254.         book.Save()
     3 S  k" A' \* ]; `! `4 v! O
255.     End Function
     
256.     Public Function SaveAs() As Boolean
     7 Q3 Q6 `5 s# {6 p
257.         Dim Sdlg As SaveFileDialog = New SaveFileDialog '定义一个保存对话框
     " `8 f, {# U6 A/ p
258.         Sdlg.FileName = AskDisplatyPartName() + "加工工序单.xls" '保存对话框的默认文件名
     
259.         Sdlg.Filter = "EXCEL档案(*.xls)|*.xls" '过滤器设置
     
260.         If Sdlg.ShowDialog = Windows.Forms.DialogResult.OK Then '如果保存对话框的确认按钮被按下
     
261.             book.SaveAs(Sdlg.FileName) '保存文件
     
262.         End If
     
263.     End Function
     
264.     '结束EXCEL对象
     
265.     Public Function Quit() As Boolean
     & r/ Q  t6 [( ^! X+ ]' p4 k* O& j
266.         book.close()
     ( v0 K: W! T! Q% S  [
267.         app.Quit()
     ' Q: ^! A# `, Y* e8 T( f
268.         app = Nothing
     
269.         GC.Collect()
     
270.     End Function
     
271. 
     
272.     '取数组
     
273.     Public Function GetArryValue(ByRef _table As Integer, ByVal _Row As String, ByVal _Cell As String, ByRef ArryString() As String) As Integer
     ; W  k/ N( p+ z1 r5 v) m' j6 G
274.         Dim sheet As Object = book.Sheets.Item(_table)
     
275.         Dim rowvalue As String = sheet.Range(_Row).value
     " r: C5 Y3 w. s- t5 C; c/ \
276.         Dim cellvalue As String = sheet.Range(_Cell).value
     0 V  w7 H! L# M8 m4 o% O( V
277.         Dim k As Integer = 0
     
278.         If rowvalue <> "" And cellvalue <> "" Then
     
279.             Dim rowstr() As String = Split(rowvalue, "/")
     
280.             Dim cellstring() As String = Split(cellvalue, "/")
     - A, c" i8 q0 z
281.             Dim a, b, c, d As Integer
     , a% X% o; w3 a% N1 f6 i8 m/ ~) N1 R
282.             If rowstr.Length > 1 And cellstring.Length > 0 Then
     
283.                 a = Convert.ToInt32(rowstr(0))
     
284.                 b = Convert.ToInt32(rowstr(1))
     
285.                 If a > 0 And b > a Then
     4 T+ I" @* B, z! s, u
286.                     ReDim Preserve ArryString(b - a)
     
287.                     For i As Integer = 0 To b - a
     
288.                         ArryString(i) = cellstring(0) & Convert.ToString(a + i)
     & M* ~7 l# J8 Q7 d+ m; @
289.                         k += 1
     5 n  i+ @1 @/ j, r% W* a3 J
290.                     Next
     
291.                     If rowstr.Length > 3 And cellstring.Length > 1 Then
     
292.                         c = Convert.ToInt32(rowstr(2))
     
293.                         d = Convert.ToInt32(rowstr(3))
     
294.                         If c > 0 And d > c Then
     & G! t$ H% j$ `( [5 w
295.                             ReDim Preserve ArryString(b - a + d - c + 1)
     7 [) O3 u0 i1 G# f) I: _; W' k
296.                             For j As Integer = 0 To d - c
     
297.                                 ArryString(b - a + j + 1) = cellstring(1) & Convert.ToString(c + j)
     
298.                                 k += 1
     1 f$ ?& Z# p3 X, Y/ r% V5 l  T! n
299.                             Next
     9 r5 ~* Z* R: p) K8 w
300.                         End If
     
301.                     End If
     , h4 j6 e2 Q6 O, f2 S0 Z- `
302.                 End If
     1 [8 }! i9 N& e
303.             End If
     4 ?# C$ C- n. {) d) s- [8 F" Q
304.         End If
     % x# b( }9 Z( k% ?6 p; P3 A, v
305.         Return k
     , Q6 ^% x, {+ ^  n
306.     End Function
     $ ?" c  R& O3 y6 }+ `# g* T# D! g/ s
307. End Class

复制代码

& D( Y8 ]: _+ I& X' d