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

admin

6 b6 c. X! q. s/ D
; r: W  J1 O0 W/ O$ v
: A2 t9 }  E+ A2 w1 Q% {

1. Option Strict Off
     q  x$ q" D" ?
2. Imports System
   
3. Imports System.IO
   & a1 p8 H7 d% N2 P9 f) [! [4 s9 C9 J
4. Imports NXOpen
   
5. Imports NXOpen.CAM
   5 W* _" t* j* z4 l4 e. D! b
6. Imports NXOpen.UF
   . ]8 ?3 c( ^/ `2 e/ |
7. Imports NXOpen.Utilities
   7 d, }, T  Q2 b  I: M
8. Imports System.Drawing
   
9. Imports System.Windows.Forms
   & i: L, F/ Q4 W3 C
10. 
    3 F. m# i9 H3 U
11. Module Module1
    ; n& k8 \3 o" ~" B  F" D& A
12.     Dim theSession As Session = Session.GetSession()
    
13.     Dim myUI As UI = UI.GetUI()
    1 G" j; v! i& k# O7 n5 p! k
14.     Dim theUFSession As UFSession = UFSession.GetUFSession()
    
15.     Dim theWorkPart As Part = theSession.Parts.Work
      @. Z: c( w4 q3 X) n
16. 
    
17.     Dim mytag() As NXOpen.Tag '选择的加工操作标记数组
    
18.     Dim mcount As Integer '选择的加工操作数量
    ' a7 y  O) K( l
19. 
      |6 O$ n( M) @: J- @0 |
20.     Sub Main()     
    ' j4 ~- h. V  M
21. 
    - Y! I) A6 E; h  B# z0 m/ A5 T
22.         Shell(Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\SnapPic.exe", AppWinStyle.NormalFocus, True)
    
23. 
    
24.         Try
    " B; _6 G) J: C4 u
25.             '获取选择的操作数
    
26.             theUFSession.UiOnt.AskSelectedNodes(mcount, mytag)
    : A) f  k" y! I3 i4 w* b
27.             If mcount = 0 Then
    / x, V5 Y$ @% }0 w! g0 }4 U* B9 W! ^
28.                 MsgBox("没有选择加工操作!", MsgBoxStyle.OkOnly, "提示信息")
    $ H! j4 K* T- G4 x. n
29.                 Exit Sub
    8 L2 {2 m; }' `# t- C
30.             End If
      c4 p2 t2 s. w7 F
31. 
    
32.             '设置车间文档EXCEL模板路径
    ! ]- F* y" ^5 \. Q. K
33.             Dim fp As String = Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\WorkShop.xls"
    
34.             '打开与写出车间文档
    " V) w% w' l" f5 w& J! \: d
35.             If String.IsNullOrEmpty(fp) = False Then
    
36.                 Dim myExcel As New MY_EXCEL
    - x! s* {% u9 u3 Q
37.                 myExcel.Create()
    3 w) @: q8 ]+ q
38.                 myExcel.Open(fp)
    
39.                 myExcel.Write("M4", AskDisplatyPartName())
    ' b+ I1 ?9 A5 H. O2 I
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
    0 q, h4 F9 j  {; \; d
43.                     '输出结果
    , x+ `) F8 J0 |6 A0 c9 c! E) c
44.                     myExcel.Write("B" + (i + 17).ToString, (i + 1).ToString)
    
45.                     myExcel.Write("D" + (i + 17).ToString, GetGemoGroup_Name(mytag(i)))
    
46.                     myExcel.Write("E" + (i + 17).ToString, GetToolPathName(mytag(i)))
    
47.                     myExcel.Write("F" + (i + 17).ToString, GetToolName(mytag(i)))
    2 Y+ R, @; D: d. [" J* t% V9 E; M, E
48.                     myExcel.Write("G" + (i + 17).ToString, GetToolNumber(mytag(i)).ToString)
    " x5 x% {! \& m* s& ?3 l
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)
    ) r! l, ?% g% _- V) A$ f* V
52.                     myExcel.Write("K" + (i + 17).ToString, GetToolFluteLength(mytag(i)).ToString)
    
53.                     myExcel.Write("L" + (i + 17).ToString, GetStockPart(mytag(i)).ToString)
    
54.                     myExcel.Write("M" + (i + 17).ToString, GetStockFloor(mytag(i)).ToString)
    
55.                     myExcel.Write("N" + (i + 17).ToString, GetSpeedValue(mytag(i)).ToString)
    3 N+ C2 N6 K( ?$ l/ T
56.                     myExcel.Write("O" + (i + 17).ToString, GetFeedValue(mytag(i)).ToString)
    
57.                     myExcel.Write("Q" + (i + 17).ToString, CInt(GeTCutTime(mytag(i))).ToString)
    # e! c) f) d7 P7 |" {8 |+ P
58. 
    2 x7 u; ^9 j5 n5 V$ s* G; F% x
59.                 Next
    
60.                 myExcel.SaveAs()
    2 c1 D, [1 e- R
61.                 'myExcel.Quit()
    ! n( M8 ~( w7 x$ T
62.             End If
    # P' I1 u- M: ?% S1 y& Q
63.             '出错处理：
    ) n1 W/ p0 }+ R0 c8 _7 V6 X/ L
64.         Catch ex As Exception
    
65.             MsgBox(ex)
    
66.         End Try
    / r" B+ l- `" F
67. 
    ; k3 [1 p8 R. [; l
68.     End Sub
    " I' t+ p- u9 O3 X; K
69.     '当前文档文件名
    . T3 N3 T! Q7 k5 |8 s
70.     Function AskDisplatyPartName() As String
    ! V7 \6 t& Q1 z4 W
71.         Dim UFS As UFSession = UFSession.GetUFSession()
    9 {! ~  B( F) r
72.         Dim part_name As String = ""
    
73.         Dim part_tag As NXOpen.Tag = UFS.Part.AskDisplayPart
    
74.         UFS.Part.AskPartName(part_tag, part_name)
    6 s4 g6 d* @6 p8 \/ J
75.         Dim aa() As String
    . G  t1 E5 u& E" q! u* G" B+ t
76.         Dim bb() As String
    
77.         aa = Split(part_name, ".prt")
    5 g& h4 O0 C: p, `) ?7 W. p
78.         part_name = aa(0)
    
79.         bb = Split(part_name, "")
    
80.         part_name = bb(bb.Length - 1)
      D9 m$ h1 z7 \. E$ v. V8 K7 ]
81.         Return part_name
    9 t2 `8 M2 B$ ]0 Y! |1 d
82.     End Function
    
83.     '取加工几何试图程序组
    
84.     Function GetGemoGroup_Name(ByVal camObjectTag As NXOpen.Tag) As String
    7 K* G. j+ u+ @% Q
85.         Dim theGemoGroup_Tag As NXOpen.Tag
    
86.         Dim GemoGroupName As String = ""
    6 H& @: J+ V1 X$ b# _
87.         theUFSession.Oper.AskGeomGroup(camObjectTag, theGemoGroup_Tag)
    
88.         theUFSession.Obj.AskName(theGemoGroup_Tag, GemoGroupName)
    
89.         Return GemoGroupName
    
90.     End Function
    + k1 t* I3 V  F/ _8 `) C0 G4 L. L
91. 
    4 E  q) S3 u# m+ ?: P0 I
92.     '取操作名称
    ' B3 s) b! M8 P% i( k7 O
93.     Function GetToolPathName(ByVal camObjectTag As NXOpen.Tag) As String
    
94.         Dim ToolPathName As String = ""
    + f" q2 G2 ~: O. {: l* W; f- f4 v6 \
95.         theUFSession.Oper.AskNameFromTag(camObjectTag, ToolPathName)
    3 n  Q; K7 e0 H& k8 E* p2 i
96.         Return ToolPathName
    
97.     End Function
    
98.     '获取刀具名称
    
99.     Function GetToolName(ByVal camObjectTag As NXOpen.Tag) As String
    ( M: h8 Y) i6 c* y- h4 z, |
100.         Dim ToolName As String = ""
     
101.         Dim ToolTag As NXOpen.Tag
     6 Y- {) g8 c1 m: s
102.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     , X- `8 {( u7 c! u8 N: I
103.         theUFSession.Obj.AskName(ToolTag, ToolName)
     ' g' H- u4 [" q2 P' f
104.         Return ToolName
     
105.     End Function
     7 I/ p! ?6 g+ {$ d
106.     '获取刀具号码
     
107.     Function GetToolNumber(ByVal camObjectTag As NXOpen.Tag) As Integer
     5 w) W9 X9 N4 D+ q4 L7 j" r
108.         Dim ToolTag As NXOpen.Tag
     , c" J) \7 Y- w0 K
109.         Dim ToolNumber As Integer
     
110.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
111.         theUFSession.Param.AskIntValue(ToolTag, UFConstants.UF_PARAM_TL_NUMBER, ToolNumber)
     + v6 \& C: b. ]5 f
112.         Return ToolNumber
     
113.     End Function
     
114.     '获取刀具长度
     
115.     Function GetToolHeight(ByVal camObjectTag As NXOpen.Tag) As Double
     
116.         Dim ToolTag As NXOpen.Tag
     
117.         Dim ToolHeight As Double
     
118.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     0 C. {1 c1 X1 I7 }
119.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_HEIGHT, ToolHeight)
     
120.         Return ToolHeight
     
121.     End Function
     
122.     '获取刀具直径
     
123.     Function GetToolDiameter(ByVal camObjectTag As NXOpen.Tag) As Double
     # D% X& s1 W* A7 `9 u0 \
124.         Dim ToolTag As NXOpen.Tag
     8 t7 ~; K% t) Q6 S6 V
125.         Dim ToolDiameter As Double
     3 ~2 w4 J2 ?$ G* T4 x
126.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
127.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_DIAMETER, ToolDiameter)
     
128.         Return ToolDiameter
     
129.     End Function
     7 w! J: D; E& ?- V. i, s& U$ O
130.     '获取刀具刃长
     0 Q$ h# n- W7 P, N( N" L7 G
131.     Function GetToolFluteLength(ByVal camObjectTag As NXOpen.Tag) As Double
     
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)
     4 a9 j: Q5 c% h
136.         Return ToolFluteLength
     
137.     End Function
     8 ~; i+ D1 l. M4 \7 S
138.     '获取刀具R角
     2 z$ j+ G" k  p
139.     Function GetToolCornerRadius(ByVal camObjectTag As NXOpen.Tag) As Double
     6 k/ I+ P: ^' U/ _- l0 F# D
140.         Dim ToolTag As NXOpen.Tag
     
141.         Dim ToolCornerRadius As Double
     $ a3 ~/ f; O' Z% p& q# ]
142.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
143.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_COR1_RAD, ToolCornerRadius)
     
144.         Return ToolCornerRadius
     ' L; _+ e: q# I6 O/ Z
145.     End Function
     6 j- o% Q! M) `! i9 L: R' d
146.     '取部件侧部余量
     
147.     Function GetStockPart(ByVal camObjectTag As NXOpen.Tag) As Double
     + j! ?* o' ^5 y& l2 ~2 i
148.         Dim StockPart As Double
     
149.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_STOCK_PART, StockPart)
     
150.         Return StockPart
     & m7 a- J/ p0 ?' f& c( P3 r) _
151.     End Function
     8 W3 f$ Q1 {; A8 Q; S& b" y" N
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
     
158. 
     ! t) _0 G% [: _$ Z) e; \
159.     '取主轴转速
     
160.     Function GetSpeedValue(ByVal camObjectTag As NXOpen.Tag) As Double
     
161.         Dim SpeedVale As Double
       q6 W+ a/ ]; Q  r( J$ W3 L1 R
162.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_SPINDLE_RPM, SpeedVale)
     
163.         Return SpeedVale
     
164.     End Function
     
165.     '取进给速度
     
166.     Function GetFeedValue(ByVal camObjectTag As NXOpen.Tag) As Double
     
167.         Dim FeedValue As Double
     6 k. {) J$ w% c8 o- f! ]
168.         Dim _camObject As NXObject = NXObjectManager.Get(camObjectTag)
     . A# G* u! e7 A# m
169.         Dim params(0) As CAM.Operation
     
170.         params(0) = CType(_camObject, Operation)
     
171.         Dim FeedsBuilder1 As ObjectsFeedsBuilder = theSession.Parts.Work.CAMSetup.CreateFeedsBuilder(params)
     
172.         FeedValue = FeedsBuilder1.FeedsBuilder.FeedCutBuilder.Value
     4 V8 g! ^8 @, w8 }% a
173.         FeedsBuilder1.Destroy()
     % {/ H' w' D$ ]; |3 ]. b
174.         Return FeedValue
     
175.     End Function
     
176.     '取切削时间
     
177.     Function GetCutTime(ByVal camObjectTag As NXOpen.Tag) As Double
     4 K2 q! S8 E5 W+ V. T# Q
178.         Dim CutTime As Double
     
179.         theUFSession.Param.AskDoubleValue(camObjectTag, 142, CutTime)
     1 c. M% U4 s9 s. X; x
180.         Return CutTime
     
181.     End Function
     
182. 
     4 \' R$ Z- e2 c/ d/ X: u4 ^- q
183.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     
184. 
     9 H  l5 V6 e1 z  `, f
185.         'Unloads the image immediately after execution within NX
     8 D* M! |% D3 Z) d8 j( Q, F
186.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
     
187. 
     + ]5 U( I) v& @* N2 L
188.         '----Other unload options-------
     1 O  K3 y# ^) }/ H7 n( T, a/ ]2 M
189.         'Unloads the image when the NX session terminates
     
190.         'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     % p7 ~  }: K2 w3 x% D
191. 
     
192.         'Unloads the image explicitly, via an unload dialog
     
193.         'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
     - T0 s5 c: r/ t, j- R( h" Q% @" F
194.         '-------------------------------
     
195. 
     
196.     End Function
     7 h: H3 o4 S3 T0 N+ y
197. 
     
198. 
     ( l( q+ C8 F6 a9 S  N
199. End Module
     # o7 C& L/ }( w1 G9 |
200. 
     
201. Public Class MY_EXCEL
     
202.     Private app As Object
     
203.     Private book As Object
     
204.     Private sheet As Object
     
205.     '表格名称
     # @2 K/ n/ ~$ u  r0 D
206.     Public Property xlSheetName() As String
     
207.         Get
     & k% a& [# k( d( C
208.             Return sheet.Name
     % P& A1 A( H+ e; v
209.         End Get
     
210.         Set(ByVal value As String)
     + v: H* P) {1 o" S" d6 n% c8 W( \
211.             sheet.Name = value
     ( e* C' i) w" C
212.         End Set
     
213.     End Property
     
214.     '新建程序
     8 p  ~* y4 W, ~. r4 P4 i
215.     Public Function Create() As Boolean
     ' r$ P3 j# w) x8 y3 W: O+ r" e
216.         app = CreateObject("Excel.Application")
     % H" G: V2 }5 _5 k! H3 x
217.         If app Is Nothing Then
     
218.             Return False
     - t; v/ O% I" b8 s
219.         Else
     ) [# b. j! j+ T2 N, k
220.             app.Visible = True
     
221.             Return True
     
222.         End If
     
223.     End Function
     - m# b( D- d' S. E: m
224.     '打开文件
     
225.     Public Sub Open(ByVal xlFileName As String)
     
226.         book = app.Workbooks.Open(xlFileName)
     
227.         sheet = book.ActiveSheet
     " i# H. H6 j: Q& M
228.     End Sub
     
229.     '写单元格
     2 ~1 `+ g* D5 s& N6 Z* ?
230.     Public Sub Write(ByVal _Range As String, ByVal value As Object)
     
231.         If _Range <> "" Then
     ; a* h" v; G+ R7 H0 n) i$ H
232.             sheet.Range(_Range).Value = value
     . X% b: C! k. |% W% A& ^
233.         End If
     
234.     End Sub
     
235.     '插入图片
     
236.     Public Sub InsertPicture(ByVal _Range As String, ByVal imageFile As String)
     % s( R/ t; N$ W4 c( G
237.         If _Range <> "" Then
       N/ }& R, v' r
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)
     # H! |( ^$ k) t4 `8 F+ O# y
242.             Dim WidthScale As Double = Math.Round((ExcelRange.Width * 15 - 6) / Ins_image.Width, 2)
     
243.             Dim ScaleHW As Double = Math.Min(HeightScale, WidthScale)
     
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()
     ! j" ~( b, g: D" c' _6 ]3 l
246.         End If
     0 V. Q( s, A3 c6 j7 G0 v) U) o
247.     End Sub
     - [4 E* @* V$ s& Q
248.     '取指定单元格值
     9 J! A5 [6 A1 F1 r
249.     Public Function GetValue(ByVal _table As Integer, ByVal _Range As String) As String
     
250.         Dim sheet As Object = book.Sheets.Item(_table)
     - R$ Z: c$ }. J, g2 T% ^
251.         Return sheet.Range(_Range).value
     
252.     End Function
     
253.     Public Function Save() As Boolean
     . b" H1 l% c% p
254.         book.Save()
     
255.     End Function
     . g$ a, P! \2 Q
256.     Public Function SaveAs() As Boolean
     : u7 A2 I# b) s3 M
257.         Dim Sdlg As SaveFileDialog = New SaveFileDialog '定义一个保存对话框
     2 @: a1 U; J3 H# _% N! r
258.         Sdlg.FileName = AskDisplatyPartName() + "加工工序单.xls" '保存对话框的默认文件名
     
259.         Sdlg.Filter = "EXCEL档案(*.xls)|*.xls" '过滤器设置
     ; D7 M" E- l' B) H" L: S6 ?- p
260.         If Sdlg.ShowDialog = Windows.Forms.DialogResult.OK Then '如果保存对话框的确认按钮被按下
     
261.             book.SaveAs(Sdlg.FileName) '保存文件
     
262.         End If
     
263.     End Function
     ' j& {& N' o$ Y7 i% ]( Z
264.     '结束EXCEL对象
     0 O/ c1 X3 [) D" N% @$ t
265.     Public Function Quit() As Boolean
     , A+ l' r- s" T4 n: |  E: i( ]
266.         book.close()
     # Y9 H1 }1 Y' D3 L9 z' i
267.         app.Quit()
     ! m1 ~) X: p1 b; @4 F
268.         app = Nothing
     + u- y6 ~9 T/ J
269.         GC.Collect()
     
270.     End Function
     
271. 
     
272.     '取数组
     9 F1 T9 \( E+ `/ K6 n9 u
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, "/")
     
280.             Dim cellstring() As String = Split(cellvalue, "/")
     
281.             Dim a, b, c, d As Integer
     0 k8 H/ q; r) X& n; I
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
     
286.                     ReDim Preserve ArryString(b - a)
     $ A* W" ~) A+ ?  `$ T
287.                     For i As Integer = 0 To b - a
     
288.                         ArryString(i) = cellstring(0) & Convert.ToString(a + i)
     
289.                         k += 1
     
290.                     Next
     : ?& x! d1 y% q8 E+ N7 G6 s) B
291.                     If rowstr.Length > 3 And cellstring.Length > 1 Then
     & \/ ]/ K. i1 l5 h
292.                         c = Convert.ToInt32(rowstr(2))
     
293.                         d = Convert.ToInt32(rowstr(3))
     + w( b5 e3 V9 {1 @  n  E1 U
294.                         If c > 0 And d > c Then
     3 q, t/ b" n; T1 s6 K% m
295.                             ReDim Preserve ArryString(b - a + d - c + 1)
     
296.                             For j As Integer = 0 To d - c
     1 x9 B4 ^- a8 w! N. ?  C
297.                                 ArryString(b - a + j + 1) = cellstring(1) & Convert.ToString(c + j)
     , E! G. X9 d' S$ I7 X2 q
298.                                 k += 1
     0 N& g6 _; S+ i8 M. {6 P, g+ |8 k
299.                             Next
     : U  X" |1 o, {/ u' a% U% [4 ^
300.                         End If
     & A( A$ ^( Q0 g  v* `
301.                     End If
     
302.                 End If
     
303.             End If
     
304.         End If
     6 V: q* G' H) T8 y
305.         Return k
     
306.     End Function
     
307. End Class

复制代码

% Q+ ^: o  s* ]9 Y. p# `