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

admin

+ x0 m, L! T* V" [! T

1. Option Strict Off
   8 o' K, }. j9 U3 ~0 m  W1 u
2. Imports System
   
3. Imports System.IO
   ( m8 m. |* o. B/ Y/ U: c7 h
4. Imports NXOpen
   
5. Imports NXOpen.CAM
   
6. Imports NXOpen.UF
   
7. Imports NXOpen.Utilities
   - g1 o$ j7 y# r# K9 M
8. Imports System.Drawing
   
9. Imports System.Windows.Forms
   
10. 
    : r$ W4 H# e' ~2 L5 t
11. Module Module1
    
12.     Dim theSession As Session = Session.GetSession()
    ) [4 `: x9 m: [) q3 w# h  T
13.     Dim myUI As UI = UI.GetUI()
    
14.     Dim theUFSession As UFSession = UFSession.GetUFSession()
    
15.     Dim theWorkPart As Part = theSession.Parts.Work
    
16. 
    8 p3 q" ?" F7 J( O6 n9 U
17.     Dim mytag() As NXOpen.Tag '选择的加工操作标记数组
    
18.     Dim mcount As Integer '选择的加工操作数量
    * Y) j# f( [# y3 l; T4 M
19. 
    
20.     Sub Main()     
    6 M5 O( ^* _2 U5 J" q6 b% F
21. 
    : \3 x$ O- s( G+ M7 ]& ?& [
22.         Shell(Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\SnapPic.exe", AppWinStyle.NormalFocus, True)
    / V0 k0 K  K6 r
23. 
    
24.         Try
    ) G* `% [: k' \0 e
25.             '获取选择的操作数
    % H7 \1 o5 f' m! \! @0 V' U
26.             theUFSession.UiOnt.AskSelectedNodes(mcount, mytag)
    $ Z  O2 k1 R, }3 ~* \# D; u
27.             If mcount = 0 Then
    * U# H  e4 h9 a6 K. V( G) e
28.                 MsgBox("没有选择加工操作!", MsgBoxStyle.OkOnly, "提示信息")
    
29.                 Exit Sub
    * s; I4 K4 \' s- H% E; h7 E. l
30.             End If
    
31. 
    ! t1 X' @( G7 B: C& V5 \
32.             '设置车间文档EXCEL模板路径
    
33.             Dim fp As String = Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\WorkShop.xls"
    8 z, n5 f& Q: ?7 Y, Z* Q+ b& r1 _
34.             '打开与写出车间文档
    
35.             If String.IsNullOrEmpty(fp) = False Then
    
36.                 Dim myExcel As New MY_EXCEL
    
37.                 myExcel.Create()
    
38.                 myExcel.Open(fp)
    $ D: Y$ h3 w" \/ n
39.                 myExcel.Write("M4", AskDisplatyPartName())
    4 {; _2 }& ^! R$ k3 k7 C
40.                 myExcel.Write("S4", Format(Now, "yyyy/MM/dd"))
    - x2 b' v( Y. r: l- {# X, `2 T) V
41.                 myExcel.InsertPicture("b4", Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\jietu.jpg")
    6 M( h9 {6 u) ?. P! i
42.                 For i = 0 To mcount - 1
    
43.                     '输出结果
    
44.                     myExcel.Write("B" + (i + 17).ToString, (i + 1).ToString)
    
45.                     myExcel.Write("D" + (i + 17).ToString, GetGemoGroup_Name(mytag(i)))
    6 Y" [! `* s" `1 B
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)
    - X+ F* S7 x0 B
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)
    
52.                     myExcel.Write("K" + (i + 17).ToString, GetToolFluteLength(mytag(i)).ToString)
    ) a3 Q0 H, f. @' J- |
53.                     myExcel.Write("L" + (i + 17).ToString, GetStockPart(mytag(i)).ToString)
    ; H+ p5 z) t+ F- L
54.                     myExcel.Write("M" + (i + 17).ToString, GetStockFloor(mytag(i)).ToString)
    
55.                     myExcel.Write("N" + (i + 17).ToString, GetSpeedValue(mytag(i)).ToString)
    4 {0 u2 V# T* g
56.                     myExcel.Write("O" + (i + 17).ToString, GetFeedValue(mytag(i)).ToString)
    * d- j+ U, E9 k8 o) u
57.                     myExcel.Write("Q" + (i + 17).ToString, CInt(GeTCutTime(mytag(i))).ToString)
    
58. 
    ' P# a$ `4 L, K- h$ O+ k
59.                 Next
    
60.                 myExcel.SaveAs()
    
61.                 'myExcel.Quit()
    & {: l) `3 N! c1 o9 K3 ^
62.             End If
    
63.             '出错处理：
    4 P7 A' F; N: h
64.         Catch ex As Exception
    7 a* z. c& X3 S. c
65.             MsgBox(ex)
    % ~, @6 ^+ z  Q( j
66.         End Try
    + ]6 A) D7 m/ s5 T7 J; h+ F5 o) X
67. 
    % V* J* N8 R6 w5 f+ E/ |9 b
68.     End Sub
    , A  t. b9 e; u! {8 |
69.     '当前文档文件名
    
70.     Function AskDisplatyPartName() As String
    3 o$ Y6 \/ i# E4 _2 f  E
71.         Dim UFS As UFSession = UFSession.GetUFSession()
    ) J9 S$ p* l. Y* ^
72.         Dim part_name As String = ""
    % K* `. E4 B  T2 L: T: K
73.         Dim part_tag As NXOpen.Tag = UFS.Part.AskDisplayPart
    
74.         UFS.Part.AskPartName(part_tag, part_name)
    ! e2 }7 H4 O! D
75.         Dim aa() As String
    0 g/ L' Z/ t8 ^2 u8 ]% I  r% }
76.         Dim bb() As String
    9 }7 k; D& [/ j/ O" S  U
77.         aa = Split(part_name, ".prt")
    . K9 E8 v+ o2 O/ A4 p# ?
78.         part_name = aa(0)
    - J" \- y! g8 i- I/ w
79.         bb = Split(part_name, "")
    
80.         part_name = bb(bb.Length - 1)
    
81.         Return part_name
    ; ]* H& b" e7 s+ `- l
82.     End Function
    $ X+ p) Z8 G# k- b6 w
83.     '取加工几何试图程序组
    2 @2 l" R4 T- X* {  H! o5 ]/ M
84.     Function GetGemoGroup_Name(ByVal camObjectTag As NXOpen.Tag) As String
    
85.         Dim theGemoGroup_Tag As NXOpen.Tag
    
86.         Dim GemoGroupName As String = ""
    
87.         theUFSession.Oper.AskGeomGroup(camObjectTag, theGemoGroup_Tag)
    
88.         theUFSession.Obj.AskName(theGemoGroup_Tag, GemoGroupName)
    
89.         Return GemoGroupName
    : g- t7 \% H4 B# ^. s+ R0 {" v
90.     End Function
    
91. 
    
92.     '取操作名称
    
93.     Function GetToolPathName(ByVal camObjectTag As NXOpen.Tag) As String
    2 r& K7 |! ]: ~, \) e3 S
94.         Dim ToolPathName As String = ""
    , i$ ^& t6 T$ c9 N, z7 T
95.         theUFSession.Oper.AskNameFromTag(camObjectTag, ToolPathName)
    
96.         Return ToolPathName
    5 ~+ G8 C5 O! K
97.     End Function
    
98.     '获取刀具名称
    - j3 o% h4 `+ P9 }* r" A5 @+ Q
99.     Function GetToolName(ByVal camObjectTag As NXOpen.Tag) As String
    
100.         Dim ToolName As String = ""
     * e5 l  f4 k' \5 k  B
101.         Dim ToolTag As NXOpen.Tag
     4 P0 S2 `- b& `9 F
102.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
103.         theUFSession.Obj.AskName(ToolTag, ToolName)
     $ M6 }9 e! P1 |7 }
104.         Return ToolName
     1 K8 }- }$ g$ g/ b4 r" R& w
105.     End Function
     7 e: h4 {* u5 ]
106.     '获取刀具号码
     
107.     Function GetToolNumber(ByVal camObjectTag As NXOpen.Tag) As Integer
     1 ?/ z  e5 |% f9 U
108.         Dim ToolTag As NXOpen.Tag
     
109.         Dim ToolNumber As Integer
     3 C" E* _  F- v9 o" q
110.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     2 N2 R# j" ^' c9 S
111.         theUFSession.Param.AskIntValue(ToolTag, UFConstants.UF_PARAM_TL_NUMBER, ToolNumber)
     * o# ~/ g7 z% h
112.         Return ToolNumber
     / I1 B& g  G7 [* {' q, C
113.     End Function
     / x/ ?" f" P) B
114.     '获取刀具长度
     7 H7 H) k+ n! y$ ]" V# h" P
115.     Function GetToolHeight(ByVal camObjectTag As NXOpen.Tag) As Double
     
116.         Dim ToolTag As NXOpen.Tag
     , T/ E6 u# R" {; a1 o& F7 c' J
117.         Dim ToolHeight As Double
     1 B% m; P. {7 r( ]) H+ k" o
118.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     / |( V  S* }; g# G" a
119.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_HEIGHT, ToolHeight)
     . H# v* B5 z4 Y/ \6 c
120.         Return ToolHeight
     
121.     End Function
     8 x% r0 C1 [* H/ B1 g3 V! N
122.     '获取刀具直径
     ' X. @. H* F9 J; o  x2 W- l
123.     Function GetToolDiameter(ByVal camObjectTag As NXOpen.Tag) As Double
     8 c3 N0 F& o! T! s( f+ 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)
     - z2 V9 H0 B; v2 x& @- U
128.         Return ToolDiameter
     
129.     End Function
     - W6 ~4 ~& \6 `/ d3 P. m9 e
130.     '获取刀具刃长
     
131.     Function GetToolFluteLength(ByVal camObjectTag As NXOpen.Tag) As Double
     
132.         Dim ToolTag As NXOpen.Tag
     . U4 D3 ?9 J6 ~- D" q+ G/ `( {
133.         Dim ToolFluteLength As Double
     ! C- z. A( r7 y  _/ X
134.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
135.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_FLUTE_LN, ToolFluteLength)
     9 t! N, B8 @, B! T8 q1 n
136.         Return ToolFluteLength
     * X, k. b: h0 f0 P8 z+ C* J
137.     End Function
     # J7 d- L$ q* Q
138.     '获取刀具R角
     
139.     Function GetToolCornerRadius(ByVal camObjectTag As NXOpen.Tag) As Double
     
140.         Dim ToolTag As NXOpen.Tag
     
141.         Dim ToolCornerRadius As Double
     " R4 S, o4 M7 q: 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.     '取部件侧部余量
     & D4 ?- \* {) P: |" S& A# L3 f3 n
147.     Function GetStockPart(ByVal camObjectTag As NXOpen.Tag) As Double
     # S  s6 z$ K9 @. l) v
148.         Dim StockPart As Double
     % v4 P# R7 B6 @, {* {$ E- E6 ]" q
149.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_STOCK_PART, StockPart)
     
150.         Return StockPart
     9 h9 S' h( \* s% K8 e  w
151.     End Function
     
152.     '取部件底部余量
     
153.     Function GetStockFloor(ByVal camObjectTag As NXOpen.Tag) As Double
     
154.         Dim Stockfloor As Double
     / u7 ?# o$ A; s0 T
155.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_STOCK_FLOOR, Stockfloor)
     
156.         Return Stockfloor
     
157.     End Function
     ! @' L. ^6 C' E, [% J
158. 
     / a7 m' E9 {4 o5 L3 [! ]
159.     '取主轴转速
     
160.     Function GetSpeedValue(ByVal camObjectTag As NXOpen.Tag) As Double
     4 e3 k8 h2 j2 I2 P/ S
161.         Dim SpeedVale As Double
     
162.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_SPINDLE_RPM, SpeedVale)
     
163.         Return SpeedVale
     
164.     End Function
     
165.     '取进给速度
     ( a; q6 v! S, k9 l
166.     Function GetFeedValue(ByVal camObjectTag As NXOpen.Tag) As Double
     
167.         Dim FeedValue As Double
     / D/ V- v' i; E& c% s8 R! R
168.         Dim _camObject As NXObject = NXObjectManager.Get(camObjectTag)
     2 m: r8 \2 {$ ?- i+ ?
169.         Dim params(0) As CAM.Operation
     8 B+ M/ k( h) D+ s# J) C; o
170.         params(0) = CType(_camObject, Operation)
     , S$ x+ L( N3 y  b3 J/ Q+ @
171.         Dim FeedsBuilder1 As ObjectsFeedsBuilder = theSession.Parts.Work.CAMSetup.CreateFeedsBuilder(params)
     8 n2 g$ A, u6 Q; {- l6 j
172.         FeedValue = FeedsBuilder1.FeedsBuilder.FeedCutBuilder.Value
     
173.         FeedsBuilder1.Destroy()
     
174.         Return FeedValue
     
175.     End Function
     
176.     '取切削时间
       L, K3 h( ^4 C$ |7 d2 J
177.     Function GetCutTime(ByVal camObjectTag As NXOpen.Tag) As Double
     0 i" u; K8 \4 t, h
178.         Dim CutTime As Double
     
179.         theUFSession.Param.AskDoubleValue(camObjectTag, 142, CutTime)
     
180.         Return CutTime
     
181.     End Function
     3 p2 o; B- c. r: \- u0 j
182. 
     
183.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     
184. 
     , h7 Q" W; E9 H, U
185.         'Unloads the image immediately after execution within NX
     
186.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
     
187. 
       A: |4 {8 {2 G' _
188.         '----Other unload options-------
     
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
     * l& C3 K! l, a, [4 n8 n) l# K& X6 H
193.         'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
     ) O6 t' e* A  K' H7 G: w7 U. I
194.         '-------------------------------
     1 [. p6 z3 [6 T$ J6 t
195. 
     
196.     End Function
     
197. 
     
198. 
     " u7 E- I) N* R: q+ G& Z
199. End Module
     
200. 
     
201. Public Class MY_EXCEL
     * |2 E7 s3 s  Y4 B0 e
202.     Private app As Object
     
203.     Private book As Object
     2 s7 J' v7 f' D
204.     Private sheet As Object
     9 p% t, b$ i5 \6 k0 k
205.     '表格名称
     8 V3 d- y8 ]7 `+ G* }1 h  w$ z
206.     Public Property xlSheetName() As String
     
207.         Get
     
208.             Return sheet.Name
     
209.         End Get
     2 K5 i! B8 j; \, x3 _' U
210.         Set(ByVal value As String)
     
211.             sheet.Name = value
     
212.         End Set
     ; z* R# }2 h4 Q8 r
213.     End Property
     2 Z/ g, ?$ o4 V- H6 v+ f/ q* Q
214.     '新建程序
     
215.     Public Function Create() As Boolean
     
216.         app = CreateObject("Excel.Application")
     
217.         If app Is Nothing Then
     
218.             Return False
     
219.         Else
     
220.             app.Visible = True
     
221.             Return True
     / c5 j% C$ \0 e) D$ w
222.         End If
     
223.     End Function
     
224.     '打开文件
     
225.     Public Sub Open(ByVal xlFileName As String)
     & u+ i# j5 A9 R/ s2 l
226.         book = app.Workbooks.Open(xlFileName)
     
227.         sheet = book.ActiveSheet
     , ~$ a0 n# G  |6 O+ W
228.     End Sub
     
229.     '写单元格
     
230.     Public Sub Write(ByVal _Range As String, ByVal value As Object)
     
231.         If _Range <> "" Then
     
232.             sheet.Range(_Range).Value = value
     , c7 ^& ]9 s3 n
233.         End If
     # v2 h7 t9 I% K% l- }
234.     End Sub
     
235.     '插入图片
     
236.     Public Sub InsertPicture(ByVal _Range As String, ByVal imageFile As String)
     % I# r* ^' \4 R5 m: b+ {
237.         If _Range <> "" Then
     + z: ~7 g( p) }+ q/ o$ X" Q
238.             Dim ExcelRange As Object = sheet.Range(_Range)
     
239.             Dim Ins_image As Image
     + Q7 G+ t/ f. ]
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)
     
243.             Dim ScaleHW As Double = Math.Min(HeightScale, WidthScale)
     % {- }# @" r6 f% A, S" t1 ]
244.             sheet.Shapes.AddPicture(imageFile, 0, 1, ExcelRange.Left + 2, ExcelRange.Top + 2, Ins_image.Width * ScaleHW, Ins_image.Height * ScaleHW)
       x/ l3 e: ^* x6 k9 V
245.             Ins_image.Dispose()
     
246.         End If
     3 C: R& i# O/ h1 O5 J# M3 _  J5 h
247.     End Sub
     7 u4 x5 b0 A, J* m& l7 R
248.     '取指定单元格值
     1 u" c* P/ C' b) G, @1 {
249.     Public Function GetValue(ByVal _table As Integer, ByVal _Range As String) As String
     0 Y$ [5 d2 F3 c( Y
250.         Dim sheet As Object = book.Sheets.Item(_table)
     ) s' G. ?9 W! H
251.         Return sheet.Range(_Range).value
     & L0 g+ B; `9 i# _/ \; _* ~
252.     End Function
     7 R8 }+ e3 P/ r% _& g
253.     Public Function Save() As Boolean
     3 Q5 `6 l: g7 ?3 @( O) L2 q
254.         book.Save()
     
255.     End Function
     ( Z( }+ C/ T: _; Z
256.     Public Function SaveAs() As Boolean
     
257.         Dim Sdlg As SaveFileDialog = New SaveFileDialog '定义一个保存对话框
     
258.         Sdlg.FileName = AskDisplatyPartName() + "加工工序单.xls" '保存对话框的默认文件名
     
259.         Sdlg.Filter = "EXCEL档案(*.xls)|*.xls" '过滤器设置
     9 W* Z6 {# m- y8 p2 A# W
260.         If Sdlg.ShowDialog = Windows.Forms.DialogResult.OK Then '如果保存对话框的确认按钮被按下
     
261.             book.SaveAs(Sdlg.FileName) '保存文件
     
262.         End If
     
263.     End Function
     ! O$ J5 `2 L3 g$ l8 h0 H' R; N
264.     '结束EXCEL对象
     . G) L3 V7 N' K
265.     Public Function Quit() As Boolean
     
266.         book.close()
     
267.         app.Quit()
     : L; x- h- h+ q5 p
268.         app = Nothing
     - ^7 [# K& x0 i% T5 O
269.         GC.Collect()
     
270.     End Function
     ' \2 ^' I# g, B
271. 
     , `* |4 O4 |' O0 _: m( c
272.     '取数组
     
273.     Public Function GetArryValue(ByRef _table As Integer, ByVal _Row As String, ByVal _Cell As String, ByRef ArryString() As String) As Integer
     ! t& N+ ]/ c# W7 ]
274.         Dim sheet As Object = book.Sheets.Item(_table)
     
275.         Dim rowvalue As String = sheet.Range(_Row).value
     4 l$ `  m) g9 q
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
     - u9 |) j; f7 w4 Z7 n" X) L" m
282.             If rowstr.Length > 1 And cellstring.Length > 0 Then
     / a' x0 O# r0 C; @) G( u
283.                 a = Convert.ToInt32(rowstr(0))
     
284.                 b = Convert.ToInt32(rowstr(1))
     6 p, U$ W; M2 f" M/ l' h
285.                 If a > 0 And b > a Then
     
286.                     ReDim Preserve ArryString(b - a)
     % w# n: ~& ~6 g+ U) t( H) J
287.                     For i As Integer = 0 To b - a
     . R3 H: g: ~( K
288.                         ArryString(i) = cellstring(0) & Convert.ToString(a + i)
     
289.                         k += 1
     " k. G& P! |  a1 U
290.                     Next
     
291.                     If rowstr.Length > 3 And cellstring.Length > 1 Then
     , H0 N3 o, [# Q2 R2 J% q
292.                         c = Convert.ToInt32(rowstr(2))
     , U, U8 D# }  g! c9 ?
293.                         d = Convert.ToInt32(rowstr(3))
     
294.                         If c > 0 And d > c Then
     , f: B: M. c) q9 D& L1 ?& P
295.                             ReDim Preserve ArryString(b - a + d - c + 1)
     
296.                             For j As Integer = 0 To d - c
       l% S- G# m$ R; W. k' u
297.                                 ArryString(b - a + j + 1) = cellstring(1) & Convert.ToString(c + j)
     
298.                                 k += 1
     
299.                             Next
     5 h. o# V4 Z5 h3 _3 b# N( [- ^
300.                         End If
     1 g- l2 l: B6 y* k. G" m
301.                     End If
     
302.                 End If
     
303.             End If
     
304.         End If
     
305.         Return k
     
306.     End Function
     
307. End Class

复制代码

6 P5 @  K- [9 ^: P8 v
0 K$ o1 M. d, l2 A3 e$ B: ]* @