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

admin

" l( x* ^5 u( O# a8 r5 l7 [( `, w

1. Option Strict Off
   ( o) |0 Z5 ~, T, }
2. Imports System
   # z* ?: ^) U; N- g
3. Imports System.IO
   
4. Imports NXOpen
   
5. Imports NXOpen.CAM
   
6. Imports NXOpen.UF
   
7. Imports NXOpen.Utilities
   $ C" @8 }3 b$ F8 r+ U, Q+ z3 K
8. Imports System.Drawing
   
9. Imports System.Windows.Forms
   " m  `# q; m8 h9 k
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()
    
15.     Dim theWorkPart As Part = theSession.Parts.Work
    
16. 
    
17.     Dim mytag() As NXOpen.Tag '选择的加工操作标记数组
    1 f: g& U8 i' U0 o; ]
18.     Dim mcount As Integer '选择的加工操作数量
    
19. 
    2 d& k! N8 O: ]4 L$ U6 P6 X
20.     Sub Main()     
    
21. 
    
22.         Shell(Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\SnapPic.exe", AppWinStyle.NormalFocus, True)
    1 b8 \5 |* u- D& x
23. 
    
24.         Try
    2 q, p3 ]' u; Z5 H, a
25.             '获取选择的操作数
    % y! j: Y' ^4 A& \
26.             theUFSession.UiOnt.AskSelectedNodes(mcount, mytag)
    8 `, z7 C# w) I# v: W
27.             If mcount = 0 Then
    
28.                 MsgBox("没有选择加工操作!", MsgBoxStyle.OkOnly, "提示信息")
    
29.                 Exit Sub
    ) w$ g5 H* Q7 I* v
30.             End If
    : Z. [3 x6 Q0 b: _7 w' c8 C
31. 
    ' U. [- W$ G; }2 s3 [' {* U
32.             '设置车间文档EXCEL模板路径
    % w% E: Z4 p# U& f: |
33.             Dim fp As String = Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\WorkShop.xls"
    
34.             '打开与写出车间文档
    
35.             If String.IsNullOrEmpty(fp) = False Then
    6 f+ r  u; k. M) y
36.                 Dim myExcel As New MY_EXCEL
    
37.                 myExcel.Create()
    ) C3 U9 f2 H7 G6 e) L0 @8 R
38.                 myExcel.Open(fp)
    . I' s1 X6 t# E  n
39.                 myExcel.Write("M4", AskDisplatyPartName())
    
40.                 myExcel.Write("S4", Format(Now, "yyyy/MM/dd"))
    , S, I: A: u; Q, r* g1 w
41.                 myExcel.InsertPicture("b4", Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\jietu.jpg")
    ; b' [. R! [/ z+ X9 Y' V0 J! k
42.                 For i = 0 To mcount - 1
    2 h( ]% n, t( ]% y3 R$ H  K' \
43.                     '输出结果
    
44.                     myExcel.Write("B" + (i + 17).ToString, (i + 1).ToString)
    ( G3 g8 G6 \4 J- A5 C
45.                     myExcel.Write("D" + (i + 17).ToString, GetGemoGroup_Name(mytag(i)))
    
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)
    
49.                     myExcel.Write("H" + (i + 17).ToString, GetToolDiameter(mytag(i)).ToString)
    + g  J0 K% h0 a! F
50.                     myExcel.Write("I" + (i + 17).ToString, GetToolCornerRadius(mytag(i)).ToString)
    / r1 h8 P9 a3 V  E
51.                     myExcel.Write("J" + (i + 17).ToString, GetToolHeight(mytag(i)).ToString)
    
52.                     myExcel.Write("K" + (i + 17).ToString, GetToolFluteLength(mytag(i)).ToString)
    " l3 Z! q: s/ p/ J. U# V9 s6 m
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)
    
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
    
60.                 myExcel.SaveAs()
    * E! Z+ a$ w' G* ~) U
61.                 'myExcel.Quit()
    
62.             End If
    + z! K) D) ?6 G$ F  n" W- c
63.             '出错处理：
    % c( \/ d( l0 w$ r
64.         Catch ex As Exception
    % V, [5 E% G1 ?; P. i( F' d2 I* ^
65.             MsgBox(ex)
    
66.         End Try
    6 r* s2 Z( h* c' u* `
67. 
    
68.     End Sub
    
69.     '当前文档文件名
    % m* i& q1 H$ ~5 t
70.     Function AskDisplatyPartName() As String
    9 K& z3 Z4 C) \6 {- c* m. _
71.         Dim UFS As UFSession = UFSession.GetUFSession()
    ! d4 S" b: q6 I2 u5 R  ^) L1 H' t
72.         Dim part_name As String = ""
    
73.         Dim part_tag As NXOpen.Tag = UFS.Part.AskDisplayPart
    ( v7 l6 ~6 G% X- Q9 O( b( L
74.         UFS.Part.AskPartName(part_tag, part_name)
    
75.         Dim aa() As String
    
76.         Dim bb() As String
    " y# E+ C, {% @( K
77.         aa = Split(part_name, ".prt")
    & o' i: u1 B7 g; }: ?0 r
78.         part_name = aa(0)
    
79.         bb = Split(part_name, "")
    
80.         part_name = bb(bb.Length - 1)
    
81.         Return part_name
    0 X3 m- t% }; ^; _$ I
82.     End Function
    
83.     '取加工几何试图程序组
    
84.     Function GetGemoGroup_Name(ByVal camObjectTag As NXOpen.Tag) As String
    7 D0 s7 |7 _: ~& e3 i: m
85.         Dim theGemoGroup_Tag As NXOpen.Tag
    
86.         Dim GemoGroupName As String = ""
    ) ^  c  e' }2 \  @: Q
87.         theUFSession.Oper.AskGeomGroup(camObjectTag, theGemoGroup_Tag)
    
88.         theUFSession.Obj.AskName(theGemoGroup_Tag, GemoGroupName)
    
89.         Return GemoGroupName
    % Z& o0 T, J8 E
90.     End Function
    
91. 
    
92.     '取操作名称
    
93.     Function GetToolPathName(ByVal camObjectTag As NXOpen.Tag) As String
    
94.         Dim ToolPathName As String = ""
    
95.         theUFSession.Oper.AskNameFromTag(camObjectTag, ToolPathName)
    
96.         Return ToolPathName
    
97.     End Function
    
98.     '获取刀具名称
    * W2 _, T+ O4 W0 i
99.     Function GetToolName(ByVal camObjectTag As NXOpen.Tag) As String
    - q1 c% j4 H' [0 W( {1 X% f4 w
100.         Dim ToolName As String = ""
     2 Q3 \0 U4 x- T: [* r- U
101.         Dim ToolTag As NXOpen.Tag
     
102.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
103.         theUFSession.Obj.AskName(ToolTag, ToolName)
     ! O7 J- F1 ]4 j9 F1 g7 e
104.         Return ToolName
     
105.     End Function
     
106.     '获取刀具号码
     / r& H- X% \! }) l3 k) }; c+ @
107.     Function GetToolNumber(ByVal camObjectTag As NXOpen.Tag) As Integer
     / \6 l! q9 i4 p% E
108.         Dim ToolTag As NXOpen.Tag
     
109.         Dim ToolNumber As Integer
     * _- h/ E$ {$ e" D) t. J% u% r
110.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     3 y$ A2 j4 O" g  t1 W. {* W# r6 x
111.         theUFSession.Param.AskIntValue(ToolTag, UFConstants.UF_PARAM_TL_NUMBER, ToolNumber)
     
112.         Return ToolNumber
     ( m& Y6 i" f2 U& f( P
113.     End Function
     
114.     '获取刀具长度
     , g( h# r$ ?7 \
115.     Function GetToolHeight(ByVal camObjectTag As NXOpen.Tag) As Double
     
116.         Dim ToolTag As NXOpen.Tag
     , b( [: Y8 D) j; v1 I2 {. S( z' z0 s
117.         Dim ToolHeight As Double
     . _: X9 l( i8 L. _8 G
118.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
119.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_HEIGHT, ToolHeight)
     
120.         Return ToolHeight
     
121.     End Function
     ; p2 ^0 r6 @, F3 ~1 a9 s
122.     '获取刀具直径
     
123.     Function GetToolDiameter(ByVal camObjectTag As NXOpen.Tag) As Double
     $ M5 v5 Z" U3 _* U% e+ U( ?
124.         Dim ToolTag As NXOpen.Tag
     ) o) F* M: r# Z7 A; K  }. T4 w  h
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
     4 Q1 \% V# s; Z) f
130.     '获取刀具刃长
     
131.     Function GetToolFluteLength(ByVal camObjectTag As NXOpen.Tag) As Double
     
132.         Dim ToolTag As NXOpen.Tag
     " g, r2 F" ?/ d/ \* f% [7 J
133.         Dim ToolFluteLength As Double
     
134.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
       _/ }2 g. u, F& Q+ r8 W  W
135.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_FLUTE_LN, ToolFluteLength)
     
136.         Return ToolFluteLength
     
137.     End Function
     
138.     '获取刀具R角
     & a$ b: _; w; _9 D9 U$ o# h
139.     Function GetToolCornerRadius(ByVal camObjectTag As NXOpen.Tag) As Double
     
140.         Dim ToolTag As NXOpen.Tag
     & q' v0 j! R% B" K6 m# h" e2 x3 R
141.         Dim ToolCornerRadius As Double
     
142.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
143.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_COR1_RAD, ToolCornerRadius)
     # ]& [' c5 Z) s1 J- I+ Y
144.         Return ToolCornerRadius
     
145.     End Function
     . N) [* {( r% P" Z
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)
     
150.         Return StockPart
     5 N. d2 Y2 _, M
151.     End Function
     
152.     '取部件底部余量
     
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)
     ! [! q2 b8 F: i' ?4 u
156.         Return Stockfloor
     
157.     End Function
       P9 S3 m7 n% l$ g8 j7 x0 Z5 V
158. 
     3 o; b+ b6 n0 a3 B
159.     '取主轴转速
     9 X4 k, T) }0 d7 q7 s7 M
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)
     1 u) R; Q* I% L8 r
163.         Return SpeedVale
       L: _) k; c& ?/ {0 M+ {9 y8 a
164.     End Function
     
165.     '取进给速度
     
166.     Function GetFeedValue(ByVal camObjectTag As NXOpen.Tag) As Double
     
167.         Dim FeedValue As Double
     5 J4 x+ `# \# @' v, ]% C
168.         Dim _camObject As NXObject = NXObjectManager.Get(camObjectTag)
     % ~3 C" w7 ?: h4 R
169.         Dim params(0) As CAM.Operation
     
170.         params(0) = CType(_camObject, Operation)
     
171.         Dim FeedsBuilder1 As ObjectsFeedsBuilder = theSession.Parts.Work.CAMSetup.CreateFeedsBuilder(params)
     4 q/ B7 x; o5 q7 f# m
172.         FeedValue = FeedsBuilder1.FeedsBuilder.FeedCutBuilder.Value
     
173.         FeedsBuilder1.Destroy()
     
174.         Return FeedValue
     ! L8 \5 {* @, A# T6 m% q7 \9 F3 h
175.     End Function
     
176.     '取切削时间
     ; u! r8 Z# N2 [4 Q  p
177.     Function GetCutTime(ByVal camObjectTag As NXOpen.Tag) As Double
     
178.         Dim CutTime As Double
     5 W- a8 Y' U# e: N: h- V9 G/ z' O
179.         theUFSession.Param.AskDoubleValue(camObjectTag, 142, CutTime)
     - G; h. o. n. @% {  z
180.         Return CutTime
     * S$ E7 R+ _5 Z3 J; n
181.     End Function
     4 k( e$ A1 N2 q3 ]1 n2 c
182. 
     . T( x0 \& W4 k- D4 H2 r
183.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     : i! p, t) V+ j8 ~1 ~) p
184. 
     
185.         'Unloads the image immediately after execution within NX
     
186.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
     
187. 
     3 g! ?8 Q0 U$ _% N9 ]) v
188.         '----Other unload options-------
     
189.         'Unloads the image when the NX session terminates
     
190.         'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     1 a# r. @% u% V/ W
191. 
     
192.         'Unloads the image explicitly, via an unload dialog
     8 V/ e7 `- J) f* P0 E4 k
193.         'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
     % g( F$ ~2 B; m  G( P
194.         '-------------------------------
     
195. 
     + I* x6 J0 B3 y. Z& [. q
196.     End Function
     : o. Z4 J& P) ]+ [6 E# D2 e! F
197. 
     
198. 
     ) D  Y# x! V2 L
199. End Module
     
200. 
     
201. Public Class MY_EXCEL
     
202.     Private app As Object
     
203.     Private book As Object
     $ i, Z3 N/ F1 I8 e# t9 g
204.     Private sheet As Object
     * w$ L( N7 x4 A( N
205.     '表格名称
     8 e# t/ A& U6 o1 W" z$ r' Q8 k
206.     Public Property xlSheetName() As String
     
207.         Get
     & G+ D1 z7 X$ M; U6 w4 V5 s- D
208.             Return sheet.Name
     ( ~( g& Q% d. P! ~2 s; g2 ^; b
209.         End Get
     
210.         Set(ByVal value As String)
     
211.             sheet.Name = value
     " ^/ n: y  p1 z/ P+ I
212.         End Set
     " U3 I* a6 G- n! a8 I
213.     End Property
     $ a# v5 A) K1 e+ O
214.     '新建程序
     
215.     Public Function Create() As Boolean
     " ^2 t. S$ n, l% D! o0 m6 r$ }, F
216.         app = CreateObject("Excel.Application")
     / {. _1 S! @* e( j0 B! [5 o) V
217.         If app Is Nothing Then
     / d& @" ?# Y% f5 v7 k% d) p
218.             Return False
     0 C. l8 M( P2 n, D; a
219.         Else
     
220.             app.Visible = True
     " w/ Q: b' M- B5 r. b/ f
221.             Return True
     4 z9 J. F$ v1 X! K( P' v7 \
222.         End If
     
223.     End Function
     8 Z! v( Z, D3 U% P0 Y0 i: ?
224.     '打开文件
     
225.     Public Sub Open(ByVal xlFileName As String)
     
226.         book = app.Workbooks.Open(xlFileName)
     
227.         sheet = book.ActiveSheet
     
228.     End Sub
     
229.     '写单元格
     
230.     Public Sub Write(ByVal _Range As String, ByVal value As Object)
     ; ?! r* f4 B: ]! E6 M; X) A. [2 S" x/ b
231.         If _Range <> "" Then
     1 v7 `9 t$ n* b% [; a, ^
232.             sheet.Range(_Range).Value = value
     . }  [, {- e9 u" v8 L
233.         End If
     
234.     End Sub
     5 L7 P6 T* w% D( {( U- x3 H- \5 S
235.     '插入图片
     5 L3 _6 e4 E  e8 K
236.     Public Sub InsertPicture(ByVal _Range As String, ByVal imageFile As String)
     
237.         If _Range <> "" Then
     
238.             Dim ExcelRange As Object = sheet.Range(_Range)
     
239.             Dim Ins_image As Image
     
240.             Ins_image = Image.FromFile(imageFile)
     ! r- C4 p4 Q+ r- u* q
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)
     . G& P/ i8 {9 e, y+ [; a
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()
     1 Z  g+ M' a, s" K6 E
246.         End If
     
247.     End Sub
     7 f3 s; w8 X9 V1 ~: g
248.     '取指定单元格值
     
249.     Public Function GetValue(ByVal _table As Integer, ByVal _Range As String) As String
     + n4 }2 L6 v& w4 T. y
250.         Dim sheet As Object = book.Sheets.Item(_table)
     
251.         Return sheet.Range(_Range).value
     ! _# H- M) l' Q/ V  @' g$ i& c' D
252.     End Function
     2 R, w. g3 K/ [) N' ?/ o) {
253.     Public Function Save() As Boolean
     & a1 V4 [4 @7 b& h4 V! j
254.         book.Save()
       k* L6 N+ r( K6 q
255.     End Function
     6 N; ~# J/ M5 D0 ?9 W+ S
256.     Public Function SaveAs() As Boolean
     
257.         Dim Sdlg As SaveFileDialog = New SaveFileDialog '定义一个保存对话框
     
258.         Sdlg.FileName = AskDisplatyPartName() + "加工工序单.xls" '保存对话框的默认文件名
     
259.         Sdlg.Filter = "EXCEL档案(*.xls)|*.xls" '过滤器设置
     8 k6 |; X* U* y  q$ \; \; S
260.         If Sdlg.ShowDialog = Windows.Forms.DialogResult.OK Then '如果保存对话框的确认按钮被按下
     
261.             book.SaveAs(Sdlg.FileName) '保存文件
     3 ~0 s+ W! w2 r7 T0 x9 ?
262.         End If
     & G' D0 k# @5 j. o! _
263.     End Function
     
264.     '结束EXCEL对象
     1 Z  A, l9 L9 P2 g2 I2 U4 f" T5 {2 _( W
265.     Public Function Quit() As Boolean
     
266.         book.close()
     
267.         app.Quit()
     ' f+ i8 c( n% s0 u2 D# Y* a7 K
268.         app = Nothing
     ( h& @, j" s# }- f" D3 Q
269.         GC.Collect()
     
270.     End Function
       l* L4 O) H4 Y, E
271. 
     
272.     '取数组
     - w: `! \# n8 i2 l0 O, A5 g: a6 R2 [
273.     Public Function GetArryValue(ByRef _table As Integer, ByVal _Row As String, ByVal _Cell As String, ByRef ArryString() As String) As Integer
     ' [- j. Q. k4 p5 d8 @8 K
274.         Dim sheet As Object = book.Sheets.Item(_table)
     
275.         Dim rowvalue As String = sheet.Range(_Row).value
     7 X+ y% D8 v1 b
276.         Dim cellvalue As String = sheet.Range(_Cell).value
     " l0 X% ]$ G! b# R( b- \. y5 E% t
277.         Dim k As Integer = 0
     / V. P* B  o( S8 ^0 l( v: [4 \4 g
278.         If rowvalue <> "" And cellvalue <> "" Then
     4 ~: v/ D7 f. ~# q1 \
279.             Dim rowstr() As String = Split(rowvalue, "/")
     1 e+ ?* a8 b$ V" Q- R
280.             Dim cellstring() As String = Split(cellvalue, "/")
     
281.             Dim a, b, c, d As Integer
     6 P& Q' l/ s- N- @# H0 ~
282.             If rowstr.Length > 1 And cellstring.Length > 0 Then
       \  O6 p4 h5 R9 g7 h- t: s# r
283.                 a = Convert.ToInt32(rowstr(0))
     
284.                 b = Convert.ToInt32(rowstr(1))
     
285.                 If a > 0 And b > a Then
     / J* y; f5 a/ [, J" R/ B2 |/ B% E
286.                     ReDim Preserve ArryString(b - a)
     ! b7 S$ |% K; `' b
287.                     For i As Integer = 0 To b - a
     
288.                         ArryString(i) = cellstring(0) & Convert.ToString(a + i)
     
289.                         k += 1
     # `9 e! Q  k* |5 Y$ H6 i
290.                     Next
     
291.                     If rowstr.Length > 3 And cellstring.Length > 1 Then
     
292.                         c = Convert.ToInt32(rowstr(2))
     
293.                         d = Convert.ToInt32(rowstr(3))
     8 }. i4 v% I+ o! p2 m5 m
294.                         If c > 0 And d > c Then
     
295.                             ReDim Preserve ArryString(b - a + d - c + 1)
     ) U0 |. ^/ |5 G3 P4 O: ~9 o9 V
296.                             For j As Integer = 0 To d - c
     7 I" ?' g7 t! O: N- B
297.                                 ArryString(b - a + j + 1) = cellstring(1) & Convert.ToString(c + j)
     
298.                                 k += 1
     
299.                             Next
     $ s2 Y( u. g: B" N5 f$ e& o
300.                         End If
     
301.                     End If
     ( a* v) [- J. d; _4 t
302.                 End If
     # S1 E2 _7 Q2 x0 ~, Y
303.             End If
     5 Y  V  E8 d4 f& G; c/ |0 p: W' y
304.         End If
     
305.         Return k
     
306.     End Function
     ! I# _1 z: o5 a& M( n. M6 C! o
307. End Class

复制代码

2 u0 l2 r$ \2 K$ O# E. A" q' a7 `/ s
2 D7 Z, ~/ R& ^- k6 }9 @
3 |4 c$ @5 ^  I