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

admin

' A2 S" t8 _7 D" m: d# Q

1. Option Strict Off
   & @4 I6 _% u7 @) ?4 s
2. Imports System
   
3. Imports System.IO
   
4. Imports NXOpen
   7 j) z, Z( |* s, e
5. Imports NXOpen.CAM
   : Y9 X+ p4 }! W" ?
6. Imports NXOpen.UF
   8 X' Z& Z( @$ E& F: {) p; V
7. Imports NXOpen.Utilities
   8 L5 \# I' J, `+ ?0 g! A
8. Imports System.Drawing
   * _& s# Q* r" x$ e2 ?
9. Imports System.Windows.Forms
   
10. 
    
11. Module Module1
    
12.     Dim theSession As Session = Session.GetSession()
    
13.     Dim myUI As UI = UI.GetUI()
    ; C8 E) b* N9 R  w' j
14.     Dim theUFSession As UFSession = UFSession.GetUFSession()
    
15.     Dim theWorkPart As Part = theSession.Parts.Work
    9 l' W8 S& L+ q. w* L4 C  i
16. 
    ) f8 v  u5 X8 D' Z
17.     Dim mytag() As NXOpen.Tag '选择的加工操作标记数组
    + f' c. p. Z- Z0 ^4 e0 g5 {( L
18.     Dim mcount As Integer '选择的加工操作数量
    + ~: S1 T9 E" r4 x) x# [2 d1 _9 e
19. 
    3 ^6 Q5 M' x; L8 `8 V1 L
20.     Sub Main()     
    7 K. y6 [/ r$ A: F/ F5 G
21. 
    
22.         Shell(Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\SnapPic.exe", AppWinStyle.NormalFocus, True)
    
23. 
    
24.         Try
    , A& c+ C$ U% h2 z" n
25.             '获取选择的操作数
    
26.             theUFSession.UiOnt.AskSelectedNodes(mcount, mytag)
    % @1 h9 ^) v. Q7 a+ t
27.             If mcount = 0 Then
    
28.                 MsgBox("没有选择加工操作!", MsgBoxStyle.OkOnly, "提示信息")
    
29.                 Exit Sub
    
30.             End If
    
31. 
    ' `6 C% e$ h+ s
32.             '设置车间文档EXCEL模板路径
    
33.             Dim fp As String = Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\WorkShop.xls"
    9 \5 g. Q4 T6 L# J1 P
34.             '打开与写出车间文档
    ' c/ t6 d' V7 a: B2 u  X
35.             If String.IsNullOrEmpty(fp) = False Then
    
36.                 Dim myExcel As New MY_EXCEL
    
37.                 myExcel.Create()
    : E3 t; y8 p. S, j% U( U! ~
38.                 myExcel.Open(fp)
    
39.                 myExcel.Write("M4", AskDisplatyPartName())
    
40.                 myExcel.Write("S4", Format(Now, "yyyy/MM/dd"))
    
41.                 myExcel.InsertPicture("b4", Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\jietu.jpg")
    ( x7 G8 @% }2 z9 j* S
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)))
    / L: y( \, `% b! j+ |% @* Y9 R
46.                     myExcel.Write("E" + (i + 17).ToString, GetToolPathName(mytag(i)))
    1 m3 n# q6 e9 I6 T' m: J
47.                     myExcel.Write("F" + (i + 17).ToString, GetToolName(mytag(i)))
      T% p& z6 _2 E1 t) y8 B
48.                     myExcel.Write("G" + (i + 17).ToString, GetToolNumber(mytag(i)).ToString)
    
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)
    
53.                     myExcel.Write("L" + (i + 17).ToString, GetStockPart(mytag(i)).ToString)
    " y$ ^5 W  R9 f+ T( `2 l
54.                     myExcel.Write("M" + (i + 17).ToString, GetStockFloor(mytag(i)).ToString)
    0 o$ q. z# k( t, q5 L' F
55.                     myExcel.Write("N" + (i + 17).ToString, GetSpeedValue(mytag(i)).ToString)
    5 Z' T+ i2 o- D
56.                     myExcel.Write("O" + (i + 17).ToString, GetFeedValue(mytag(i)).ToString)
    - j8 s9 t0 ~0 z7 A- U
57.                     myExcel.Write("Q" + (i + 17).ToString, CInt(GeTCutTime(mytag(i))).ToString)
    
58. 
    ' j, S4 k% U  F  q; S: k
59.                 Next
    
60.                 myExcel.SaveAs()
    
61.                 'myExcel.Quit()
    
62.             End If
    
63.             '出错处理：
    2 u8 w4 G9 d# T* G! R+ L
64.         Catch ex As Exception
    
65.             MsgBox(ex)
    * [9 x* T/ G6 l0 P
66.         End Try
    
67. 
    : X  ~9 w6 D. x) u1 \! d
68.     End Sub
    
69.     '当前文档文件名
    
70.     Function AskDisplatyPartName() As String
    : u4 M! n3 y0 a; ]3 G
71.         Dim UFS As UFSession = UFSession.GetUFSession()
    5 S6 U( K/ |" d# M# H$ n
72.         Dim part_name As String = ""
    7 p( Y4 p) H9 p8 ^! ^6 s
73.         Dim part_tag As NXOpen.Tag = UFS.Part.AskDisplayPart
    0 Z( E' [) x) [4 f9 y6 d" x
74.         UFS.Part.AskPartName(part_tag, part_name)
    
75.         Dim aa() As String
    8 O! V& `6 m/ h1 A' D( M# y
76.         Dim bb() As String
    9 a1 f; E3 S5 A' T( ^6 ~
77.         aa = Split(part_name, ".prt")
    
78.         part_name = aa(0)
    
79.         bb = Split(part_name, "")
    
80.         part_name = bb(bb.Length - 1)
    
81.         Return part_name
    
82.     End Function
    . q7 I" j' k  J: y
83.     '取加工几何试图程序组
    5 U8 s# S* O% W/ l) \9 ~
84.     Function GetGemoGroup_Name(ByVal camObjectTag As NXOpen.Tag) As String
    
85.         Dim theGemoGroup_Tag As NXOpen.Tag
    : z9 w+ Z! e  M% h4 `8 Q
86.         Dim GemoGroupName As String = ""
    
87.         theUFSession.Oper.AskGeomGroup(camObjectTag, theGemoGroup_Tag)
    
88.         theUFSession.Obj.AskName(theGemoGroup_Tag, GemoGroupName)
    0 z3 a6 s+ z2 z. T4 s3 ~% r
89.         Return GemoGroupName
    
90.     End Function
    
91. 
    ; W3 ^; h9 c6 r( b
92.     '取操作名称
    3 W( j5 }! h" c2 C" g
93.     Function GetToolPathName(ByVal camObjectTag As NXOpen.Tag) As String
    : x: }+ u/ F1 d( `% ~4 q3 E
94.         Dim ToolPathName As String = ""
    
95.         theUFSession.Oper.AskNameFromTag(camObjectTag, ToolPathName)
    # y/ x- q3 O, @! @$ F# h
96.         Return ToolPathName
    ( ]- S2 {+ d# q4 W! j
97.     End Function
    9 a- G: A* t+ K* T
98.     '获取刀具名称
    
99.     Function GetToolName(ByVal camObjectTag As NXOpen.Tag) As String
    
100.         Dim ToolName As String = ""
     
101.         Dim ToolTag As NXOpen.Tag
     ' t1 Y& R+ W5 b' Q6 ^
102.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
103.         theUFSession.Obj.AskName(ToolTag, ToolName)
     2 S8 A1 G  Z$ d; c
104.         Return ToolName
     1 ?! o5 I. ^  i$ Q/ p
105.     End Function
     : @8 ]# g1 L" ^$ e
106.     '获取刀具号码
     ! X0 W+ @3 i) I2 p( U4 o* |1 E
107.     Function GetToolNumber(ByVal camObjectTag As NXOpen.Tag) As Integer
     - d  p8 _/ G+ S* Y6 v) ^
108.         Dim ToolTag As NXOpen.Tag
     " f# S+ U  h! J/ J5 d3 q
109.         Dim ToolNumber As Integer
     
110.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     % l, }3 R* C* ~. P+ C1 w9 d
111.         theUFSession.Param.AskIntValue(ToolTag, UFConstants.UF_PARAM_TL_NUMBER, ToolNumber)
     
112.         Return ToolNumber
     
113.     End Function
     & j  Y4 U- R  ]
114.     '获取刀具长度
     3 k% n0 ?2 u) V5 u8 o! v5 ~
115.     Function GetToolHeight(ByVal camObjectTag As NXOpen.Tag) As Double
     ' h8 a$ _1 |. n' K5 @% K$ }
116.         Dim ToolTag As NXOpen.Tag
     
117.         Dim ToolHeight As Double
     
118.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     # Z4 {. H4 u3 ]# p' W
119.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_HEIGHT, ToolHeight)
     
120.         Return ToolHeight
     ( k; g1 q- p/ n, o: }
121.     End Function
     % [2 F, Z- B/ Z) W+ \( e
122.     '获取刀具直径
     
123.     Function GetToolDiameter(ByVal camObjectTag As NXOpen.Tag) As Double
     
124.         Dim ToolTag As NXOpen.Tag
     " m  C- R9 a, V" t
125.         Dim ToolDiameter As Double
     
126.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
127.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_DIAMETER, ToolDiameter)
     4 H1 _9 e; H# r
128.         Return ToolDiameter
     
129.     End Function
     
130.     '获取刀具刃长
     
131.     Function GetToolFluteLength(ByVal camObjectTag As NXOpen.Tag) As Double
     # c' h, L0 q' q1 ^
132.         Dim ToolTag As NXOpen.Tag
     
133.         Dim ToolFluteLength As Double
     0 E- I" d$ U; _* o5 f
134.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     . h3 }8 |+ H( H$ }) j
135.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_FLUTE_LN, ToolFluteLength)
     4 C7 d" ^, q7 ]0 c) a0 }/ A& A
136.         Return ToolFluteLength
     $ W  C$ \1 T& Z; _
137.     End Function
     3 \; ?/ E4 v! e8 m9 O, F
138.     '获取刀具R角
     3 W3 c/ L* t9 u8 N" Q2 F0 t; z' K
139.     Function GetToolCornerRadius(ByVal camObjectTag As NXOpen.Tag) As Double
     
140.         Dim ToolTag As NXOpen.Tag
     
141.         Dim ToolCornerRadius As Double
     
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.     '取部件侧部余量
     ! @& Y$ m% `6 C, A. Z& \6 B
147.     Function GetStockPart(ByVal camObjectTag As NXOpen.Tag) As Double
     9 ]4 V& s6 l0 X7 ?- \
148.         Dim StockPart As Double
     
149.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_STOCK_PART, StockPart)
     
150.         Return StockPart
     $ o+ ]  \# L+ y) G5 E0 U
151.     End Function
     
152.     '取部件底部余量
     
153.     Function GetStockFloor(ByVal camObjectTag As NXOpen.Tag) As Double
     
154.         Dim Stockfloor As Double
     7 Y( w5 Y4 N; V5 P2 X8 R
155.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_STOCK_FLOOR, Stockfloor)
     % ^( }* B% a6 r: K# f% v* A+ I
156.         Return Stockfloor
     ' ^9 X# K6 [5 \+ J" n. o
157.     End Function
     
158. 
     . _: h! U4 N' t% [: x
159.     '取主轴转速
     $ y, {3 y8 Z& U! a
160.     Function GetSpeedValue(ByVal camObjectTag As NXOpen.Tag) As Double
     
161.         Dim SpeedVale As Double
     $ Y% c) ^8 l  m% U
162.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_SPINDLE_RPM, SpeedVale)
     8 _+ u/ n" Y" z! M6 m0 z1 T9 N
163.         Return SpeedVale
     ' L) X. u1 J0 T. D" v
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)
     4 }: l: a) j/ l6 I) n+ f
169.         Dim params(0) As CAM.Operation
     
170.         params(0) = CType(_camObject, Operation)
     " V# G  M6 z1 h9 e" O! R  I( s( E3 W
171.         Dim FeedsBuilder1 As ObjectsFeedsBuilder = theSession.Parts.Work.CAMSetup.CreateFeedsBuilder(params)
     
172.         FeedValue = FeedsBuilder1.FeedsBuilder.FeedCutBuilder.Value
     8 u8 P( m. X3 _. _7 g7 }7 W
173.         FeedsBuilder1.Destroy()
     4 v0 v" P& n; I
174.         Return FeedValue
     
175.     End Function
     
176.     '取切削时间
     2 F" K9 g' P0 r2 J: T6 g
177.     Function GetCutTime(ByVal camObjectTag As NXOpen.Tag) As Double
     ; ]: }; B+ ~7 T& P( O( Z# g/ B2 ~5 [
178.         Dim CutTime As Double
     
179.         theUFSession.Param.AskDoubleValue(camObjectTag, 142, CutTime)
     4 k5 \/ e; s! ]7 s! F3 A$ J
180.         Return CutTime
     
181.     End Function
     
182. 
     7 i4 l$ P& ^, o1 U, L# g
183.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     ; R- T' E1 Q+ X. p, M; Z) @
184. 
     " D% I2 v: T8 B6 u
185.         'Unloads the image immediately after execution within NX
     
186.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
     / \4 B. ~2 N$ |, `4 O
187. 
     , P7 {$ j) m! E6 P/ J
188.         '----Other unload options-------
     8 w) U! Q& u1 P0 R
189.         'Unloads the image when the NX session terminates
     2 y$ b, F0 c- x+ q. A
190.         'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     
191. 
     7 ~7 N7 Z1 m: H* ^% n
192.         'Unloads the image explicitly, via an unload dialog
     
193.         'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
     
194.         '-------------------------------
     
195. 
     
196.     End Function
     
197. 
     # e6 }, ]2 ]& Z5 x
198. 
     
199. End Module
     
200. 
     9 ^4 d0 Z9 A+ F  n& n# S6 h" F
201. Public Class MY_EXCEL
     6 F" p+ V8 I4 L: X
202.     Private app As Object
     
203.     Private book As Object
     
204.     Private sheet As Object
     8 _4 c: h3 `& ^4 D
205.     '表格名称
     
206.     Public Property xlSheetName() As String
     7 @# H  }! s) @; J; h
207.         Get
     
208.             Return sheet.Name
     
209.         End Get
     
210.         Set(ByVal value As String)
     
211.             sheet.Name = value
     1 l5 {1 K( [2 k  o4 m: C
212.         End Set
     
213.     End Property
     
214.     '新建程序
     8 h; R6 y5 X+ B1 f8 D
215.     Public Function Create() As Boolean
     8 m, W* W' q- F& \) G- f8 {$ E
216.         app = CreateObject("Excel.Application")
     
217.         If app Is Nothing Then
     
218.             Return False
     5 B/ U: d9 ~( o" f& B4 X
219.         Else
     5 G5 |0 @( v9 C) ~- j) Z0 M# q% d
220.             app.Visible = True
     2 o& [1 I8 g9 U/ B5 m- t: E
221.             Return True
     
222.         End If
     1 r1 [! Q) x: j$ w
223.     End Function
     
224.     '打开文件
     . r0 G& Z: I; a4 S" U
225.     Public Sub Open(ByVal xlFileName As String)
     8 \# X& f2 ?: ]( d) k7 J
226.         book = app.Workbooks.Open(xlFileName)
     
227.         sheet = book.ActiveSheet
     
228.     End Sub
       u/ @* d2 n: M$ I
229.     '写单元格
     6 R$ x- R. `: b) P! d5 T+ @( c
230.     Public Sub Write(ByVal _Range As String, ByVal value As Object)
     
231.         If _Range <> "" Then
     
232.             sheet.Range(_Range).Value = value
     8 E3 Q: d1 H" P; c* O$ Y
233.         End If
     + N& Q; H5 }; o, D# f
234.     End Sub
     7 c) l. K4 U7 x$ K8 g( r- v' J$ B
235.     '插入图片
     ) n0 b) m7 S% ~& @2 e
236.     Public Sub InsertPicture(ByVal _Range As String, ByVal imageFile As String)
     & P8 t7 A# P! N
237.         If _Range <> "" Then
     
238.             Dim ExcelRange As Object = sheet.Range(_Range)
     : z# f% i# N& n1 q2 b& }1 ?
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)
     
243.             Dim ScaleHW As Double = Math.Min(HeightScale, WidthScale)
     - \6 e1 c# A$ G; k
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
     
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)
     ; K7 |0 O& C# T# U/ k
251.         Return sheet.Range(_Range).value
     
252.     End Function
     2 F2 u+ d! l- S8 u
253.     Public Function Save() As Boolean
     
254.         book.Save()
     ; J! Z8 R) p& H1 O6 A) E
255.     End Function
     
256.     Public Function SaveAs() As Boolean
     
257.         Dim Sdlg As SaveFileDialog = New SaveFileDialog '定义一个保存对话框
     6 E  d, a6 w6 L* Y9 t
258.         Sdlg.FileName = AskDisplatyPartName() + "加工工序单.xls" '保存对话框的默认文件名
     
259.         Sdlg.Filter = "EXCEL档案(*.xls)|*.xls" '过滤器设置
     
260.         If Sdlg.ShowDialog = Windows.Forms.DialogResult.OK Then '如果保存对话框的确认按钮被按下
     
261.             book.SaveAs(Sdlg.FileName) '保存文件
     
262.         End If
     
263.     End Function
     ' U; u6 K+ \5 W/ \
264.     '结束EXCEL对象
     6 R, j* `5 r: z2 m) F$ W- Q
265.     Public Function Quit() As Boolean
     ( x. |# c5 l4 y* ]+ J8 f8 ]5 W
266.         book.close()
     - D: j5 h) R7 T& q
267.         app.Quit()
     6 T6 |1 f+ f! z9 k7 h
268.         app = Nothing
     
269.         GC.Collect()
     
270.     End Function
     
271. 
     
272.     '取数组
     
273.     Public Function GetArryValue(ByRef _table As Integer, ByVal _Row As String, ByVal _Cell As String, ByRef ArryString() As String) As Integer
     2 j2 W- F- h/ u! F* ]
274.         Dim sheet As Object = book.Sheets.Item(_table)
     
275.         Dim rowvalue As String = sheet.Range(_Row).value
       a  s' r- ~( ~, }
276.         Dim cellvalue As String = sheet.Range(_Cell).value
     * ^& u1 b' V7 s  O% P
277.         Dim k As Integer = 0
     
278.         If rowvalue <> "" And cellvalue <> "" Then
     " P2 F2 E" Q; O0 z4 a
279.             Dim rowstr() As String = Split(rowvalue, "/")
     
280.             Dim cellstring() As String = Split(cellvalue, "/")
     
281.             Dim a, b, c, d As Integer
     : q1 T! Q% r. @8 o! U% c, a7 _
282.             If rowstr.Length > 1 And cellstring.Length > 0 Then
     
283.                 a = Convert.ToInt32(rowstr(0))
     
284.                 b = Convert.ToInt32(rowstr(1))
     3 x: V9 N# i+ G5 h
285.                 If a > 0 And b > a Then
     ' I& Z6 r& o" e) j4 i
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
     1 J% f" v6 `3 m. q  m, e
290.                     Next
     
291.                     If rowstr.Length > 3 And cellstring.Length > 1 Then
     
292.                         c = Convert.ToInt32(rowstr(2))
     9 q+ T" x$ N* E3 @8 d1 ?
293.                         d = Convert.ToInt32(rowstr(3))
     9 H* B, X) A/ c+ G
294.                         If c > 0 And d > c Then
     3 R* ^* B& [- h' |9 G; V+ p
295.                             ReDim Preserve ArryString(b - a + d - c + 1)
     ; y+ U3 \' b1 g/ j8 q- X
296.                             For j As Integer = 0 To d - c
     0 @, `. b" N% g: m
297.                                 ArryString(b - a + j + 1) = cellstring(1) & Convert.ToString(c + j)
     
298.                                 k += 1
     ' N+ m+ A, ]" v' `& s! w( C: g
299.                             Next
     
300.                         End If
     9 m5 E. z1 q* a* Q, |- G
301.                     End If
     ( I, G1 M# G" t0 P4 K
302.                 End If
     $ c  a* j9 ?. n, C
303.             End If
     & S+ U8 ^( F; n  g$ V# A' A
304.         End If
     5 F. l: m5 d# Z1 q
305.         Return k
     
306.     End Function
     0 M  g# H: S" Z* n
307. End Class

复制代码

# q( a  f: ?/ l2 y; j" h9 U