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

admin

* D% R8 C' ?, d4 n0 u/ a! }! l

) a: S" X# {& l) X4 x8 V

1. Option Strict Off
   
2. Imports System
   
3. Imports System.IO
   
4. Imports NXOpen
   
5. Imports NXOpen.CAM
   ; p8 C" b- [2 f+ Q0 c4 f( @
6. Imports NXOpen.UF
   
7. Imports NXOpen.Utilities
   
8. Imports System.Drawing
   
9. Imports System.Windows.Forms
   
10. 
    
11. Module Module1
    
12.     Dim theSession As Session = Session.GetSession()
    
13.     Dim myUI As UI = UI.GetUI()
    
14.     Dim theUFSession As UFSession = UFSession.GetUFSession()
    ; z* O1 l3 c2 A; i# t: w- @6 b' n+ D
15.     Dim theWorkPart As Part = theSession.Parts.Work
    
16. 
    - A( H0 g# i- i0 r0 r
17.     Dim mytag() As NXOpen.Tag '选择的加工操作标记数组
    1 T/ X* b) [2 |9 r# m8 r
18.     Dim mcount As Integer '选择的加工操作数量
    
19. 
    3 w6 z& e; e& l5 L3 A
20.     Sub Main()     
    
21. 
    
22.         Shell(Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\SnapPic.exe", AppWinStyle.NormalFocus, True)
    
23. 
    
24.         Try
    ' M" {- s" A2 P( p! W2 _" `' Z$ v0 s/ i
25.             '获取选择的操作数
    ! h' }$ |+ k- P* u& e! K; L; x
26.             theUFSession.UiOnt.AskSelectedNodes(mcount, mytag)
    $ N: p; O4 `& N; q7 n+ n& i
27.             If mcount = 0 Then
    4 q; t9 F% a1 K& Q( o! }: z
28.                 MsgBox("没有选择加工操作!", MsgBoxStyle.OkOnly, "提示信息")
    / C. X! k) v7 h7 ]" f* u% q
29.                 Exit Sub
    ; R. C/ Z3 n, V6 ~; K% \4 s
30.             End If
    : p0 i+ X  C( }. \) ^6 t
31. 
    4 l6 M3 {1 n/ e/ j# D$ Q  e0 J! g
32.             '设置车间文档EXCEL模板路径
    
33.             Dim fp As String = Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\WorkShop.xls"
    $ y, d) L7 _* }+ t/ W  l$ k
34.             '打开与写出车间文档
    ' _2 f. T- d: V& t7 L; [. @% e
35.             If String.IsNullOrEmpty(fp) = False Then
    : K. X: t$ W0 n  d" V) u. U9 O( ^# f
36.                 Dim myExcel As New MY_EXCEL
    
37.                 myExcel.Create()
    6 s! o+ E6 O( p: L' O% q
38.                 myExcel.Open(fp)
    9 a2 Q0 }9 ?' o: x
39.                 myExcel.Write("M4", AskDisplatyPartName())
    
40.                 myExcel.Write("S4", Format(Now, "yyyy/MM/dd"))
    5 L  u% @* Q) q" u. |
41.                 myExcel.InsertPicture("b4", Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\jietu.jpg")
    
42.                 For i = 0 To mcount - 1
    
43.                     '输出结果
    + g# ~" T: j0 I" m, g) Z, P
44.                     myExcel.Write("B" + (i + 17).ToString, (i + 1).ToString)
    . v, U* f/ k1 F) Z- j
45.                     myExcel.Write("D" + (i + 17).ToString, GetGemoGroup_Name(mytag(i)))
    
46.                     myExcel.Write("E" + (i + 17).ToString, GetToolPathName(mytag(i)))
    - o$ Z0 l7 v9 R3 K( t
47.                     myExcel.Write("F" + (i + 17).ToString, GetToolName(mytag(i)))
    * h, g7 u" w' g9 T9 B
48.                     myExcel.Write("G" + (i + 17).ToString, GetToolNumber(mytag(i)).ToString)
    ) p; s5 t4 E5 ^* f9 e
49.                     myExcel.Write("H" + (i + 17).ToString, GetToolDiameter(mytag(i)).ToString)
    - B+ M' _: I1 B( X. g+ h1 g
50.                     myExcel.Write("I" + (i + 17).ToString, GetToolCornerRadius(mytag(i)).ToString)
    3 R3 i9 ~) ~5 v( K7 }- W# W
51.                     myExcel.Write("J" + (i + 17).ToString, GetToolHeight(mytag(i)).ToString)
    ! i( A$ J' l4 c0 L2 }. c8 H& V# u
52.                     myExcel.Write("K" + (i + 17).ToString, GetToolFluteLength(mytag(i)).ToString)
    4 C/ j. a: B4 _3 ^8 {* t: B) ]
53.                     myExcel.Write("L" + (i + 17).ToString, GetStockPart(mytag(i)).ToString)
    ( c" A! w; V/ ?4 ^# n, U
54.                     myExcel.Write("M" + (i + 17).ToString, GetStockFloor(mytag(i)).ToString)
    + ?  k3 s- Z2 Z' M
55.                     myExcel.Write("N" + (i + 17).ToString, GetSpeedValue(mytag(i)).ToString)
    7 Y) I$ B; A6 V/ q+ O9 F' x
56.                     myExcel.Write("O" + (i + 17).ToString, GetFeedValue(mytag(i)).ToString)
    
57.                     myExcel.Write("Q" + (i + 17).ToString, CInt(GeTCutTime(mytag(i))).ToString)
    
58. 
    
59.                 Next
    $ v4 y' A2 T: n- Z# T
60.                 myExcel.SaveAs()
    $ c1 d! t7 G3 j4 q! Q. l' v
61.                 'myExcel.Quit()
    & g2 s* W) n( X7 Y! x
62.             End If
    + h, f2 q7 }$ C
63.             '出错处理：
    . N) O" r5 k. ?0 p/ M
64.         Catch ex As Exception
    
65.             MsgBox(ex)
    
66.         End Try
    4 m4 p; U3 U' \9 {1 y
67. 
    # b- V* }- v) S! g, t- m' e
68.     End Sub
    
69.     '当前文档文件名
    " d: G0 z* X' q) V
70.     Function AskDisplatyPartName() As String
    
71.         Dim UFS As UFSession = UFSession.GetUFSession()
    1 h# w/ h, L% H! P
72.         Dim part_name As String = ""
    " m. ^2 B1 M+ K
73.         Dim part_tag As NXOpen.Tag = UFS.Part.AskDisplayPart
    1 p. r( [2 l7 A& ?) T( a
74.         UFS.Part.AskPartName(part_tag, part_name)
    3 J' g2 q! a4 M  t0 ~6 W( G
75.         Dim aa() As String
    . R  V# X. x# k' `% _
76.         Dim bb() As String
    
77.         aa = Split(part_name, ".prt")
    
78.         part_name = aa(0)
    
79.         bb = Split(part_name, "")
    / @$ ^& x  j6 \. S; x
80.         part_name = bb(bb.Length - 1)
    
81.         Return part_name
    . `# o4 Q. m5 ?) M* h& W7 J
82.     End Function
    , g. G* a2 }' H( |8 M' A
83.     '取加工几何试图程序组
    
84.     Function GetGemoGroup_Name(ByVal camObjectTag As NXOpen.Tag) As String
    9 ?1 ~5 R. t! M8 i0 T$ `! I* m
85.         Dim theGemoGroup_Tag As NXOpen.Tag
    5 U* v$ v" n0 J# E
86.         Dim GemoGroupName As String = ""
    ( x' [5 [( }: L4 R
87.         theUFSession.Oper.AskGeomGroup(camObjectTag, theGemoGroup_Tag)
    
88.         theUFSession.Obj.AskName(theGemoGroup_Tag, GemoGroupName)
    5 z- ~. ]9 t" A; b" s# |4 D& ~5 E2 H
89.         Return GemoGroupName
    9 f1 A* m; X3 s5 ~3 F1 z: T  k3 c. G' }
90.     End Function
    
91. 
    
92.     '取操作名称
    
93.     Function GetToolPathName(ByVal camObjectTag As NXOpen.Tag) As String
    . p3 V6 x9 G& x7 X
94.         Dim ToolPathName As String = ""
    
95.         theUFSession.Oper.AskNameFromTag(camObjectTag, ToolPathName)
    
96.         Return ToolPathName
    
97.     End Function
    
98.     '获取刀具名称
    5 w- [( A' v+ f' e8 J" k6 S
99.     Function GetToolName(ByVal camObjectTag As NXOpen.Tag) As String
    
100.         Dim ToolName As String = ""
     
101.         Dim ToolTag As NXOpen.Tag
     
102.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
103.         theUFSession.Obj.AskName(ToolTag, ToolName)
     3 ]8 j3 K/ `% _- B+ h6 C; V7 z
104.         Return ToolName
     
105.     End Function
     4 z$ X6 v. p+ ]7 k1 f; T
106.     '获取刀具号码
     & D+ Q- Z. q5 ^
107.     Function GetToolNumber(ByVal camObjectTag As NXOpen.Tag) As Integer
     4 O- I# @' d  f0 l) q
108.         Dim ToolTag As NXOpen.Tag
     0 ^1 g1 y9 P) L+ t! H2 r
109.         Dim ToolNumber As Integer
     
110.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     % J  y1 F, a9 h' K. d3 b8 ~
111.         theUFSession.Param.AskIntValue(ToolTag, UFConstants.UF_PARAM_TL_NUMBER, ToolNumber)
     $ y3 ^5 p. y+ Q  Q- x4 N2 L
112.         Return ToolNumber
     2 \) O) J% k7 A6 h
113.     End Function
     0 K1 H  V5 W4 {+ `2 s" u$ q! a( K/ }
114.     '获取刀具长度
     ' c! t+ ~# _6 q5 z1 B, c4 H, y. g; ]) d
115.     Function GetToolHeight(ByVal camObjectTag As NXOpen.Tag) As Double
     ; m. c' Q6 W3 j# y& c" v. X
116.         Dim ToolTag As NXOpen.Tag
     , P% }2 s! l' }  t
117.         Dim ToolHeight As Double
     % ^" i/ o- N8 ?
118.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
119.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_HEIGHT, ToolHeight)
     # A, m( m" t) o$ _4 o, s  G( C
120.         Return ToolHeight
     7 T; x% x4 m9 q
121.     End Function
     6 x, o5 N: o: g2 l7 h3 D
122.     '获取刀具直径
     ! X/ l( N" |! z6 [: r1 E; m0 i
123.     Function GetToolDiameter(ByVal camObjectTag As NXOpen.Tag) As Double
     * }1 T7 [# ^) A
124.         Dim ToolTag As NXOpen.Tag
     
125.         Dim ToolDiameter As Double
     * A( t4 f6 ?3 G
126.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
127.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_DIAMETER, ToolDiameter)
     
128.         Return ToolDiameter
     
129.     End Function
     & L" z. t  x( E  R5 K) ~
130.     '获取刀具刃长
     # ?2 D) U/ d6 j+ _3 a- L5 L; [
131.     Function GetToolFluteLength(ByVal camObjectTag As NXOpen.Tag) As Double
     2 j! X  L* J9 l3 C
132.         Dim ToolTag As NXOpen.Tag
     
133.         Dim ToolFluteLength As Double
     
134.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
       X0 S: B2 g, g( g" |7 o3 \
135.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_FLUTE_LN, ToolFluteLength)
     
136.         Return ToolFluteLength
     
137.     End Function
     . S/ F1 s" Y6 Y% J" ~/ f: H+ _- Y
138.     '获取刀具R角
     5 Z% f7 M& f3 y" D
139.     Function GetToolCornerRadius(ByVal camObjectTag As NXOpen.Tag) As Double
     $ |( |7 s) ~* F4 F
140.         Dim ToolTag As NXOpen.Tag
     1 {8 @- |7 L+ T9 `4 N' I3 l
141.         Dim ToolCornerRadius As Double
     # L( q% V1 P# M% v7 @/ H' `) r
142.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     4 M! D2 F6 |! S8 d5 P
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
     8 y* e8 \7 A9 f. {) A
148.         Dim StockPart As Double
     
149.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_STOCK_PART, StockPart)
     1 M, t& a, W* p
150.         Return StockPart
     
151.     End Function
     
152.     '取部件底部余量
     % u! u/ w$ }1 J7 o' n) T
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)
     : X. ~% y( q/ k% e
156.         Return Stockfloor
     ; s+ M$ L2 u. \5 w8 T, z6 X' X
157.     End Function
     
158. 
     
159.     '取主轴转速
     ( y: A, t$ R4 e  h+ i. M  c& C5 ~
160.     Function GetSpeedValue(ByVal camObjectTag As NXOpen.Tag) As Double
     + S; ~! ^/ ~+ D$ f! T' A
161.         Dim SpeedVale As Double
     / m8 T+ w8 B' {3 v/ P% }
162.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_SPINDLE_RPM, SpeedVale)
     
163.         Return SpeedVale
     - q1 V7 o; ~1 S1 v; [2 b7 c% ]
164.     End Function
     
165.     '取进给速度
     
166.     Function GetFeedValue(ByVal camObjectTag As NXOpen.Tag) As Double
     
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)
     . F! d+ w( p. z
171.         Dim FeedsBuilder1 As ObjectsFeedsBuilder = theSession.Parts.Work.CAMSetup.CreateFeedsBuilder(params)
     2 f1 P8 [8 b; M" D% b/ @/ L' L
172.         FeedValue = FeedsBuilder1.FeedsBuilder.FeedCutBuilder.Value
     
173.         FeedsBuilder1.Destroy()
     : y/ J2 w( ?3 X! l
174.         Return FeedValue
     
175.     End Function
     , e& h" Q9 g+ w, q9 d% m
176.     '取切削时间
     
177.     Function GetCutTime(ByVal camObjectTag As NXOpen.Tag) As Double
     % N2 a, S5 M7 N# C' K' f# P
178.         Dim CutTime As Double
     6 ?4 ]: ?0 g& X# _
179.         theUFSession.Param.AskDoubleValue(camObjectTag, 142, CutTime)
     
180.         Return CutTime
     - H, S) k3 c+ E1 K
181.     End Function
     
182. 
     
183.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     
184. 
     
185.         'Unloads the image immediately after execution within NX
     
186.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
     
187. 
     
188.         '----Other unload options-------
     6 n+ v0 ?1 m" q! J
189.         'Unloads the image when the NX session terminates
     
190.         'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     7 t$ |7 f! g' t* m
191. 
     9 z: S2 Z2 _" c7 f8 Q% J, i/ R  F
192.         'Unloads the image explicitly, via an unload dialog
     + b  f% e8 I! K- H: k
193.         'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
     
194.         '-------------------------------
     
195. 
     
196.     End Function
     
197. 
     
198. 
     ' m1 w1 D# P6 o! |/ G
199. End Module
     7 ^! }; |2 Z: m' a2 @% x% \$ B: Z" P
200. 
     6 v1 s# q3 W; k
201. Public Class MY_EXCEL
     4 |9 W0 O; e# I, d9 u
202.     Private app As Object
     
203.     Private book As Object
     
204.     Private sheet As Object
     
205.     '表格名称
     1 ]0 Z' F6 F7 a7 h
206.     Public Property xlSheetName() As String
     0 L% y/ ?; f+ O$ B; A( [& m
207.         Get
     
208.             Return sheet.Name
     
209.         End Get
     
210.         Set(ByVal value As String)
     $ {0 x% m' t# J( O' O
211.             sheet.Name = value
     6 T0 @) l  @' l, i, w2 z
212.         End Set
     
213.     End Property
     
214.     '新建程序
     
215.     Public Function Create() As Boolean
     
216.         app = CreateObject("Excel.Application")
     6 L! g. k! ~* }9 ?3 ^
217.         If app Is Nothing Then
     % h9 Y1 e9 w6 f' R5 J0 I( H" P, h" c
218.             Return False
     
219.         Else
     
220.             app.Visible = True
     
221.             Return True
     ) N9 D' r5 S; C
222.         End If
     
223.     End Function
     
224.     '打开文件
     7 v- V1 ~3 C) U* p' X" [
225.     Public Sub Open(ByVal xlFileName As String)
     
226.         book = app.Workbooks.Open(xlFileName)
     
227.         sheet = book.ActiveSheet
     0 W- U& W7 ?: m+ G# K5 ]
228.     End Sub
     # f1 J) L! l, M& i
229.     '写单元格
     2 r' i! l: K& o% Z1 |* x, \
230.     Public Sub Write(ByVal _Range As String, ByVal value As Object)
     
231.         If _Range <> "" Then
     * e/ F8 b% A" s4 X) T
232.             sheet.Range(_Range).Value = value
     
233.         End If
     
234.     End Sub
     
235.     '插入图片
     . K/ Z+ \, Q) \& D2 }
236.     Public Sub InsertPicture(ByVal _Range As String, ByVal imageFile As String)
     * E" z) e4 w% v$ _0 z5 P8 e) |4 v
237.         If _Range <> "" Then
     . f8 N, D- D. b8 W: _9 W$ T
238.             Dim ExcelRange As Object = sheet.Range(_Range)
     
239.             Dim Ins_image As Image
     
240.             Ins_image = Image.FromFile(imageFile)
     3 t. I# V& y6 b- ^4 `7 Y
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)
     
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()
     ' B6 `$ P( ]1 V; W6 \, s; Q3 U6 H
246.         End If
     
247.     End Sub
     
248.     '取指定单元格值
     
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
     
253.     Public Function Save() As Boolean
     $ r, N0 O7 A2 ?4 n
254.         book.Save()
     
255.     End Function
     
256.     Public Function SaveAs() As Boolean
     
257.         Dim Sdlg As SaveFileDialog = New SaveFileDialog '定义一个保存对话框
     ; T& ~+ x- L# ]+ k' f
258.         Sdlg.FileName = AskDisplatyPartName() + "加工工序单.xls" '保存对话框的默认文件名
     
259.         Sdlg.Filter = "EXCEL档案(*.xls)|*.xls" '过滤器设置
     ; |+ G6 p/ \4 p3 A: q9 d& t
260.         If Sdlg.ShowDialog = Windows.Forms.DialogResult.OK Then '如果保存对话框的确认按钮被按下
     0 f  Q" \, f& F% J
261.             book.SaveAs(Sdlg.FileName) '保存文件
     
262.         End If
     
263.     End Function
     
264.     '结束EXCEL对象
     
265.     Public Function Quit() As Boolean
     9 k% V8 D6 B. ~! q
266.         book.close()
     
267.         app.Quit()
     # `$ V7 C% u; ~
268.         app = Nothing
     + n  J4 g/ `, D4 A: g7 V
269.         GC.Collect()
     % ~) q6 q, ^+ _$ `9 Q
270.     End Function
     : G6 e% J- V: e; C3 }+ j
271. 
     + D$ f" A' {9 O! {; y7 Q
272.     '取数组
     - p$ C; D# N3 X8 f
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)
     9 M$ |4 X5 W, u
275.         Dim rowvalue As String = sheet.Range(_Row).value
     
276.         Dim cellvalue As String = sheet.Range(_Cell).value
     
277.         Dim k As Integer = 0
     ( |' r( f( C9 m: ~8 c. e+ X
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
     
282.             If rowstr.Length > 1 And cellstring.Length > 0 Then
     + y" z/ I! M8 y# A; k+ C9 |
283.                 a = Convert.ToInt32(rowstr(0))
     / }( S  {# ?9 H4 H
284.                 b = Convert.ToInt32(rowstr(1))
     $ X- \" R+ l; ]: |
285.                 If a > 0 And b > a Then
     # Z+ m4 v! O7 s. }
286.                     ReDim Preserve ArryString(b - a)
     4 s' Z, O( x! J7 D, X
287.                     For i As Integer = 0 To b - a
     / U% ~9 t5 a3 a& `3 r
288.                         ArryString(i) = cellstring(0) & Convert.ToString(a + i)
     : a9 {, n6 l( X% G
289.                         k += 1
     
290.                     Next
     
291.                     If rowstr.Length > 3 And cellstring.Length > 1 Then
     
292.                         c = Convert.ToInt32(rowstr(2))
     6 q" c0 h5 Z: S
293.                         d = Convert.ToInt32(rowstr(3))
     # D7 E1 X2 W: H( n7 B1 o
294.                         If c > 0 And d > c Then
     4 k( P, a% r& e6 V) B" ]
295.                             ReDim Preserve ArryString(b - a + d - c + 1)
     . W2 v3 I( _- W4 c2 S2 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
     & c6 u% d4 q% s8 \
302.                 End If
     1 {/ l% Q' V% w+ W& H( f- k6 u# T
303.             End If
     
304.         End If
     
305.         Return k
     
306.     End Function
     
307. End Class

复制代码

0 c( U+ V# p6 u