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

admin

1. Option Strict Off
   / S1 M- i) j" K: m* A" g- S5 r3 J
2. Imports System
   ! r$ r  I' M0 `' Q$ x4 g8 B
3. Imports System.IO
   ( e: i2 [/ f% P2 X" k' l) _. P' E
4. Imports NXOpen
   
5. Imports NXOpen.CAM
   2 K+ T) E) e8 e6 P0 S
6. Imports NXOpen.UF
   8 ]1 [' z" |" G* v' {( f3 j
7. Imports NXOpen.Utilities
   
8. Imports System.Drawing
   9 {  j* q% X7 m/ H' x- D
9. Imports System.Windows.Forms
   
10. 
    6 w+ g! Q$ \  d
11. Module Module1
    
12.     Dim theSession As Session = Session.GetSession()
    
13.     Dim myUI As UI = UI.GetUI()
    ' t2 F/ Y. z1 j4 g* k
14.     Dim theUFSession As UFSession = UFSession.GetUFSession()
    6 L( Z5 J7 u* I8 {* r4 b9 ~
15.     Dim theWorkPart As Part = theSession.Parts.Work
    
16. 
    
17.     Dim mytag() As NXOpen.Tag '选择的加工操作标记数组
    
18.     Dim mcount As Integer '选择的加工操作数量
    - m' H8 a3 W7 h& q! Y! K+ B$ l- A; Q
19. 
    
20.     Sub Main()     
    6 a  M9 J$ J  {: E9 n
21. 
    
22.         Shell(Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\SnapPic.exe", AppWinStyle.NormalFocus, True)
    3 j( b( b, l* g2 }
23. 
    
24.         Try
    
25.             '获取选择的操作数
    6 Q) X* j$ U' Q0 [% s! D0 N( }
26.             theUFSession.UiOnt.AskSelectedNodes(mcount, mytag)
    6 }7 i; P' o" `- X: k
27.             If mcount = 0 Then
    . _. u( \6 k+ z% v
28.                 MsgBox("没有选择加工操作!", MsgBoxStyle.OkOnly, "提示信息")
    9 o: r: J7 b+ z5 y* k1 H
29.                 Exit Sub
    
30.             End If
    
31. 
    
32.             '设置车间文档EXCEL模板路径
    
33.             Dim fp As String = Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\WorkShop.xls"
    7 f3 X& Q% I# ^" `2 Y
34.             '打开与写出车间文档
    3 }+ n, \/ |9 w. }& W# _. B
35.             If String.IsNullOrEmpty(fp) = False Then
    
36.                 Dim myExcel As New MY_EXCEL
    0 r  u) e, B4 _3 h+ V- P
37.                 myExcel.Create()
    $ T6 c' S7 B) N/ H; F
38.                 myExcel.Open(fp)
    7 R- X9 ]* d' F% z1 A4 e# T
39.                 myExcel.Write("M4", AskDisplatyPartName())
    
40.                 myExcel.Write("S4", Format(Now, "yyyy/MM/dd"))
      `) W4 B  k0 ]1 ]- _3 ~
41.                 myExcel.InsertPicture("b4", Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\jietu.jpg")
    
42.                 For i = 0 To mcount - 1
    
43.                     '输出结果
    
44.                     myExcel.Write("B" + (i + 17).ToString, (i + 1).ToString)
    : g0 T3 D) K4 G+ D6 q* z
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)))
    ' e: H8 H" E. G: {9 m( G
48.                     myExcel.Write("G" + (i + 17).ToString, GetToolNumber(mytag(i)).ToString)
    5 L, j4 c6 c% d1 I, K0 G
49.                     myExcel.Write("H" + (i + 17).ToString, GetToolDiameter(mytag(i)).ToString)
    % s; m( }2 v) ?  `) l5 Y; ~
50.                     myExcel.Write("I" + (i + 17).ToString, GetToolCornerRadius(mytag(i)).ToString)
    . v3 p* [9 w: t! t0 e
51.                     myExcel.Write("J" + (i + 17).ToString, GetToolHeight(mytag(i)).ToString)
    5 P8 E. ]' a" U3 D9 S# R7 H! Q: o2 u6 ]
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)
    
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. 
    , u6 x3 }5 U" E  ^% a
59.                 Next
    $ }" r9 V, f8 m
60.                 myExcel.SaveAs()
    / J% Q( K: N0 f) c5 j) U4 }; ]
61.                 'myExcel.Quit()
    
62.             End If
    , p/ G; W+ k1 C1 H. p8 K
63.             '出错处理：
    
64.         Catch ex As Exception
    
65.             MsgBox(ex)
    ( G2 v- I& ?$ M/ p6 b
66.         End Try
    3 v- A! I; j9 F
67. 
    + z* K4 E1 B* E, f. w" z8 n
68.     End Sub
    3 x- J( {5 X5 C& q1 T, j
69.     '当前文档文件名
    
70.     Function AskDisplatyPartName() As String
    2 g$ \  l! B+ U: X1 s
71.         Dim UFS As UFSession = UFSession.GetUFSession()
    # G  i9 i/ M' }6 w
72.         Dim part_name As String = ""
    ( H+ J% ~9 o5 e  K0 y
73.         Dim part_tag As NXOpen.Tag = UFS.Part.AskDisplayPart
    " T; `- I, d5 L3 a2 {: i
74.         UFS.Part.AskPartName(part_tag, part_name)
    
75.         Dim aa() As String
    
76.         Dim bb() As String
    0 v2 @/ f1 D) k8 N: b! O" h1 k
77.         aa = Split(part_name, ".prt")
    
78.         part_name = aa(0)
      o& h) G$ L+ W$ K; @# {/ q
79.         bb = Split(part_name, "")
    1 ~/ I5 I8 f8 ~) y* f5 b/ Q* H
80.         part_name = bb(bb.Length - 1)
    2 d' t6 t9 y8 j, R+ p3 y& M
81.         Return part_name
    
82.     End Function
    + U' J5 l6 z: _0 _
83.     '取加工几何试图程序组
    & M! @% Z3 I4 @( v$ d
84.     Function GetGemoGroup_Name(ByVal camObjectTag As NXOpen.Tag) As String
    
85.         Dim theGemoGroup_Tag As NXOpen.Tag
    
86.         Dim GemoGroupName As String = ""
    * h7 r9 `  ^. x  N9 E
87.         theUFSession.Oper.AskGeomGroup(camObjectTag, theGemoGroup_Tag)
    0 G' r  t6 C" Y
88.         theUFSession.Obj.AskName(theGemoGroup_Tag, GemoGroupName)
    
89.         Return GemoGroupName
    & w! a& h( S- Z
90.     End Function
    
91. 
    
92.     '取操作名称
    . h2 @+ ^3 O' O/ s4 s, O
93.     Function GetToolPathName(ByVal camObjectTag As NXOpen.Tag) As String
    
94.         Dim ToolPathName As String = ""
    % k$ P, c) w1 @4 x
95.         theUFSession.Oper.AskNameFromTag(camObjectTag, ToolPathName)
    
96.         Return ToolPathName
    0 e: t; |* R- v* O2 j" Z# F4 j' d
97.     End Function
    - E: P! i5 ]$ A
98.     '获取刀具名称
    / T7 d0 m, w+ R
99.     Function GetToolName(ByVal camObjectTag As NXOpen.Tag) As String
    
100.         Dim ToolName As String = ""
     4 y" P6 @' E. A/ _4 t! U
101.         Dim ToolTag As NXOpen.Tag
     
102.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
103.         theUFSession.Obj.AskName(ToolTag, ToolName)
     
104.         Return ToolName
     
105.     End Function
     
106.     '获取刀具号码
     3 T9 S2 C4 g7 t' d* ^
107.     Function GetToolNumber(ByVal camObjectTag As NXOpen.Tag) As Integer
     
108.         Dim ToolTag As NXOpen.Tag
     $ `( F7 z" P5 B9 {
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
     9 y  }* G0 |/ }6 s! L  A) m1 _
114.     '获取刀具长度
     ) [% b' J: [2 P" [4 ?
115.     Function GetToolHeight(ByVal camObjectTag As NXOpen.Tag) As Double
     ! L# @8 t: G$ d4 t; R' L; c
116.         Dim ToolTag As NXOpen.Tag
     
117.         Dim ToolHeight As Double
     $ u* w: q! `/ h
118.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
119.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_HEIGHT, ToolHeight)
     9 f# X  s3 w7 ^  U  k+ O
120.         Return ToolHeight
     ' m  `4 k2 S0 u
121.     End Function
     
122.     '获取刀具直径
     
123.     Function GetToolDiameter(ByVal camObjectTag As NXOpen.Tag) As Double
     
124.         Dim ToolTag As NXOpen.Tag
     ) J2 h  T! U. r3 R
125.         Dim ToolDiameter As Double
     3 z0 a" q, E2 u6 S
126.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
127.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_DIAMETER, ToolDiameter)
     
128.         Return ToolDiameter
     
129.     End Function
     - E5 z7 x: Y  p; ?
130.     '获取刀具刃长
     
131.     Function GetToolFluteLength(ByVal camObjectTag As NXOpen.Tag) As Double
     
132.         Dim ToolTag As NXOpen.Tag
     
133.         Dim ToolFluteLength As Double
     
134.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     8 o9 Q" [5 e4 h6 U# w# h/ }, O
135.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_FLUTE_LN, ToolFluteLength)
     ( {; j' _1 |) P1 X
136.         Return ToolFluteLength
     : |& w3 n6 S2 V$ ]# \8 s6 t! ~
137.     End Function
     6 A! Z) y% S7 `( e2 i. Y
138.     '获取刀具R角
     
139.     Function GetToolCornerRadius(ByVal camObjectTag As NXOpen.Tag) As Double
     3 V" n1 {$ f5 P. g
140.         Dim ToolTag As NXOpen.Tag
     
141.         Dim ToolCornerRadius As Double
     4 e* _: e8 V& {+ X/ t1 ^' {# \
142.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
       @' _2 [: I  q; z' W0 ~
143.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_COR1_RAD, ToolCornerRadius)
     ; ~! X2 Q) Y- t6 r) a: Q
144.         Return ToolCornerRadius
     
145.     End Function
     ( T/ ~7 @2 G/ O2 t
146.     '取部件侧部余量
     ' S  A* N  S' o  j
147.     Function GetStockPart(ByVal camObjectTag As NXOpen.Tag) As Double
     4 I! B( E6 {2 b; z$ L4 \7 Q3 H4 h
148.         Dim StockPart As Double
     
149.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_STOCK_PART, StockPart)
     ( F. D' T  Q& s( _/ W2 c% L7 L
150.         Return StockPart
     7 m0 B( }  B4 Q: f2 ^& i& z' V
151.     End Function
     
152.     '取部件底部余量
     7 H' [# ]9 t9 z% ^  H& w. f- e
153.     Function GetStockFloor(ByVal camObjectTag As NXOpen.Tag) As Double
     ) F- D6 N8 E; r2 m* ]; f' t
154.         Dim Stockfloor As Double
     $ I( Y* a; _4 g* D  y
155.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_STOCK_FLOOR, Stockfloor)
     ' R; f8 _  F/ E! ^+ h
156.         Return Stockfloor
     
157.     End Function
     % U3 p' J  D+ R3 J  K! @
158. 
     & v7 i6 @( ^: {7 G9 j  K5 o0 K
159.     '取主轴转速
     
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)
     
163.         Return SpeedVale
       t2 h: P" y* G" o" n- Z9 p
164.     End Function
       i/ o: C5 N# y1 X
165.     '取进给速度
     
166.     Function GetFeedValue(ByVal camObjectTag As NXOpen.Tag) As Double
     6 `3 A' `3 D3 S% R5 F1 a9 @
167.         Dim FeedValue As Double
     / H% `- }3 e4 e$ [5 U
168.         Dim _camObject As NXObject = NXObjectManager.Get(camObjectTag)
     # \- q" h) ?% b8 R4 M+ p$ m
169.         Dim params(0) As CAM.Operation
     
170.         params(0) = CType(_camObject, Operation)
     
171.         Dim FeedsBuilder1 As ObjectsFeedsBuilder = theSession.Parts.Work.CAMSetup.CreateFeedsBuilder(params)
     - N3 j$ N3 |' b- _# `2 ?
172.         FeedValue = FeedsBuilder1.FeedsBuilder.FeedCutBuilder.Value
     
173.         FeedsBuilder1.Destroy()
     ! l# c5 G6 I' U1 \7 k' [5 x' E4 t
174.         Return FeedValue
     
175.     End Function
     
176.     '取切削时间
     4 n6 a) f$ B+ T, g2 l
177.     Function GetCutTime(ByVal camObjectTag As NXOpen.Tag) As Double
     
178.         Dim CutTime As Double
     0 a; n& l7 R7 t* A
179.         theUFSession.Param.AskDoubleValue(camObjectTag, 142, CutTime)
     
180.         Return CutTime
     
181.     End Function
     
182. 
     3 ^' \$ H, W  ~; p$ o: v* v
183.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     ' W4 M* H- g3 K+ j
184. 
     
185.         'Unloads the image immediately after execution within NX
     + g! ~0 N( b, B+ y7 Q* E
186.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
     
187. 
     
188.         '----Other unload options-------
     
189.         'Unloads the image when the NX session terminates
     4 j- N9 c7 U" Z" q) V7 o0 |  f( E5 k
190.         'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     
191. 
     
192.         'Unloads the image explicitly, via an unload dialog
     & |0 Z* I/ n. G- j0 C6 A
193.         'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
     / e  X% l& n% v0 q" W
194.         '-------------------------------
     2 n/ Y! M! F. N2 r  V* ?$ Q/ V
195. 
     
196.     End Function
     
197. 
     
198. 
     
199. End Module
     
200. 
     . c( w' H- M( x/ s4 ^) ~% e6 o5 T8 {1 q4 C
201. Public Class MY_EXCEL
     
202.     Private app As Object
     4 z" a$ \+ e# R: i) z, f
203.     Private book As Object
     
204.     Private sheet As Object
     
205.     '表格名称
     , V- _) o# h- b9 c& N5 o9 s9 Q' W
206.     Public Property xlSheetName() As String
     3 y1 @! z6 @+ I
207.         Get
     
208.             Return sheet.Name
     # o2 D; q* ~( B/ k
209.         End Get
     
210.         Set(ByVal value As String)
     ' }& O) k6 p& @& m% h% Q* F) q
211.             sheet.Name = value
     + ~+ i! \, @" C6 ^3 A# `! u
212.         End Set
     
213.     End Property
     ( N) t/ s% M( x' B. d
214.     '新建程序
     : c  W! U: b9 Z  @4 {) d+ x
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
     
222.         End If
     
223.     End Function
     
224.     '打开文件
     
225.     Public Sub Open(ByVal xlFileName As String)
     ( ]/ X# J) ]* u2 v
226.         book = app.Workbooks.Open(xlFileName)
     
227.         sheet = book.ActiveSheet
     
228.     End Sub
     
229.     '写单元格
     5 S1 z; S4 s( H8 d1 @' @0 Q) u7 O
230.     Public Sub Write(ByVal _Range As String, ByVal value As Object)
     
231.         If _Range <> "" Then
     
232.             sheet.Range(_Range).Value = value
     / Q. Z. ?- C2 k8 x' @5 `+ H
233.         End If
     
234.     End Sub
     & E7 Y$ I3 H! z  h8 g$ K. C
235.     '插入图片
     1 I' |' l$ r1 s8 A$ w. x
236.     Public Sub InsertPicture(ByVal _Range As String, ByVal imageFile As String)
     
237.         If _Range <> "" Then
     
238.             Dim ExcelRange As Object = sheet.Range(_Range)
     ! U& \- e+ T! R6 k- x
239.             Dim Ins_image As Image
     ' D0 D+ I7 @, ]& M0 }
240.             Ins_image = Image.FromFile(imageFile)
     # Q8 }/ t$ s  a6 ]7 \
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)
     % h/ q% w: I3 k# ^2 Y& X# f0 E. Z* q
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()
     " L$ m" C, g1 o' P
246.         End If
     
247.     End Sub
     
248.     '取指定单元格值
     & V9 A; S7 |& v+ N$ [# {9 a/ t
249.     Public Function GetValue(ByVal _table As Integer, ByVal _Range As String) As String
     7 @1 X+ V! l1 u4 {4 H* v. i
250.         Dim sheet As Object = book.Sheets.Item(_table)
     
251.         Return sheet.Range(_Range).value
     
252.     End Function
     & p4 Z2 b6 t3 k( O9 ~, b
253.     Public Function Save() As Boolean
     
254.         book.Save()
     
255.     End Function
     
256.     Public Function SaveAs() As Boolean
     
257.         Dim Sdlg As SaveFileDialog = New SaveFileDialog '定义一个保存对话框
     
258.         Sdlg.FileName = AskDisplatyPartName() + "加工工序单.xls" '保存对话框的默认文件名
     ( i0 k$ {, j& ?/ d6 T( [. O
259.         Sdlg.Filter = "EXCEL档案(*.xls)|*.xls" '过滤器设置
     . o  n* ~: Y0 m4 s" }& K- h+ [
260.         If Sdlg.ShowDialog = Windows.Forms.DialogResult.OK Then '如果保存对话框的确认按钮被按下
     8 M3 T! f& |$ `# r0 k/ E: l
261.             book.SaveAs(Sdlg.FileName) '保存文件
     
262.         End If
     
263.     End Function
     
264.     '结束EXCEL对象
     
265.     Public Function Quit() As Boolean
     
266.         book.close()
     
267.         app.Quit()
     6 T1 M1 B/ _2 Y* F
268.         app = Nothing
     ' O- O- f2 x* Z" \/ W8 ]! V0 i+ \
269.         GC.Collect()
     ' z% X. ^9 r6 z* ?
270.     End Function
     ' M- ]$ |1 i6 v5 g. u
271. 
     
272.     '取数组
     1 r+ J$ R7 G$ }2 y
273.     Public Function GetArryValue(ByRef _table As Integer, ByVal _Row As String, ByVal _Cell As String, ByRef ArryString() As String) As Integer
       g5 T% g; N4 ]: t& L, ]
274.         Dim sheet As Object = book.Sheets.Item(_table)
     6 |0 K: x8 Y, {* v6 z/ N
275.         Dim rowvalue As String = sheet.Range(_Row).value
     1 _  b7 T9 w( s" }
276.         Dim cellvalue As String = sheet.Range(_Cell).value
     
277.         Dim k As Integer = 0
     ; V1 L- A5 ~( |
278.         If rowvalue <> "" And cellvalue <> "" Then
     : T1 l4 }5 ^# `2 {9 `( w$ w! e
279.             Dim rowstr() As String = Split(rowvalue, "/")
     
280.             Dim cellstring() As String = Split(cellvalue, "/")
     
281.             Dim a, b, c, d As Integer
     ; k$ |1 R& S$ I! ^# z$ I+ T8 E
282.             If rowstr.Length > 1 And cellstring.Length > 0 Then
     
283.                 a = Convert.ToInt32(rowstr(0))
     
284.                 b = Convert.ToInt32(rowstr(1))
     * Z, _' I  S; b3 t% V+ I/ e
285.                 If a > 0 And b > a Then
     6 D+ _5 B0 k: e2 G% O' _3 b
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
     
290.                     Next
     ( ~9 d3 X. W: T) y" h) \7 e  g3 d/ k
291.                     If rowstr.Length > 3 And cellstring.Length > 1 Then
     % a; \( ~) @' s9 E, G
292.                         c = Convert.ToInt32(rowstr(2))
     . l; u8 z$ Y4 p' n3 {6 I" X7 v
293.                         d = Convert.ToInt32(rowstr(3))
     ) x6 j% w  r- n
294.                         If c > 0 And d > c Then
     4 d' S  O8 Z' V  [9 R2 z6 U- i( B/ I( ?
295.                             ReDim Preserve ArryString(b - a + d - c + 1)
     
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
     ! N# B+ Q  [8 Y
300.                         End If
     
301.                     End If
     & }7 T" q' b+ A. F
302.                 End If
     ' z) d# ~  u- w: N4 E, h8 a
303.             End If
       b3 q, c. l! p" k  s' l
304.         End If
     * D0 e" p$ S+ q+ N
305.         Return k
     
306.     End Function
     ' F& S! B. D& K& V. }
307. End Class

复制代码

8 n9 b; x! Y$ \6 x