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

admin

4 W) L  q0 }* Z  J# W* d# g$ R

1. Option Strict Off
   7 A' |, g2 c. m
2. Imports System
   
3. Imports System.IO
   ' H7 o) Q' |+ a% ^: r1 P4 }
4. Imports NXOpen
   1 O+ B/ Z8 W$ m! J8 y
5. Imports NXOpen.CAM
   
6. Imports NXOpen.UF
   / f7 G' o7 s" ]- d! r: p& z
7. Imports NXOpen.Utilities
   8 B; J$ s) k4 Z& v; q* \8 A: g
8. Imports System.Drawing
   
9. Imports System.Windows.Forms
   
10. 
    7 U% l. v1 c5 @; I8 z7 I
11. Module Module1
    , y6 _, S8 P, `( E) B; b: k
12.     Dim theSession As Session = Session.GetSession()
    
13.     Dim myUI As UI = UI.GetUI()
    
14.     Dim theUFSession As UFSession = UFSession.GetUFSession()
    
15.     Dim theWorkPart As Part = theSession.Parts.Work
    , ]- u. w* O( ~; O$ `' l1 l
16. 
    4 h" {% O( N' i6 K1 K8 a% g
17.     Dim mytag() As NXOpen.Tag '选择的加工操作标记数组
    
18.     Dim mcount As Integer '选择的加工操作数量
    
19. 
    ( ]6 B& c- t, V9 G! n7 [& D
20.     Sub Main()     
    2 _$ j) o; A" R9 a/ j9 l  c& [2 Q
21. 
    
22.         Shell(Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\SnapPic.exe", AppWinStyle.NormalFocus, True)
    
23. 
    4 J9 _$ s& \! C& y/ h' N3 l( v
24.         Try
    + Q, }% D( G2 H# W# s+ o
25.             '获取选择的操作数
    
26.             theUFSession.UiOnt.AskSelectedNodes(mcount, mytag)
    
27.             If mcount = 0 Then
    
28.                 MsgBox("没有选择加工操作!", MsgBoxStyle.OkOnly, "提示信息")
    . B+ ~# M: T1 Y- v  q
29.                 Exit Sub
    
30.             End If
    
31. 
    + G2 J% C* C  ^$ b  [
32.             '设置车间文档EXCEL模板路径
    - h2 u" L, }" `. A2 J- z
33.             Dim fp As String = Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\WorkShop.xls"
    : |/ [. ^9 i' s. n% e; ]4 Z
34.             '打开与写出车间文档
    9 g; c4 i, |2 w8 u. f) k/ c
35.             If String.IsNullOrEmpty(fp) = False Then
    9 V$ S2 N) N7 w+ z. e
36.                 Dim myExcel As New MY_EXCEL
    
37.                 myExcel.Create()
    
38.                 myExcel.Open(fp)
    : F. {; Y# W+ A- t% S# b8 t
39.                 myExcel.Write("M4", AskDisplatyPartName())
    9 j4 h5 G0 m) l. s& r2 |
40.                 myExcel.Write("S4", Format(Now, "yyyy/MM/dd"))
    
41.                 myExcel.InsertPicture("b4", Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\jietu.jpg")
    9 z2 a3 t8 F$ H) z; k0 V
42.                 For i = 0 To mcount - 1
    
43.                     '输出结果
    9 ~; T; w/ t0 L1 P& q$ t+ z
44.                     myExcel.Write("B" + (i + 17).ToString, (i + 1).ToString)
    
45.                     myExcel.Write("D" + (i + 17).ToString, GetGemoGroup_Name(mytag(i)))
    : a1 W+ z& ?# @0 \2 G$ }
46.                     myExcel.Write("E" + (i + 17).ToString, GetToolPathName(mytag(i)))
    
47.                     myExcel.Write("F" + (i + 17).ToString, GetToolName(mytag(i)))
    ; q! E1 p. B6 z
48.                     myExcel.Write("G" + (i + 17).ToString, GetToolNumber(mytag(i)).ToString)
    * F  |( v) @2 v1 W# T$ H
49.                     myExcel.Write("H" + (i + 17).ToString, GetToolDiameter(mytag(i)).ToString)
    : |# A9 }) e" |+ F4 x3 J
50.                     myExcel.Write("I" + (i + 17).ToString, GetToolCornerRadius(mytag(i)).ToString)
    8 C& B" s6 n2 i5 K5 J7 k5 B
51.                     myExcel.Write("J" + (i + 17).ToString, GetToolHeight(mytag(i)).ToString)
    0 ~! |# M! f3 n4 l) D2 S
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)
    8 u* {/ f; s2 \4 t7 G, s0 E
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)
    ) [7 ]+ M5 d. k2 n* u) T
58. 
    2 ^, q$ Z+ n5 O$ N4 }  R
59.                 Next
    3 v0 M+ i( c' e7 q. t$ s7 [& _
60.                 myExcel.SaveAs()
    ; |" q3 W' x, R" A1 |6 ^
61.                 'myExcel.Quit()
    5 @/ k( `  @3 @- X; s& D! B! O
62.             End If
    ' c( R. O3 S- g! w  v# _$ p
63.             '出错处理：
    
64.         Catch ex As Exception
    9 k7 _# x  K, r2 r+ K: L% i) J5 J
65.             MsgBox(ex)
    ) Z" ^( E* M7 Y2 u5 I& W# S
66.         End Try
    4 w5 u' W/ L# k' \4 w
67. 
    
68.     End Sub
    
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
    " t' g1 E5 y. a8 P6 }7 n
74.         UFS.Part.AskPartName(part_tag, part_name)
    5 [# |$ c! }& d9 O2 T/ n4 s
75.         Dim aa() As String
    
76.         Dim bb() As String
    2 i" r8 a0 x6 o  |
77.         aa = Split(part_name, ".prt")
    
78.         part_name = aa(0)
    
79.         bb = Split(part_name, "")
    8 i  Q& t+ `7 b- D' m0 p
80.         part_name = bb(bb.Length - 1)
    ; X6 S! k# T. @( ]
81.         Return part_name
    
82.     End Function
    
83.     '取加工几何试图程序组
    ' Q) k+ i2 e0 c) D' I3 r  E
84.     Function GetGemoGroup_Name(ByVal camObjectTag As NXOpen.Tag) As String
    
85.         Dim theGemoGroup_Tag As NXOpen.Tag
    
86.         Dim GemoGroupName As String = ""
    , m, E$ X" ?# g
87.         theUFSession.Oper.AskGeomGroup(camObjectTag, theGemoGroup_Tag)
    * U, a5 m* x5 ^
88.         theUFSession.Obj.AskName(theGemoGroup_Tag, GemoGroupName)
    
89.         Return GemoGroupName
    
90.     End Function
    
91. 
    & f( V1 J5 ]5 O; y7 s
92.     '取操作名称
    
93.     Function GetToolPathName(ByVal camObjectTag As NXOpen.Tag) As String
    
94.         Dim ToolPathName As String = ""
    
95.         theUFSession.Oper.AskNameFromTag(camObjectTag, ToolPathName)
    7 U1 Q9 J6 Z1 q! _$ i6 w% _
96.         Return ToolPathName
    ' F) r- Q7 y5 ]+ S% W; L/ p/ ~5 H/ d4 @
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
     ! G2 E# @! q3 ?  z  {6 J) O% m
102.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
103.         theUFSession.Obj.AskName(ToolTag, ToolName)
     0 [! v' z( P, @
104.         Return ToolName
     
105.     End Function
     5 w& F5 a( r8 J6 E3 _; V, i
106.     '获取刀具号码
     , Y2 c1 D5 c! F4 C
107.     Function GetToolNumber(ByVal camObjectTag As NXOpen.Tag) As Integer
     " u: D, ~, N. j5 c, F
108.         Dim ToolTag As NXOpen.Tag
     
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
     
114.     '获取刀具长度
     $ ?8 j5 v$ i) F6 N) c  d* L% T
115.     Function GetToolHeight(ByVal camObjectTag As NXOpen.Tag) As Double
     & ?0 i4 r( c" a: A* l4 X
116.         Dim ToolTag As NXOpen.Tag
     . C! v" S  }; \5 A% {# g- S
117.         Dim ToolHeight As Double
     
118.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     3 j1 I9 x! V! s0 C. N$ ]: U' a  D, f
119.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_HEIGHT, ToolHeight)
     
120.         Return ToolHeight
     
121.     End Function
     5 x, D8 A, d! D/ j1 f
122.     '获取刀具直径
     ( |  N' Q2 B3 |/ E/ Y" D
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/ h9 h+ i8 P3 i: o# l7 |
134.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     ! _6 p- z' U1 f( ]
135.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_FLUTE_LN, ToolFluteLength)
     ' M2 M1 {1 K: S& U
136.         Return ToolFluteLength
     
137.     End Function
     
138.     '获取刀具R角
     6 D, q5 u9 g6 P3 E
139.     Function GetToolCornerRadius(ByVal camObjectTag As NXOpen.Tag) As Double
     
140.         Dim ToolTag As NXOpen.Tag
     & }$ R8 _; l# G& K; J% j/ t
141.         Dim ToolCornerRadius As Double
     
142.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     3 U3 A" a& m0 r+ C1 b* v/ b( ~
143.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_COR1_RAD, ToolCornerRadius)
     * j% O: N& P4 ^6 i" H
144.         Return ToolCornerRadius
     : S8 s8 Z# V/ O0 L
145.     End Function
     
146.     '取部件侧部余量
     
147.     Function GetStockPart(ByVal camObjectTag As NXOpen.Tag) As Double
     3 R, V* I" v: O. D2 @
148.         Dim StockPart As Double
     
149.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_STOCK_PART, StockPart)
     
150.         Return StockPart
     3 \( O9 ]0 \' M  Q
151.     End Function
     
152.     '取部件底部余量
     
153.     Function GetStockFloor(ByVal camObjectTag As NXOpen.Tag) As Double
     2 j* a2 a% M# e: P
154.         Dim Stockfloor As Double
     
155.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_STOCK_FLOOR, Stockfloor)
     % D9 T5 Q7 K; c! A! X
156.         Return Stockfloor
     4 E6 ~7 D$ o2 I  }3 U
157.     End Function
     - Q. s' u! w. z& G
158. 
     ' h8 l! q7 p; [
159.     '取主轴转速
     
160.     Function GetSpeedValue(ByVal camObjectTag As NXOpen.Tag) As Double
     
161.         Dim SpeedVale As Double
     5 d0 H( L* i: g5 _
162.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_SPINDLE_RPM, SpeedVale)
     
163.         Return SpeedVale
     8 \& l$ |4 ^* G- @
164.     End Function
     
165.     '取进给速度
     ( j: g9 ~; ~) R3 B
166.     Function GetFeedValue(ByVal camObjectTag As NXOpen.Tag) As Double
     
167.         Dim FeedValue As Double
     ) X8 a9 }$ r  d! M
168.         Dim _camObject As NXObject = NXObjectManager.Get(camObjectTag)
     & i" H/ P9 X0 M! k
169.         Dim params(0) As CAM.Operation
     
170.         params(0) = CType(_camObject, Operation)
     4 C. \! X0 Q  _
171.         Dim FeedsBuilder1 As ObjectsFeedsBuilder = theSession.Parts.Work.CAMSetup.CreateFeedsBuilder(params)
     * B1 @& s& B; O2 J% x2 N
172.         FeedValue = FeedsBuilder1.FeedsBuilder.FeedCutBuilder.Value
     
173.         FeedsBuilder1.Destroy()
     6 f- }( c, N7 N
174.         Return FeedValue
     
175.     End Function
     ! j* L1 u  o1 n% \3 B8 \3 K
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. 
     
183.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     9 o4 l$ a. W, ^
184. 
     
185.         'Unloads the image immediately after execution within NX
     
186.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
     
187. 
     
188.         '----Other unload options-------
     6 R0 q8 E' [& g6 q& r$ J0 n- c
189.         'Unloads the image when the NX session terminates
     
190.         'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     
191. 
     ) ]4 g, a4 P- I% P- ~
192.         'Unloads the image explicitly, via an unload dialog
     7 R$ U+ F* `. E5 r' L0 m
193.         'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
     
194.         '-------------------------------
     7 p2 e; k% R; M, B
195. 
     1 L. D2 j, B, Y6 f: Q' s
196.     End Function
     , f. c' H* N* Y. [
197. 
     ( o: K9 y, [3 a
198. 
     6 `5 Y8 s  T6 G# P3 _/ H
199. End Module
     
200. 
     
201. Public Class MY_EXCEL
     
202.     Private app As Object
     
203.     Private book As Object
     
204.     Private sheet As Object
     
205.     '表格名称
     ; r0 B6 f/ |/ b" s# }
206.     Public Property xlSheetName() As String
     
207.         Get
     2 ~, {  m, Y7 {) P
208.             Return sheet.Name
     
209.         End Get
     & o( i9 r8 h) m% K  g( v
210.         Set(ByVal value As String)
     
211.             sheet.Name = value
     7 x9 }' C- y& F
212.         End Set
     
213.     End Property
     
214.     '新建程序
     
215.     Public Function Create() As Boolean
     
216.         app = CreateObject("Excel.Application")
     
217.         If app Is Nothing Then
     % X0 N8 f3 ~7 L' z! L1 @
218.             Return False
     # J1 d" g. g# ?- k
219.         Else
     + d! F0 Y# j8 J" p/ h0 c  n
220.             app.Visible = True
     / T) S# i, t$ K5 s7 N. f8 K6 f1 g
221.             Return True
     
222.         End If
     
223.     End Function
     
224.     '打开文件
     2 {/ p; ]" ]3 w% E4 a" w% m
225.     Public Sub Open(ByVal xlFileName As String)
     
226.         book = app.Workbooks.Open(xlFileName)
     
227.         sheet = book.ActiveSheet
     
228.     End Sub
     
229.     '写单元格
     1 \! }5 g) A: |, R
230.     Public Sub Write(ByVal _Range As String, ByVal value As Object)
     2 J/ Q$ B8 Z/ N  C3 v5 W
231.         If _Range <> "" Then
     # @" p' Z* J* h
232.             sheet.Range(_Range).Value = value
     $ j+ J+ v$ c8 R% e/ ]8 f( e
233.         End If
     
234.     End Sub
     , p1 X4 ]8 ~. A" j- e* m) t/ j* Y: w/ |
235.     '插入图片
     0 O6 \. Y) n  m
236.     Public Sub InsertPicture(ByVal _Range As String, ByVal imageFile As String)
     ( K, k+ J9 e0 B& u
237.         If _Range <> "" Then
     4 g) s: A& T# e) K
238.             Dim ExcelRange As Object = sheet.Range(_Range)
     / H, D; B) V; z. ]9 p  X
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)
     7 D6 G3 U% l. D: ~
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()
     
246.         End If
     + v% u; a& c- W: f" y3 N
247.     End Sub
     
248.     '取指定单元格值
     
249.     Public Function GetValue(ByVal _table As Integer, ByVal _Range As String) As String
     ; r% Z5 e, n) F" N7 X$ ~! `6 H
250.         Dim sheet As Object = book.Sheets.Item(_table)
     9 L, f7 m1 K+ l/ ~
251.         Return sheet.Range(_Range).value
     $ M0 u6 v8 u4 z- o( @+ A3 w
252.     End Function
     
253.     Public Function Save() As Boolean
     
254.         book.Save()
     ' {$ _$ w" |$ D, S
255.     End Function
     4 D- \7 Q" R$ c( h$ H
256.     Public Function SaveAs() As Boolean
     9 U& O3 B8 x/ O
257.         Dim Sdlg As SaveFileDialog = New SaveFileDialog '定义一个保存对话框
     % K. ~6 d; a) B' O0 D
258.         Sdlg.FileName = AskDisplatyPartName() + "加工工序单.xls" '保存对话框的默认文件名
     & A0 l0 m, i, A* @6 y
259.         Sdlg.Filter = "EXCEL档案(*.xls)|*.xls" '过滤器设置
     , e9 S+ h. E; k# @3 s+ |
260.         If Sdlg.ShowDialog = Windows.Forms.DialogResult.OK Then '如果保存对话框的确认按钮被按下
     
261.             book.SaveAs(Sdlg.FileName) '保存文件
     5 m+ d& K$ G, G, o
262.         End If
     
263.     End Function
     
264.     '结束EXCEL对象
     
265.     Public Function Quit() As Boolean
     
266.         book.close()
     * p8 Q  |4 M5 t% z5 \
267.         app.Quit()
     
268.         app = Nothing
     ! s& _) d+ ^& _+ ], B1 k4 Q& I" c
269.         GC.Collect()
     
270.     End Function
     # |% O2 }3 Y# t3 L: p4 ?: ~
271. 
     
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)
     # ?" O  a6 x+ ^5 E& U1 r& J
275.         Dim rowvalue As String = sheet.Range(_Row).value
     
276.         Dim cellvalue As String = sheet.Range(_Cell).value
     ( R6 U: t9 E6 h% ~; p3 {" E" f+ m
277.         Dim k As Integer = 0
     
278.         If rowvalue <> "" And cellvalue <> "" Then
     # W) U2 J8 `% f% c5 Z/ o8 c2 O& P
279.             Dim rowstr() As String = Split(rowvalue, "/")
     2 A' Q; \; g/ S1 U0 q3 K* f5 A& V: w- S
280.             Dim cellstring() As String = Split(cellvalue, "/")
     
281.             Dim a, b, c, d As Integer
     8 M6 [6 A' Y' w3 ~& _, J# H# S
282.             If rowstr.Length > 1 And cellstring.Length > 0 Then
     8 T+ T3 |9 g' ?
283.                 a = Convert.ToInt32(rowstr(0))
     
284.                 b = Convert.ToInt32(rowstr(1))
     
285.                 If a > 0 And b > a Then
     ( f0 [4 d, {8 L, f7 J
286.                     ReDim Preserve ArryString(b - a)
     : n3 y. V3 A! J6 p9 F
287.                     For i As Integer = 0 To b - a
     0 s/ k' N, @$ d8 `; U2 f
288.                         ArryString(i) = cellstring(0) & Convert.ToString(a + i)
     
289.                         k += 1
     7 U$ p3 `6 e1 m6 w, M, y" I
290.                     Next
     
291.                     If rowstr.Length > 3 And cellstring.Length > 1 Then
     : ~4 D& n" o8 `
292.                         c = Convert.ToInt32(rowstr(2))
     $ ]2 K% r+ n$ ~. \% h2 o# [
293.                         d = Convert.ToInt32(rowstr(3))
     
294.                         If c > 0 And d > c Then
     ! C3 h# o* k2 w: ~; P, a0 c* Y
295.                             ReDim Preserve ArryString(b - a + d - c + 1)
     
296.                             For j As Integer = 0 To d - c
     # }1 j7 A7 M: f7 @) s) p( I
297.                                 ArryString(b - a + j + 1) = cellstring(1) & Convert.ToString(c + j)
     
298.                                 k += 1
     : r; h9 k, ]0 ~' k( C+ V
299.                             Next
     . w& @, e/ x; O1 @! Q$ [9 _9 d
300.                         End If
     
301.                     End If
     
302.                 End If
     8 W+ Z$ o0 e( k& t, N8 A7 a3 V
303.             End If
     
304.         End If
     ' E9 u! l% K2 O* \& Z8 L( Y
305.         Return k
     
306.     End Function
     
307. End Class

复制代码

& U  R5 g8 }8 u0 t# R; h; ?  K( ]
, @8 j5 {* s  k# F  M& |