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

admin

3 a7 O( p$ z  d) Y. D* |4 u

1. Option Strict Off
   
2. Imports System
   
3. Imports System.IO
   
4. Imports NXOpen
   
5. Imports NXOpen.CAM
   ! p0 e1 k" H5 X+ V8 [5 J/ \2 g
6. Imports NXOpen.UF
   $ @6 y, X5 d  V3 a9 D
7. Imports NXOpen.Utilities
   $ c+ y1 d& A3 u, U/ y/ n/ f& F$ z$ h
8. Imports System.Drawing
   ' X* ~( S( ~6 Z/ x1 G
9. Imports System.Windows.Forms
   
10. 
    
11. Module Module1
    
12.     Dim theSession As Session = Session.GetSession()
    7 c) L! e8 g( P' X' Y$ G
13.     Dim myUI As UI = UI.GetUI()
    1 a0 n: C- }4 f$ F
14.     Dim theUFSession As UFSession = UFSession.GetUFSession()
    
15.     Dim theWorkPart As Part = theSession.Parts.Work
    & z& e7 }' G" D6 g0 O$ o" X
16. 
    * L" B5 k7 e: ^1 w1 J
17.     Dim mytag() As NXOpen.Tag '选择的加工操作标记数组
    
18.     Dim mcount As Integer '选择的加工操作数量
    4 j2 q5 ^1 u, k+ x
19. 
    / T& d6 b- Z3 k1 p# V% d
20.     Sub Main()     
    
21. 
    4 N) W: c$ O: q
22.         Shell(Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\SnapPic.exe", AppWinStyle.NormalFocus, True)
    ; d. U8 V$ i: u/ v* X$ {, Q) Q
23. 
    
24.         Try
    & j4 ~0 ]- g1 ]" P  B( f; ^
25.             '获取选择的操作数
    
26.             theUFSession.UiOnt.AskSelectedNodes(mcount, mytag)
    
27.             If mcount = 0 Then
    $ g" b5 v* t6 J% Q# F
28.                 MsgBox("没有选择加工操作!", MsgBoxStyle.OkOnly, "提示信息")
    / _; J  G& B  w3 G
29.                 Exit Sub
    7 G. L* N/ ]* E7 W$ f2 |) d
30.             End If
    
31. 
    
32.             '设置车间文档EXCEL模板路径
    $ g5 X) T: s( O! v; R
33.             Dim fp As String = Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\WorkShop.xls"
    
34.             '打开与写出车间文档
    
35.             If String.IsNullOrEmpty(fp) = False Then
    
36.                 Dim myExcel As New MY_EXCEL
    
37.                 myExcel.Create()
    4 U" o" B# R/ O7 j1 m
38.                 myExcel.Open(fp)
    , ?3 F; ?& Y$ s5 N/ x
39.                 myExcel.Write("M4", AskDisplatyPartName())
    
40.                 myExcel.Write("S4", Format(Now, "yyyy/MM/dd"))
    ) X, V+ d& N+ i0 c. ]
41.                 myExcel.InsertPicture("b4", Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\jietu.jpg")
    ( H2 F/ V( F7 e$ O+ p
42.                 For i = 0 To mcount - 1
    1 |3 w: }" v- U  d/ G# \  |2 q
43.                     '输出结果
    2 p' `. N3 z- K/ G: v! ~
44.                     myExcel.Write("B" + (i + 17).ToString, (i + 1).ToString)
    
45.                     myExcel.Write("D" + (i + 17).ToString, GetGemoGroup_Name(mytag(i)))
    " a5 _. h- J! \8 ?# z
46.                     myExcel.Write("E" + (i + 17).ToString, GetToolPathName(mytag(i)))
    
47.                     myExcel.Write("F" + (i + 17).ToString, GetToolName(mytag(i)))
    ' ~# f( ]  D2 I& J5 Q# S, n! w3 |9 O
48.                     myExcel.Write("G" + (i + 17).ToString, GetToolNumber(mytag(i)).ToString)
    5 |6 m+ y( ?) q/ ~! L7 H
49.                     myExcel.Write("H" + (i + 17).ToString, GetToolDiameter(mytag(i)).ToString)
    8 c: |2 ~. D, i. ^* s$ R* {
50.                     myExcel.Write("I" + (i + 17).ToString, GetToolCornerRadius(mytag(i)).ToString)
    . K, t4 O2 Y8 \& G, O, A$ h
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)
    
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)
    $ b  N, ]3 E/ w: \
57.                     myExcel.Write("Q" + (i + 17).ToString, CInt(GeTCutTime(mytag(i))).ToString)
    
58. 
    / ]2 D( K  _; h) R9 I' x
59.                 Next
    
60.                 myExcel.SaveAs()
    8 F; H2 _# Q( w7 X5 _& p) V6 @* \; e
61.                 'myExcel.Quit()
    9 B, [6 `* _! q- T
62.             End If
    
63.             '出错处理：
    6 V( H7 P# ^( i( m, C$ v% |
64.         Catch ex As Exception
    1 ^7 n9 G) L8 d
65.             MsgBox(ex)
    * o0 |1 m' J9 _" Q; F! |
66.         End Try
    
67. 
    * ?$ v5 E' [2 E' i' z" u' B
68.     End Sub
    
69.     '当前文档文件名
    7 U$ y2 e% ?8 C6 E
70.     Function AskDisplatyPartName() As String
    
71.         Dim UFS As UFSession = UFSession.GetUFSession()
    " y7 ~2 R* \( ]1 i7 z: I
72.         Dim part_name As String = ""
    ' _4 N5 V7 ?4 H7 ?( Q; k
73.         Dim part_tag As NXOpen.Tag = UFS.Part.AskDisplayPart
    $ u+ i# F( O+ P! L- N. i
74.         UFS.Part.AskPartName(part_tag, part_name)
    0 s" n) E7 ^& g8 J
75.         Dim aa() As String
    
76.         Dim bb() As String
    # u; k; J9 |5 @. v% V0 h
77.         aa = Split(part_name, ".prt")
    / T$ o0 ?  U* D5 c
78.         part_name = aa(0)
    , J$ ~. V7 t" ~' ]& x4 g
79.         bb = Split(part_name, "")
    
80.         part_name = bb(bb.Length - 1)
    0 v1 R+ C; W$ W% q$ N* T4 [4 i
81.         Return part_name
    
82.     End Function
      r  T8 F% \8 y6 p5 I" }4 V
83.     '取加工几何试图程序组
    4 x0 \+ ]$ H6 z& Z: `9 J5 h7 ]
84.     Function GetGemoGroup_Name(ByVal camObjectTag As NXOpen.Tag) As String
    + b5 y# }  Y$ m6 f
85.         Dim theGemoGroup_Tag As NXOpen.Tag
    
86.         Dim GemoGroupName As String = ""
    * ^. N# |" E( Q% T- A
87.         theUFSession.Oper.AskGeomGroup(camObjectTag, theGemoGroup_Tag)
    ; F5 M4 H4 M+ M
88.         theUFSession.Obj.AskName(theGemoGroup_Tag, GemoGroupName)
    9 R: y4 R+ _* f* f3 }" f8 B2 G9 M
89.         Return GemoGroupName
    
90.     End Function
    
91. 
    
92.     '取操作名称
    ' j5 L$ P7 r& p7 ^3 R
93.     Function GetToolPathName(ByVal camObjectTag As NXOpen.Tag) As String
    
94.         Dim ToolPathName As String = ""
    ; j7 ~9 _7 h: t, P
95.         theUFSession.Oper.AskNameFromTag(camObjectTag, ToolPathName)
    
96.         Return ToolPathName
    * x9 ]' \+ k% I# O
97.     End Function
    
98.     '获取刀具名称
    . E0 X9 G# h* w/ O% `+ W, t
99.     Function GetToolName(ByVal camObjectTag As NXOpen.Tag) As String
    2 t8 x( ?" P0 f5 e7 E/ o& t
100.         Dim ToolName As String = ""
     1 O5 Z8 L4 @+ X6 s
101.         Dim ToolTag As NXOpen.Tag
     0 z, z8 H, N7 e& L& b4 A9 Z
102.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
103.         theUFSession.Obj.AskName(ToolTag, ToolName)
     
104.         Return ToolName
     7 J1 H6 f: D; [! x$ Y
105.     End Function
     ; |" J2 L% g0 C) @% t* h
106.     '获取刀具号码
     ! y1 w$ x! |" H$ s  X
107.     Function GetToolNumber(ByVal camObjectTag As NXOpen.Tag) As Integer
     " U- @# J- v9 X) E
108.         Dim ToolTag As NXOpen.Tag
     
109.         Dim ToolNumber As Integer
     9 c! S' e0 [5 V, Q
110.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
111.         theUFSession.Param.AskIntValue(ToolTag, UFConstants.UF_PARAM_TL_NUMBER, ToolNumber)
     
112.         Return ToolNumber
     
113.     End Function
     
114.     '获取刀具长度
     
115.     Function GetToolHeight(ByVal camObjectTag As NXOpen.Tag) As Double
     
116.         Dim ToolTag As NXOpen.Tag
     $ t* N. `' r9 ?6 b% W# @
117.         Dim ToolHeight As Double
     
118.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     3 t8 o: K& L/ ?
119.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_HEIGHT, ToolHeight)
     5 A; E9 ], L6 H
120.         Return ToolHeight
     
121.     End Function
     
122.     '获取刀具直径
     
123.     Function GetToolDiameter(ByVal camObjectTag As NXOpen.Tag) As Double
     
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)
     " p' u. x& `5 o& M' x4 A; U
128.         Return ToolDiameter
     1 K) T0 d! n8 [1 ~' O
129.     End Function
     ' |6 L9 x+ N2 e9 S; n7 Z3 X
130.     '获取刀具刃长
     , X' F7 |* M& |' [9 E# v! e' h
131.     Function GetToolFluteLength(ByVal camObjectTag As NXOpen.Tag) As Double
     
132.         Dim ToolTag As NXOpen.Tag
     " @, P7 }! \$ g6 a8 L0 S* J, G
133.         Dim ToolFluteLength As Double
     
134.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     & Y5 |/ r: ^' A- r6 T9 f
135.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_FLUTE_LN, ToolFluteLength)
     
136.         Return ToolFluteLength
     6 z- K. z6 G" H
137.     End Function
     
138.     '获取刀具R角
     3 Z5 m& c; V: R% K. _$ S8 a* v
139.     Function GetToolCornerRadius(ByVal camObjectTag As NXOpen.Tag) As Double
     
140.         Dim ToolTag As NXOpen.Tag
     " h; V' f# V% U! |; E8 [
141.         Dim ToolCornerRadius As Double
     9 i7 s) K0 S, m7 Q4 ^
142.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
143.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_COR1_RAD, ToolCornerRadius)
     / K6 D  U/ K9 j4 `! q3 \
144.         Return ToolCornerRadius
     0 T! {6 U, a# a* P
145.     End Function
     
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)
     + S  @! W& |5 n2 `1 V+ e
150.         Return StockPart
     / e& D4 Z  o, B4 s1 A( M+ N
151.     End Function
     % [; x- l- D# h! s( O
152.     '取部件底部余量
     ) h: g/ ^) m; M$ W3 N
153.     Function GetStockFloor(ByVal camObjectTag As NXOpen.Tag) As Double
     - j# `# G6 u& G: X. T9 v  C9 F
154.         Dim Stockfloor As Double
     ! T" M& i+ s4 l5 Q7 ~% i
155.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_STOCK_FLOOR, Stockfloor)
     : a) C8 d+ j+ y% O+ G% k
156.         Return Stockfloor
     
157.     End Function
     
158. 
     
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)
     9 @/ }) K0 E+ @1 V* [! R
163.         Return SpeedVale
     
164.     End Function
     - R. {$ b& e5 I& g6 V
165.     '取进给速度
     
166.     Function GetFeedValue(ByVal camObjectTag As NXOpen.Tag) As Double
       x% F' B( U7 k5 `* i( ~
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)
     
171.         Dim FeedsBuilder1 As ObjectsFeedsBuilder = theSession.Parts.Work.CAMSetup.CreateFeedsBuilder(params)
     ) g* o& X/ H) v. a) ]
172.         FeedValue = FeedsBuilder1.FeedsBuilder.FeedCutBuilder.Value
       D3 u$ g: ]0 B% I5 V. L: x  B
173.         FeedsBuilder1.Destroy()
     * C7 y; N1 v* Y: e" K
174.         Return FeedValue
     : [- M9 r6 v- e7 m! v  z+ r+ e7 s
175.     End Function
     % n$ e, t$ v" n: N
176.     '取切削时间
     
177.     Function GetCutTime(ByVal camObjectTag As NXOpen.Tag) As Double
     
178.         Dim CutTime As Double
     
179.         theUFSession.Param.AskDoubleValue(camObjectTag, 142, CutTime)
     
180.         Return CutTime
     " R" E1 @4 H1 w) T6 s
181.     End Function
     ! T( Q2 p& x' V7 j
182. 
     + Y0 Q" q# b, `0 E2 |! A/ t. h
183.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     
184. 
     
185.         'Unloads the image immediately after execution within NX
     1 l$ W7 B7 H1 R
186.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
     ! Q5 R7 @* g  i! I0 S) }8 ^. v
187. 
     
188.         '----Other unload options-------
     
189.         'Unloads the image when the NX session terminates
     
190.         'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     
191. 
     # n! Y' ^4 T1 E; t( J" W' g. r
192.         'Unloads the image explicitly, via an unload dialog
     / T/ P7 x! B6 \
193.         'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
     2 y+ q6 z" {8 A& C  A2 q
194.         '-------------------------------
     
195. 
     
196.     End Function
       D) B" U* t( K
197. 
     % j. O$ `) G) {! m& @8 b2 [
198. 
     , T4 c: y2 k$ _7 e7 d7 {
199. End Module
     
200. 
     
201. Public Class MY_EXCEL
     + M5 Y" H' M' k
202.     Private app As Object
     3 p& e) ]4 j1 h
203.     Private book As Object
     
204.     Private sheet As Object
     $ b+ p5 N0 _# R. x3 D
205.     '表格名称
     
206.     Public Property xlSheetName() As String
     8 t, N! X- |! ?" R1 x
207.         Get
     
208.             Return sheet.Name
     
209.         End Get
     
210.         Set(ByVal value As String)
     
211.             sheet.Name = value
     
212.         End Set
     4 I& n3 ^  M* s9 i, |' _
213.     End Property
     7 p1 Y- C4 R& k4 k; O% c/ \/ K: f# |
214.     '新建程序
     8 Z) d9 T: v! E, ^3 b  o* ]! C
215.     Public Function Create() As Boolean
     5 t" Z: W+ U/ L% d! U( S
216.         app = CreateObject("Excel.Application")
     
217.         If app Is Nothing Then
     8 _( Z( r6 t( _, [9 y& k
218.             Return False
     8 x4 b; s4 s9 S2 q& B8 t. R
219.         Else
     
220.             app.Visible = True
     1 a0 e/ R! x! v- G* M
221.             Return True
     2 n( [3 p) }6 p4 N
222.         End If
     
223.     End Function
     
224.     '打开文件
     
225.     Public Sub Open(ByVal xlFileName As String)
     
226.         book = app.Workbooks.Open(xlFileName)
     
227.         sheet = book.ActiveSheet
     3 [; y3 d8 s7 H# R
228.     End Sub
     
229.     '写单元格
     $ [! y7 f) F* P& u
230.     Public Sub Write(ByVal _Range As String, ByVal value As Object)
     
231.         If _Range <> "" Then
     5 O$ r5 i4 I0 t9 r
232.             sheet.Range(_Range).Value = value
     
233.         End If
     
234.     End Sub
     , I, I! |9 g* P2 m
235.     '插入图片
     
236.     Public Sub InsertPicture(ByVal _Range As String, ByVal imageFile As String)
       n( v1 q, V) y6 b* \
237.         If _Range <> "" Then
     
238.             Dim ExcelRange As Object = sheet.Range(_Range)
     
239.             Dim Ins_image As Image
     # {; [- K* d) K2 b
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)
     4 T* m3 z% s: y- N/ s: n/ n
243.             Dim ScaleHW As Double = Math.Min(HeightScale, WidthScale)
     $ l% o: ]0 y& |1 W2 x
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
       x; M$ j! }! M* ~$ y8 n
247.     End Sub
     
248.     '取指定单元格值
     
249.     Public Function GetValue(ByVal _table As Integer, ByVal _Range As String) As String
     0 s" z9 y6 f8 X
250.         Dim sheet As Object = book.Sheets.Item(_table)
     8 q1 X( ^4 Q' @) {2 x# ~# ?+ U/ u
251.         Return sheet.Range(_Range).value
     $ [, |  C- `9 w
252.     End Function
     5 o8 n3 G/ e& y  B+ Y5 L
253.     Public Function Save() As Boolean
     8 p! Q- B( f! K) Y( P0 d
254.         book.Save()
     + d4 O( Q( o! w3 O6 f
255.     End Function
     4 ]1 B) @* j( Q3 g* t' z$ C
256.     Public Function SaveAs() As Boolean
     ! c8 B5 m( R0 D% r' ?5 L9 M: [5 ~
257.         Dim Sdlg As SaveFileDialog = New SaveFileDialog '定义一个保存对话框
     + N* z; b' g" M9 @  T& J
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) '保存文件
     - p4 p; T4 G  _2 n7 S1 \
262.         End If
     . ~: c4 G$ h0 X* K/ ~
263.     End Function
     
264.     '结束EXCEL对象
     
265.     Public Function Quit() As Boolean
     " ~9 W* |' |+ w+ P8 e
266.         book.close()
     - R6 v5 `3 ?  C. w, v
267.         app.Quit()
     
268.         app = Nothing
     6 a/ b2 @; |) ?, w
269.         GC.Collect()
     
270.     End Function
     
271. 
     ) {1 }% l4 z$ g% n6 z% ]+ A
272.     '取数组
     
273.     Public Function GetArryValue(ByRef _table As Integer, ByVal _Row As String, ByVal _Cell As String, ByRef ArryString() As String) As Integer
     : ]! U) A. C* h% a3 h
274.         Dim sheet As Object = book.Sheets.Item(_table)
     * {/ T$ u; Q, h8 Z
275.         Dim rowvalue As String = sheet.Range(_Row).value
     : d' u. P6 S* Z8 d
276.         Dim cellvalue As String = sheet.Range(_Cell).value
     
277.         Dim k As Integer = 0
     
278.         If rowvalue <> "" And cellvalue <> "" Then
     ( q( r! v- B; _0 d, c; A5 t
279.             Dim rowstr() As String = Split(rowvalue, "/")
     ) t5 v" Y  f" t& K+ R0 c
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
     
283.                 a = Convert.ToInt32(rowstr(0))
     * B- W2 O8 R  J7 a  T
284.                 b = Convert.ToInt32(rowstr(1))
     ) _! _2 I. f1 B0 P; B
285.                 If a > 0 And b > a Then
     ; R/ S3 F8 p) m2 D
286.                     ReDim Preserve ArryString(b - a)
     
287.                     For i As Integer = 0 To b - a
     + P. H6 Z: i3 u' o$ e1 D' n
288.                         ArryString(i) = cellstring(0) & Convert.ToString(a + i)
     * g9 ]# f3 w' Q" W# V7 A
289.                         k += 1
     + o6 Q  h7 J9 Y. i4 U. W& j
290.                     Next
     
291.                     If rowstr.Length > 3 And cellstring.Length > 1 Then
     
292.                         c = Convert.ToInt32(rowstr(2))
     
293.                         d = Convert.ToInt32(rowstr(3))
     . L( a) v' L) @2 i
294.                         If c > 0 And d > c Then
     
295.                             ReDim Preserve ArryString(b - a + d - c + 1)
     ! }  n0 h; i8 }0 F7 W
296.                             For j As Integer = 0 To d - c
     
297.                                 ArryString(b - a + j + 1) = cellstring(1) & Convert.ToString(c + j)
     4 Q9 k# X# @! n* y; e
298.                                 k += 1
     
299.                             Next
     . ]5 f: w; O) ]7 h% c' |
300.                         End If
     
301.                     End If
     ) F2 d! ]6 y( |, W; ?6 R# o
302.                 End If
     
303.             End If
       M2 l* e! C# q4 ]
304.         End If
     
305.         Return k
     ) g: J! D- m' ~/ N# M6 e
306.     End Function
     . p+ S) \- @5 z1 O0 B
307. End Class

复制代码

" O" Z3 t, L5 G
( I: _) p! x! D8 N9 E# ]2 n