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

admin

1. Option Strict Off
   
2. Imports System
   
3. Imports System.IO
   / x- I1 ?( ^) W; `. u
4. Imports NXOpen
   ' \" p$ I& K1 H: x9 {9 `1 Z) M
5. Imports NXOpen.CAM
   
6. Imports NXOpen.UF
   $ t' ~5 H* ~, u- C9 y. e
7. Imports NXOpen.Utilities
   
8. Imports System.Drawing
   
9. Imports System.Windows.Forms
   ( c$ ?# V' ~+ Y* e
10. 
    # `) r$ Y6 Y/ E
11. Module Module1
    
12.     Dim theSession As Session = Session.GetSession()
    % o% u- ?: r' F0 @- h' W, n
13.     Dim myUI As UI = UI.GetUI()
    
14.     Dim theUFSession As UFSession = UFSession.GetUFSession()
    3 k# q' U5 |1 `6 v* v
15.     Dim theWorkPart As Part = theSession.Parts.Work
    
16. 
    
17.     Dim mytag() As NXOpen.Tag '选择的加工操作标记数组
    
18.     Dim mcount As Integer '选择的加工操作数量
      ?" y# M7 o& R- q# |- _; n7 z; _
19. 
    
20.     Sub Main()     
    
21. 
    2 S/ l. A& E* h/ W9 W) v  ]! d) l" G
22.         Shell(Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\SnapPic.exe", AppWinStyle.NormalFocus, True)
    : r; R0 z5 U+ Z& a: S
23. 
    : G/ T% Q' T, N  e+ g3 g1 K
24.         Try
    ) K7 A1 Y! |4 l; [- H5 b9 P& Z2 J
25.             '获取选择的操作数
    5 Q2 R- {$ B3 D2 j! n4 v
26.             theUFSession.UiOnt.AskSelectedNodes(mcount, mytag)
    
27.             If mcount = 0 Then
    
28.                 MsgBox("没有选择加工操作!", MsgBoxStyle.OkOnly, "提示信息")
    
29.                 Exit Sub
    
30.             End If
    1 R% Z8 R* a, J0 R
31. 
    
32.             '设置车间文档EXCEL模板路径
    
33.             Dim fp As String = Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\WorkShop.xls"
    
34.             '打开与写出车间文档
    " ^9 g( v2 Y4 J7 t: m8 C5 G
35.             If String.IsNullOrEmpty(fp) = False Then
    % Q7 T* \4 Z/ R, e7 b+ [
36.                 Dim myExcel As New MY_EXCEL
    
37.                 myExcel.Create()
    
38.                 myExcel.Open(fp)
    
39.                 myExcel.Write("M4", AskDisplatyPartName())
    
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
    : d$ l& Q( O# F4 C0 K$ S4 s, z
43.                     '输出结果
    : R0 a/ F" o1 h  k& j" y4 ]* n
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)))
    , U7 P+ P, S) [: C* c
47.                     myExcel.Write("F" + (i + 17).ToString, GetToolName(mytag(i)))
    ( n* F0 p  g' X( M. Z
48.                     myExcel.Write("G" + (i + 17).ToString, GetToolNumber(mytag(i)).ToString)
    
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)
      i( b" h' _3 I2 p  R
52.                     myExcel.Write("K" + (i + 17).ToString, GetToolFluteLength(mytag(i)).ToString)
    # ?( g* z8 n5 u# `' V% O
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)
    5 C* ?' ^' D. `) @. {9 m/ V7 |
56.                     myExcel.Write("O" + (i + 17).ToString, GetFeedValue(mytag(i)).ToString)
    
57.                     myExcel.Write("Q" + (i + 17).ToString, CInt(GeTCutTime(mytag(i))).ToString)
    $ H$ o+ m  M  j! X) {* h" z8 s
58. 
    % P5 I' d0 [3 `+ w2 F0 _0 n
59.                 Next
    
60.                 myExcel.SaveAs()
    
61.                 'myExcel.Quit()
    
62.             End If
    
63.             '出错处理：
    
64.         Catch ex As Exception
    
65.             MsgBox(ex)
    * j1 e* b$ B5 ]8 z
66.         End Try
    
67. 
      V. l- N: ?2 d# b* z
68.     End Sub
    
69.     '当前文档文件名
    
70.     Function AskDisplatyPartName() As String
    
71.         Dim UFS As UFSession = UFSession.GetUFSession()
    ) J2 y2 H9 b# _! \$ f
72.         Dim part_name As String = ""
    $ B' Q6 f# g7 u$ y# i5 T! ]$ U
73.         Dim part_tag As NXOpen.Tag = UFS.Part.AskDisplayPart
    
74.         UFS.Part.AskPartName(part_tag, part_name)
    
75.         Dim aa() As String
    # |& E6 v# y" M" _. `/ W
76.         Dim bb() As String
    / u* b$ B# t4 U  t5 q
77.         aa = Split(part_name, ".prt")
    
78.         part_name = aa(0)
    
79.         bb = Split(part_name, "")
    - f# t5 m0 p* A( q4 ^
80.         part_name = bb(bb.Length - 1)
    
81.         Return part_name
    0 T8 Q/ p* i9 v# ~3 \# m
82.     End Function
    1 S9 M) a* M% A
83.     '取加工几何试图程序组
    7 w: g" b' l8 C
84.     Function GetGemoGroup_Name(ByVal camObjectTag As NXOpen.Tag) As String
    
85.         Dim theGemoGroup_Tag As NXOpen.Tag
    ) ?. A4 a; X9 O9 U4 h$ l/ ]. ^
86.         Dim GemoGroupName As String = ""
    
87.         theUFSession.Oper.AskGeomGroup(camObjectTag, theGemoGroup_Tag)
    
88.         theUFSession.Obj.AskName(theGemoGroup_Tag, GemoGroupName)
    " B4 ?* W9 t" r1 K1 W: ~
89.         Return GemoGroupName
    ; J! V& `0 {- ~2 S2 a+ g
90.     End Function
    
91. 
    
92.     '取操作名称
    9 a1 i1 _% L' n: `5 w
93.     Function GetToolPathName(ByVal camObjectTag As NXOpen.Tag) As String
    / E8 C  j! p  H5 V  w
94.         Dim ToolPathName As String = ""
    / Y) t, f2 D0 }% N$ x, X& V8 X, U
95.         theUFSession.Oper.AskNameFromTag(camObjectTag, ToolPathName)
    # i: j$ u* r$ f( Z; M+ K
96.         Return ToolPathName
    
97.     End Function
    
98.     '获取刀具名称
    
99.     Function GetToolName(ByVal camObjectTag As NXOpen.Tag) As String
    * E2 T1 A2 t2 \( {7 F0 P3 i9 G
100.         Dim ToolName As String = ""
     ( I' r0 G/ u* k/ b5 @2 y% e
101.         Dim ToolTag As NXOpen.Tag
     % N8 b0 w# N/ V- H
102.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     & u: m5 }+ U# A' Z' p6 x
103.         theUFSession.Obj.AskName(ToolTag, ToolName)
     
104.         Return ToolName
     
105.     End Function
     ) }' O5 x; n3 s/ e
106.     '获取刀具号码
     % w- A+ h- Q. ^( _/ f  J) }; l' N; N
107.     Function GetToolNumber(ByVal camObjectTag As NXOpen.Tag) As Integer
     
108.         Dim ToolTag As NXOpen.Tag
     4 `4 l0 k6 q" z
109.         Dim ToolNumber As Integer
     ' [8 C  A5 F7 ?, k
110.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
111.         theUFSession.Param.AskIntValue(ToolTag, UFConstants.UF_PARAM_TL_NUMBER, ToolNumber)
     2 \, t* Y4 V0 }* n' @: Z0 c
112.         Return ToolNumber
     & Z4 j( {; [  Z( \- O9 d
113.     End Function
     
114.     '获取刀具长度
     # V! m) x/ z% [3 L, z7 c
115.     Function GetToolHeight(ByVal camObjectTag As NXOpen.Tag) As Double
     
116.         Dim ToolTag As NXOpen.Tag
     
117.         Dim ToolHeight As Double
     , W) k" W6 S$ g/ [' `2 J) W
118.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     , K# t7 y# u" e. ]4 m' l5 M7 W, n
119.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_HEIGHT, ToolHeight)
     1 Y) Y, ~: L; \& z  W
120.         Return ToolHeight
     / N+ \: w2 H. I
121.     End Function
     
122.     '获取刀具直径
     
123.     Function GetToolDiameter(ByVal camObjectTag As NXOpen.Tag) As Double
     ! y) l, G. q) `8 j+ N( h% v+ Q7 R
124.         Dim ToolTag As NXOpen.Tag
     
125.         Dim ToolDiameter As Double
     
126.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
127.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_DIAMETER, ToolDiameter)
     
128.         Return ToolDiameter
     # b; f. W, v) }4 @4 T0 q5 t
129.     End Function
     7 ~4 ]' T6 S% R. V
130.     '获取刀具刃长
       ?; W3 m8 M5 k! y) g
131.     Function GetToolFluteLength(ByVal camObjectTag As NXOpen.Tag) As Double
     
132.         Dim ToolTag As NXOpen.Tag
     $ B5 f8 s+ s' {
133.         Dim ToolFluteLength As Double
     
134.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
135.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_FLUTE_LN, ToolFluteLength)
       }: [) U, E( G  p
136.         Return ToolFluteLength
     
137.     End Function
     
138.     '获取刀具R角
     2 {$ k0 @, Y- x5 j9 z$ F
139.     Function GetToolCornerRadius(ByVal camObjectTag As NXOpen.Tag) As Double
     
140.         Dim ToolTag As NXOpen.Tag
     1 A, ?$ f# x# o! _# X
141.         Dim ToolCornerRadius As Double
       N" X6 j. H6 H/ f$ n3 D3 ^
142.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
143.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_COR1_RAD, ToolCornerRadius)
     9 K7 v/ c6 i4 M5 @! f5 j
144.         Return ToolCornerRadius
     0 l5 @& k% ^5 {9 r
145.     End Function
     
146.     '取部件侧部余量
     
147.     Function GetStockPart(ByVal camObjectTag As NXOpen.Tag) As Double
     # u$ v, M1 @7 j, b$ a
148.         Dim StockPart As Double
     6 P2 o& T7 g$ [% _6 w2 L( l) [# X
149.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_STOCK_PART, StockPart)
     
150.         Return StockPart
     
151.     End Function
     & x- s* S% X) f3 w- |0 ^! K* d
152.     '取部件底部余量
       S& r1 S% J6 {/ w# P
153.     Function GetStockFloor(ByVal camObjectTag As NXOpen.Tag) As Double
     
154.         Dim Stockfloor As Double
     8 }/ [, s* X0 _; q* S* N3 x
155.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_STOCK_FLOOR, Stockfloor)
       b- o6 l" i* N3 @9 m( }
156.         Return Stockfloor
     
157.     End Function
     
158. 
     
159.     '取主轴转速
     
160.     Function GetSpeedValue(ByVal camObjectTag As NXOpen.Tag) As Double
     
161.         Dim SpeedVale As Double
     3 V8 N' k2 ?" H
162.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_SPINDLE_RPM, SpeedVale)
     : Z4 I: ^" s" U0 O) y' J/ o
163.         Return SpeedVale
     ; ]- Q* E+ n2 _$ }; Z
164.     End Function
     % C, q# [9 A( H* n  R
165.     '取进给速度
     * ^9 y  d! j1 P: E( I5 ?
166.     Function GetFeedValue(ByVal camObjectTag As NXOpen.Tag) As Double
     # \3 Y  E- i8 C; R+ m
167.         Dim FeedValue As Double
     7 ^# u+ M5 p+ P: G
168.         Dim _camObject As NXObject = NXObjectManager.Get(camObjectTag)
     
169.         Dim params(0) As CAM.Operation
     
170.         params(0) = CType(_camObject, Operation)
     ! t8 q. B$ Z  z7 f! x
171.         Dim FeedsBuilder1 As ObjectsFeedsBuilder = theSession.Parts.Work.CAMSetup.CreateFeedsBuilder(params)
     $ {( c, A+ u$ g5 x; q' P
172.         FeedValue = FeedsBuilder1.FeedsBuilder.FeedCutBuilder.Value
     
173.         FeedsBuilder1.Destroy()
     & }8 \7 q1 s2 B( f2 e; |! }) a
174.         Return FeedValue
     
175.     End Function
     
176.     '取切削时间
     0 b# L+ T# o4 }/ q  V! [. X3 o
177.     Function GetCutTime(ByVal camObjectTag As NXOpen.Tag) As Double
     
178.         Dim CutTime As Double
     . F" W" d9 I$ h$ M9 C5 a
179.         theUFSession.Param.AskDoubleValue(camObjectTag, 142, CutTime)
     ; i+ K% u0 P/ V0 Y+ n
180.         Return CutTime
     ( Z- k$ A0 ]* k( R4 p. s
181.     End Function
     
182. 
     
183.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     * H0 I0 g5 f9 _6 x6 U0 B
184. 
     
185.         'Unloads the image immediately after execution within NX
     
186.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
     
187. 
     
188.         '----Other unload options-------
     
189.         'Unloads the image when the NX session terminates
     7 e8 c% D! E5 j" d7 m# `' Z% H
190.         'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     7 a) W  c% l+ I
191. 
     
192.         'Unloads the image explicitly, via an unload dialog
     & J4 \9 ]0 @( f/ ^
193.         'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
     2 q! ~) Q& a$ s$ P4 B: h- R9 n+ d
194.         '-------------------------------
     
195. 
     
196.     End Function
     8 Y2 f- L, T3 n& D0 K% Y! V
197. 
     * ~. i& V0 ?& J. K! }
198. 
     ; O. e: x* [3 p% K5 L
199. End Module
     
200. 
     & `  g5 ]) T% i7 d; l; i1 k4 @3 ]- g
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
     
208.             Return sheet.Name
     + k5 h: M% F* C, K. V  U
209.         End Get
     
210.         Set(ByVal value As String)
     - y) \  R6 W& u6 n9 N" k
211.             sheet.Name = value
     
212.         End Set
     
213.     End Property
     + |& w) u2 S6 D" {. ^9 h- W
214.     '新建程序
     # U5 ^5 ?' S& r
215.     Public Function Create() As Boolean
     2 y2 L  f* q( k
216.         app = CreateObject("Excel.Application")
     8 O/ j. M6 ]2 q, _0 h
217.         If app Is Nothing Then
     1 q! ?- u! j% x/ x
218.             Return False
     . `) B0 [6 Y, Z' g# l: W% d
219.         Else
     
220.             app.Visible = True
     + [2 i* B4 j3 d2 ?8 F' ?* g" M
221.             Return True
     
222.         End If
     
223.     End Function
     : Y: L7 M& m& Z7 @
224.     '打开文件
     1 \' o4 M2 \! `6 r* ^) Q7 m
225.     Public Sub Open(ByVal xlFileName As String)
     : k4 s7 e  B. y; q! X. A
226.         book = app.Workbooks.Open(xlFileName)
     5 r: i4 ^% Q  u7 s% w
227.         sheet = book.ActiveSheet
     
228.     End Sub
     ( w( Q0 g, R/ g* i& f7 `
229.     '写单元格
     5 Z; T& g* b; v* K( f# ^
230.     Public Sub Write(ByVal _Range As String, ByVal value As Object)
     
231.         If _Range <> "" Then
     
232.             sheet.Range(_Range).Value = value
     / Y8 S4 ?! `8 h9 s; b% F
233.         End If
     
234.     End Sub
     / d" F+ R9 t0 r, c- v: ?
235.     '插入图片
     
236.     Public Sub InsertPicture(ByVal _Range As String, ByVal imageFile As String)
     . l. a5 E/ m- \6 M/ L) Y
237.         If _Range <> "" Then
     3 M! Y! f# s+ u! ^
238.             Dim ExcelRange As Object = sheet.Range(_Range)
     
239.             Dim Ins_image As Image
     1 r5 c  M' r. l3 Y1 s% [
240.             Ins_image = Image.FromFile(imageFile)
     
241.             Dim HeightScale As Double = Math.Round((ExcelRange.Height * 12 - 6) / Ins_image.Height, 2)
     4 H1 G( N3 Z2 Y3 R) H8 d* D# @* R
242.             Dim WidthScale As Double = Math.Round((ExcelRange.Width * 15 - 6) / Ins_image.Width, 2)
     
243.             Dim ScaleHW As Double = Math.Min(HeightScale, WidthScale)
     ( B! \8 S0 V4 \( s, J' \
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()
     ' ^9 [  q5 Y( e. M
246.         End If
     ! Z7 J: O- f: D" T$ w
247.     End Sub
     6 q! y/ A. E+ H$ G0 q) I
248.     '取指定单元格值
     1 ]$ b7 f. Z& m! X, I) S
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
     
252.     End Function
     * u# ]0 ?% L' W% f$ X
253.     Public Function Save() As Boolean
     : m1 {! ?0 K! P( r/ ^
254.         book.Save()
     " B7 Z5 v7 C' ~# p/ k+ Q8 h
255.     End Function
     + i8 e, x& J2 `. N# z, v# \
256.     Public Function SaveAs() As Boolean
     
257.         Dim Sdlg As SaveFileDialog = New SaveFileDialog '定义一个保存对话框
     
258.         Sdlg.FileName = AskDisplatyPartName() + "加工工序单.xls" '保存对话框的默认文件名
     
259.         Sdlg.Filter = "EXCEL档案(*.xls)|*.xls" '过滤器设置
     0 i! R7 R% [0 v2 o
260.         If Sdlg.ShowDialog = Windows.Forms.DialogResult.OK Then '如果保存对话框的确认按钮被按下
     
261.             book.SaveAs(Sdlg.FileName) '保存文件
     7 `: O4 a: N6 a
262.         End If
     2 P, R% C- r1 T+ U: d' \
263.     End Function
     ; k7 R3 G, x/ P  y3 W5 t. q
264.     '结束EXCEL对象
     . g" {0 `) f8 \) |& \
265.     Public Function Quit() As Boolean
     
266.         book.close()
     3 B. A( [# C7 S5 W5 j
267.         app.Quit()
     
268.         app = Nothing
     # ]8 I2 R7 e5 L
269.         GC.Collect()
     
270.     End Function
     4 z# O* e% \8 w" [8 y' A4 c' T
271. 
     5 x4 A  I. b! _, @
272.     '取数组
     
273.     Public Function GetArryValue(ByRef _table As Integer, ByVal _Row As String, ByVal _Cell As String, ByRef ArryString() As String) As Integer
     5 {, r) B4 M+ h4 s6 q3 d! j
274.         Dim sheet As Object = book.Sheets.Item(_table)
     
275.         Dim rowvalue As String = sheet.Range(_Row).value
     , N& H; i; }3 m" E
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
     / e8 }# g4 E: W9 A: [6 k9 H
282.             If rowstr.Length > 1 And cellstring.Length > 0 Then
     " o  p) O' j& k* `* \+ s9 o
283.                 a = Convert.ToInt32(rowstr(0))
     
284.                 b = Convert.ToInt32(rowstr(1))
     / O" a5 C$ N+ R
285.                 If a > 0 And b > a Then
     1 b) K2 |5 G) n, |
286.                     ReDim Preserve ArryString(b - a)
     
287.                     For i As Integer = 0 To b - a
     % u: }1 s6 m+ Q9 g1 A4 F3 }/ D( Y- P
288.                         ArryString(i) = cellstring(0) & Convert.ToString(a + i)
     - u( B! k- x* W( T4 r8 v; \
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))
     
294.                         If c > 0 And d > c Then
     # d2 u& \  @- f* V' A
295.                             ReDim Preserve ArryString(b - a + d - c + 1)
       Q$ m4 `7 I4 b- v: _! W
296.                             For j As Integer = 0 To d - c
     
297.                                 ArryString(b - a + j + 1) = cellstring(1) & Convert.ToString(c + j)
     
298.                                 k += 1
     
299.                             Next
     
300.                         End If
     
301.                     End If
     
302.                 End If
     7 l( c' `4 u* Z& Y7 a* T
303.             End If
     
304.         End If
     
305.         Return k
     + u- U5 K  f% B! V3 C
306.     End Function
     
307. End Class

复制代码

/ Q7 C4 k! r2 ^1 q6 L7 p6 i3 ^