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

admin

) G& E6 m6 v! D3 t5 o1 `
, Y, z) s/ \3 z6 u

1. Option Strict Off
   
2. Imports System
   
3. Imports System.IO
   
4. Imports NXOpen
   
5. Imports NXOpen.CAM
   
6. Imports NXOpen.UF
   & |2 p4 ^6 A. {0 S
7. Imports NXOpen.Utilities
   
8. Imports System.Drawing
   % R) G! y% x7 V, a  K
9. Imports System.Windows.Forms
   . t! ~- Z; P% \2 H
10. 
    8 {( F4 }& F* u( i3 ], k& L
11. Module Module1
    . M3 F! F  Y) Z7 ~# }
12.     Dim theSession As Session = Session.GetSession()
    
13.     Dim myUI As UI = UI.GetUI()
    ( N! O6 v& ?! |! @! E
14.     Dim theUFSession As UFSession = UFSession.GetUFSession()
    " q# z$ F! W- `2 C/ v
15.     Dim theWorkPart As Part = theSession.Parts.Work
    0 i, V. m+ I- C- P' i' Q
16. 
    8 t0 f7 E/ }0 N5 K& [" q
17.     Dim mytag() As NXOpen.Tag '选择的加工操作标记数组
    # b( u5 N! M: _, T  b# m
18.     Dim mcount As Integer '选择的加工操作数量
    
19. 
    4 @; W1 i; ]! d1 l/ B0 i
20.     Sub Main()     
    7 Q3 J! z5 Z8 `1 o  `
21. 
    
22.         Shell(Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\SnapPic.exe", AppWinStyle.NormalFocus, True)
    & s; K2 Q- i9 r$ s/ r0 }, Y- U
23. 
    1 U4 Q" t6 M# C9 j
24.         Try
    
25.             '获取选择的操作数
    # s- {6 z* j, K/ h( D& g
26.             theUFSession.UiOnt.AskSelectedNodes(mcount, mytag)
    . M4 U. E. U5 p3 _2 H
27.             If mcount = 0 Then
    " @  j5 F0 T4 y; @7 Y- g+ x8 a
28.                 MsgBox("没有选择加工操作!", MsgBoxStyle.OkOnly, "提示信息")
    
29.                 Exit Sub
    5 T7 N' I2 j8 R" O
30.             End If
    
31. 
    
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
    $ ?+ B1 N' W5 t3 Y9 y; Y; @
37.                 myExcel.Create()
    0 x  q/ j4 _# ~' a( C- {& y3 Y- c
38.                 myExcel.Open(fp)
    
39.                 myExcel.Write("M4", AskDisplatyPartName())
    + g$ n. R; [7 m1 v) k
40.                 myExcel.Write("S4", Format(Now, "yyyy/MM/dd"))
    8 o4 U7 W: K8 C; f4 v$ h
41.                 myExcel.InsertPicture("b4", Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\jietu.jpg")
    6 z& F! \  I6 B( @( Q, K& M
42.                 For i = 0 To mcount - 1
    
43.                     '输出结果
    ) G( {% c+ M" O! u% _  P
44.                     myExcel.Write("B" + (i + 17).ToString, (i + 1).ToString)
    9 P& q1 q$ U. w/ Z
45.                     myExcel.Write("D" + (i + 17).ToString, GetGemoGroup_Name(mytag(i)))
    
46.                     myExcel.Write("E" + (i + 17).ToString, GetToolPathName(mytag(i)))
    $ Z% R# v4 A: S2 G1 N3 x: ]: P
47.                     myExcel.Write("F" + (i + 17).ToString, GetToolName(mytag(i)))
    5 I" n4 g- c0 @1 a
48.                     myExcel.Write("G" + (i + 17).ToString, GetToolNumber(mytag(i)).ToString)
    # ?' ~7 s: ^% ]
49.                     myExcel.Write("H" + (i + 17).ToString, GetToolDiameter(mytag(i)).ToString)
    ( ], i4 z: D, {1 [
50.                     myExcel.Write("I" + (i + 17).ToString, GetToolCornerRadius(mytag(i)).ToString)
    
51.                     myExcel.Write("J" + (i + 17).ToString, GetToolHeight(mytag(i)).ToString)
    4 Q5 P3 k( D/ J+ Y6 w
52.                     myExcel.Write("K" + (i + 17).ToString, GetToolFluteLength(mytag(i)).ToString)
    " T4 l9 E5 U! z/ [  A
53.                     myExcel.Write("L" + (i + 17).ToString, GetStockPart(mytag(i)).ToString)
    & c; f$ g3 `6 }; `' |2 C
54.                     myExcel.Write("M" + (i + 17).ToString, GetStockFloor(mytag(i)).ToString)
    
55.                     myExcel.Write("N" + (i + 17).ToString, GetSpeedValue(mytag(i)).ToString)
    ! j/ ^- K( j" t
56.                     myExcel.Write("O" + (i + 17).ToString, GetFeedValue(mytag(i)).ToString)
    " W1 F" e# U8 U' l4 s+ h' }
57.                     myExcel.Write("Q" + (i + 17).ToString, CInt(GeTCutTime(mytag(i))).ToString)
    7 I2 K8 r+ F, f/ B+ M2 m2 J
58. 
    
59.                 Next
    7 ~; ]+ A( ^6 h: n# R: D8 d
60.                 myExcel.SaveAs()
    
61.                 'myExcel.Quit()
    
62.             End If
    
63.             '出错处理：
    
64.         Catch ex As Exception
    
65.             MsgBox(ex)
    
66.         End Try
    5 l' M7 b( h& p6 r( a
67. 
    
68.     End Sub
    
69.     '当前文档文件名
    0 Q4 w$ V) Q! o) G1 F$ i( x# B7 e6 l
70.     Function AskDisplatyPartName() As String
    : b9 W' ?2 z. Y% S
71.         Dim UFS As UFSession = UFSession.GetUFSession()
    / @! q7 c/ ~$ k( ^! G
72.         Dim part_name As String = ""
    $ C9 f2 v. W% y, P' A1 Y
73.         Dim part_tag As NXOpen.Tag = UFS.Part.AskDisplayPart
    # I$ f9 [; M3 {5 U
74.         UFS.Part.AskPartName(part_tag, part_name)
    
75.         Dim aa() As String
    6 D3 }' Y, P- W+ `- 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
    $ q$ C! t% C! [0 [; Q1 a0 L6 K9 U
82.     End Function
    
83.     '取加工几何试图程序组
    
84.     Function GetGemoGroup_Name(ByVal camObjectTag As NXOpen.Tag) As String
    8 [+ Z3 \: Q' P4 {7 {, i
85.         Dim theGemoGroup_Tag As NXOpen.Tag
    $ C+ i' D! u1 Q/ b* j6 H+ g; `
86.         Dim GemoGroupName As String = ""
      [3 f5 w; @# L/ U  L6 D
87.         theUFSession.Oper.AskGeomGroup(camObjectTag, theGemoGroup_Tag)
    
88.         theUFSession.Obj.AskName(theGemoGroup_Tag, GemoGroupName)
    
89.         Return GemoGroupName
    ( v2 D+ w; {% i2 I0 u1 F% m/ D
90.     End Function
    * q' b4 v/ f5 V: e
91. 
    5 m6 U$ d/ s* r  ~9 ~0 ]
92.     '取操作名称
    
93.     Function GetToolPathName(ByVal camObjectTag As NXOpen.Tag) As String
    
94.         Dim ToolPathName As String = ""
    + z! [# \: L7 L! V6 W* Q! A
95.         theUFSession.Oper.AskNameFromTag(camObjectTag, ToolPathName)
    
96.         Return ToolPathName
    5 m, A2 [  N$ ?
97.     End Function
    
98.     '获取刀具名称
    
99.     Function GetToolName(ByVal camObjectTag As NXOpen.Tag) As String
    
100.         Dim ToolName As String = ""
     
101.         Dim ToolTag As NXOpen.Tag
     ( i2 z$ {- r- A; t9 x" r+ x! D
102.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     8 f8 q& E, W1 t
103.         theUFSession.Obj.AskName(ToolTag, ToolName)
     ( J' R+ I0 N9 R5 U  w  {
104.         Return ToolName
     
105.     End Function
     
106.     '获取刀具号码
     
107.     Function GetToolNumber(ByVal camObjectTag As NXOpen.Tag) As Integer
     
108.         Dim ToolTag As NXOpen.Tag
     : E7 s! a% Q9 F1 Y: F6 @
109.         Dim ToolNumber As Integer
     * V' p7 f/ Z7 b; v8 ?; j
110.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
111.         theUFSession.Param.AskIntValue(ToolTag, UFConstants.UF_PARAM_TL_NUMBER, ToolNumber)
     
112.         Return ToolNumber
     % T2 U/ {$ F9 t' I1 K# ?( z# i7 a9 i
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
     4 ?+ u( {# Z" z( D0 Y
118.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
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
     
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
     
129.     End Function
     
130.     '获取刀具刃长
     
131.     Function GetToolFluteLength(ByVal camObjectTag As NXOpen.Tag) As Double
     
132.         Dim ToolTag As NXOpen.Tag
     
133.         Dim ToolFluteLength As Double
     $ g& n- ~# H) L. \+ s  h& H
134.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
135.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_FLUTE_LN, ToolFluteLength)
     4 ?* f! Y& g3 y) O# z
136.         Return ToolFluteLength
     + V2 `' H/ ?  d* x: V1 G
137.     End Function
     
138.     '获取刀具R角
     
139.     Function GetToolCornerRadius(ByVal camObjectTag As NXOpen.Tag) As Double
     0 M" X' J; k: D2 `$ W- g; @% {
140.         Dim ToolTag As NXOpen.Tag
     
141.         Dim ToolCornerRadius As Double
     3 K2 m2 a; `$ A9 K
142.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
143.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_COR1_RAD, ToolCornerRadius)
     
144.         Return ToolCornerRadius
     
145.     End Function
     
146.     '取部件侧部余量
     
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)
     : t" J2 ^- J" u' G2 r
150.         Return StockPart
     0 j; U) Y& \! G5 c3 w
151.     End Function
     
152.     '取部件底部余量
     $ C1 ~0 a; N& R4 ], w) M0 Y  V
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)
     ! o  v3 `7 s4 q; w6 |% H6 z
156.         Return Stockfloor
     ! J% q# o2 d+ @( \2 e. s( l7 U
157.     End Function
     
158. 
     
159.     '取主轴转速
     2 v( H3 ]5 b$ y0 C
160.     Function GetSpeedValue(ByVal camObjectTag As NXOpen.Tag) As Double
     
161.         Dim SpeedVale As Double
     
162.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_SPINDLE_RPM, SpeedVale)
     - W" m) T: r7 ^6 m4 W
163.         Return SpeedVale
     
164.     End Function
     
165.     '取进给速度
     ( |7 X* _% x" I4 F
166.     Function GetFeedValue(ByVal camObjectTag As NXOpen.Tag) As Double
       u5 q, j5 N( u3 i$ }8 i% c+ B- m) j
167.         Dim FeedValue As Double
     
168.         Dim _camObject As NXObject = NXObjectManager.Get(camObjectTag)
     
169.         Dim params(0) As CAM.Operation
     
170.         params(0) = CType(_camObject, Operation)
     
171.         Dim FeedsBuilder1 As ObjectsFeedsBuilder = theSession.Parts.Work.CAMSetup.CreateFeedsBuilder(params)
     / C! U- ?5 V: c* e
172.         FeedValue = FeedsBuilder1.FeedsBuilder.FeedCutBuilder.Value
     8 l& D& G: p! D8 W* \% D
173.         FeedsBuilder1.Destroy()
     
174.         Return FeedValue
     1 ~. Y% Y+ f+ {$ \. Q: g8 F
175.     End Function
     
176.     '取切削时间
     ) R/ ^& v6 s5 E& [, E& e, T4 a9 Q
177.     Function GetCutTime(ByVal camObjectTag As NXOpen.Tag) As Double
     3 W+ b  Y* _* \1 p; w
178.         Dim CutTime As Double
     . B$ v8 G* x. Z6 t
179.         theUFSession.Param.AskDoubleValue(camObjectTag, 142, CutTime)
     
180.         Return CutTime
     7 b- Z3 @+ n& r7 w% b0 i% w
181.     End Function
     6 i: o9 L- r% y  w
182. 
     
183.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     ) l7 A/ n+ i! T
184. 
     
185.         'Unloads the image immediately after execution within NX
     , e  `; ^$ `9 W$ V; L5 ~" q
186.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
     
187. 
     
188.         '----Other unload options-------
     * N) K" P" @2 r! C
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
     ' L% O* J, k, R; K9 P
194.         '-------------------------------
     5 |7 d# Q  R% h: \
195. 
     1 [; @" {9 m! M5 G1 n! s
196.     End Function
     
197. 
     
198. 
     
199. End Module
     / s9 N0 l# |8 e- y
200. 
     * P7 r( I. G2 C( S
201. Public Class MY_EXCEL
     
202.     Private app As Object
     ( V2 m+ [- b& p; e# \; i, n1 u/ y4 M
203.     Private book As Object
     - T' H, g; r7 v9 K
204.     Private sheet As Object
     
205.     '表格名称
     
206.     Public Property xlSheetName() As String
     
207.         Get
     " P* c' d# I7 z  h# [; {8 ~) @, N; ^, U0 m
208.             Return sheet.Name
     9 d+ |7 i+ r/ }. s9 u
209.         End Get
     - w4 q: X8 p) B: T. O6 {1 p
210.         Set(ByVal value As String)
     
211.             sheet.Name = value
     
212.         End Set
     ( U- Q9 d9 m- b) o0 L) |! ^
213.     End Property
     
214.     '新建程序
     * f, [. G, a. a: d6 Z+ m4 O. y% T
215.     Public Function Create() As Boolean
     
216.         app = CreateObject("Excel.Application")
     # G$ ]5 i4 u7 M+ z! \$ \
217.         If app Is Nothing Then
     
218.             Return False
     
219.         Else
     # b) ]. d% C5 p5 K$ o2 z' L8 ^# I
220.             app.Visible = True
     + f& e% v3 B+ V" V% M
221.             Return True
     % R2 j$ W* |5 ?4 H
222.         End If
     % }* g0 Q8 i% I) L
223.     End Function
     
224.     '打开文件
     
225.     Public Sub Open(ByVal xlFileName As String)
     1 F" ~: z5 B/ O( G
226.         book = app.Workbooks.Open(xlFileName)
     
227.         sheet = book.ActiveSheet
     9 H/ V& B: Y" p6 k. J
228.     End Sub
     ) ~9 O% C: j. I# s* o; E. H
229.     '写单元格
     1 V6 b$ N: _. Q8 ~) u' X5 E3 }& [: [
230.     Public Sub Write(ByVal _Range As String, ByVal value As Object)
     
231.         If _Range <> "" Then
     * L" Z; r. k% o
232.             sheet.Range(_Range).Value = value
     
233.         End If
     0 `6 U% Z( q' o2 \! i
234.     End Sub
     ) A+ n' q1 w1 h2 s
235.     '插入图片
     
236.     Public Sub InsertPicture(ByVal _Range As String, ByVal imageFile As String)
     . d, J7 t$ `+ ?3 b# C) u
237.         If _Range <> "" Then
     
238.             Dim ExcelRange As Object = sheet.Range(_Range)
     0 U4 X7 f- }$ }3 q" A
239.             Dim Ins_image As Image
     ) R$ C& H+ Y' U
240.             Ins_image = Image.FromFile(imageFile)
     
241.             Dim HeightScale As Double = Math.Round((ExcelRange.Height * 12 - 6) / Ins_image.Height, 2)
     , A) d( ?: @1 c% m9 P! R% T# L& K
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)
     7 m! m" @2 D' P( O8 ]
245.             Ins_image.Dispose()
     ; Y* f! c4 L2 u! M5 \+ v
246.         End If
     
247.     End Sub
     $ D0 x" c" F. \) a3 m
248.     '取指定单元格值
     
249.     Public Function GetValue(ByVal _table As Integer, ByVal _Range As String) As String
     
250.         Dim sheet As Object = book.Sheets.Item(_table)
     3 q$ J: ^+ _6 x" U$ ?8 i
251.         Return sheet.Range(_Range).value
     # k$ t3 X& W0 n. H! ^5 k
252.     End Function
     # C" l' ~. g# |: e
253.     Public Function Save() As Boolean
     ' b7 J& n( R4 g7 x9 P
254.         book.Save()
     " r0 C* w' {" t# U* c- p
255.     End Function
     
256.     Public Function SaveAs() As Boolean
     
257.         Dim Sdlg As SaveFileDialog = New SaveFileDialog '定义一个保存对话框
     
258.         Sdlg.FileName = AskDisplatyPartName() + "加工工序单.xls" '保存对话框的默认文件名
     
259.         Sdlg.Filter = "EXCEL档案(*.xls)|*.xls" '过滤器设置
     
260.         If Sdlg.ShowDialog = Windows.Forms.DialogResult.OK Then '如果保存对话框的确认按钮被按下
     & J( W. N' n- w" \- K
261.             book.SaveAs(Sdlg.FileName) '保存文件
     ; Q+ ?" q/ A- L) v: v
262.         End If
       E$ i: N* g4 p9 L6 i
263.     End Function
     - l- p9 B* K/ @7 \2 ^2 X
264.     '结束EXCEL对象
     / v# g9 i- z, e; U4 v/ k
265.     Public Function Quit() As Boolean
     
266.         book.close()
     
267.         app.Quit()
     * g0 ~# {0 ~7 s( A* S& ^3 C
268.         app = Nothing
     , {: {" z( _, I7 {6 N  o
269.         GC.Collect()
     & z2 E, [8 l6 O0 M* e3 l
270.     End Function
     
271. 
       S& B) c5 m* w8 R8 P" J8 X$ u
272.     '取数组
     1 w! p. W& V% F2 x
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)
     % ?: h0 ]; I9 m- |6 C8 M+ @
275.         Dim rowvalue As String = sheet.Range(_Row).value
     6 E$ w0 p3 m3 x5 `3 `
276.         Dim cellvalue As String = sheet.Range(_Cell).value
     
277.         Dim k As Integer = 0
     2 W$ v  F( a3 f+ Q- u8 X( i
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
     9 @- v5 O$ E; l
282.             If rowstr.Length > 1 And cellstring.Length > 0 Then
     
283.                 a = Convert.ToInt32(rowstr(0))
     ) i) N, _6 x# }( V, g
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
     
288.                         ArryString(i) = cellstring(0) & Convert.ToString(a + i)
     
289.                         k += 1
     2 k& D/ L9 m7 G1 ~* j; d* F2 d$ |
290.                     Next
     # ?6 \% w' h: h% Y
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
     * I: e' I2 i, {* N# b5 {# F3 ^* t
295.                             ReDim Preserve ArryString(b - a + d - c + 1)
     
296.                             For j As Integer = 0 To d - c
     * j2 {' n0 C; a
297.                                 ArryString(b - a + j + 1) = cellstring(1) & Convert.ToString(c + j)
     / \( [/ y; o  F" [+ d% q6 S5 a
298.                                 k += 1
     , |" }6 d- b, ?, D
299.                             Next
     & B2 B7 e5 G# \
300.                         End If
     
301.                     End If
     
302.                 End If
     
303.             End If
     2 Z% _* N+ r' z1 y! `
304.         End If
     : |  Q/ a' t+ [0 u) H
305.         Return k
     
306.     End Function
     , A8 d' \' d6 b/ G3 o4 d( ?% r
307. End Class

复制代码

4 K6 q2 J& Y. ^