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

admin

5 w5 d3 z* }% m% ]( b. Q

1. Option Strict Off
   
2. Imports System
   
3. Imports System.IO
   # s5 g' Z+ j0 U+ o1 ?
4. Imports NXOpen
   ( C( _  J. X" V; f' q$ G
5. Imports NXOpen.CAM
   
6. Imports NXOpen.UF
   3 v; V) F7 e" Z. v- b+ O
7. Imports NXOpen.Utilities
   
8. Imports System.Drawing
   4 z# e0 _0 I: u0 y
9. Imports System.Windows.Forms
   
10. 
    ' u6 ]7 b$ [3 s, g% \! p  A1 M
11. Module Module1
    ; X+ j  _2 Y" V6 l& ^, v% R- I* N
12.     Dim theSession As Session = Session.GetSession()
    
13.     Dim myUI As UI = UI.GetUI()
    . p$ j4 C9 a. [5 F: o  C! F
14.     Dim theUFSession As UFSession = UFSession.GetUFSession()
    
15.     Dim theWorkPart As Part = theSession.Parts.Work
    
16. 
    0 K. L$ z4 s1 h
17.     Dim mytag() As NXOpen.Tag '选择的加工操作标记数组
    ' H$ R7 p" T1 v7 I# p: E
18.     Dim mcount As Integer '选择的加工操作数量
    
19. 
    
20.     Sub Main()     
    . E* k5 d  M8 h& ?5 Q
21. 
    
22.         Shell(Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\SnapPic.exe", AppWinStyle.NormalFocus, True)
    
23. 
    9 ^7 v: ]0 H* G% P8 H
24.         Try
    6 J* o( B% R9 x' L! S
25.             '获取选择的操作数
    . a8 A* v+ C2 o9 ]( ^
26.             theUFSession.UiOnt.AskSelectedNodes(mcount, mytag)
    
27.             If mcount = 0 Then
    : f( z  G1 W5 @
28.                 MsgBox("没有选择加工操作!", MsgBoxStyle.OkOnly, "提示信息")
    
29.                 Exit Sub
    
30.             End If
    1 O! o5 p- [3 G6 @' T9 Q$ W7 e
31. 
    
32.             '设置车间文档EXCEL模板路径
    # {( H  r" q3 L
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()
    3 _6 E  U9 t' 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")
    
42.                 For i = 0 To mcount - 1
    2 q& G) u  l% [7 c+ {- _
43.                     '输出结果
    
44.                     myExcel.Write("B" + (i + 17).ToString, (i + 1).ToString)
    6 V& K* J. T0 [2 l: q
45.                     myExcel.Write("D" + (i + 17).ToString, GetGemoGroup_Name(mytag(i)))
    9 Q8 z5 Z8 g7 G2 O  ~6 a* b& D
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)
    
50.                     myExcel.Write("I" + (i + 17).ToString, GetToolCornerRadius(mytag(i)).ToString)
    + _7 F: X* I  v) u& q% B) Z: o
51.                     myExcel.Write("J" + (i + 17).ToString, GetToolHeight(mytag(i)).ToString)
    . n. z3 r0 ]/ w4 `5 P' B: J
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)
    , p& W- j1 r9 M. M7 u& G
55.                     myExcel.Write("N" + (i + 17).ToString, GetSpeedValue(mytag(i)).ToString)
    . |! C9 t8 E/ k6 X6 x) @
56.                     myExcel.Write("O" + (i + 17).ToString, GetFeedValue(mytag(i)).ToString)
    + t. j5 y$ p9 I: X6 U& a
57.                     myExcel.Write("Q" + (i + 17).ToString, CInt(GeTCutTime(mytag(i))).ToString)
    
58. 
    
59.                 Next
    
60.                 myExcel.SaveAs()
    
61.                 'myExcel.Quit()
    
62.             End If
    ! M( z( `+ \) w5 x$ V
63.             '出错处理：
    
64.         Catch ex As Exception
    
65.             MsgBox(ex)
    # V& c$ _3 f6 |4 b% s8 _  L
66.         End Try
    
67. 
    ' w) W: N0 [; g5 V! P5 v
68.     End Sub
    
69.     '当前文档文件名
    + U" i- T; u5 J. X
70.     Function AskDisplatyPartName() As String
    
71.         Dim UFS As UFSession = UFSession.GetUFSession()
    / p4 l- J" J/ ?1 m/ b
72.         Dim part_name As String = ""
    ) w; A) b6 ?; T9 i) x9 x! g' T
73.         Dim part_tag As NXOpen.Tag = UFS.Part.AskDisplayPart
    + g' }1 F( ?: j* K% I5 B( ~9 z
74.         UFS.Part.AskPartName(part_tag, part_name)
    
75.         Dim aa() As String
    ' r7 a8 B- t& A+ E! R9 x
76.         Dim bb() As String
    # ?$ r4 {6 X5 I5 j0 a( w
77.         aa = Split(part_name, ".prt")
    
78.         part_name = aa(0)
    ) `/ {* e% G. s5 Q6 Z
79.         bb = Split(part_name, "")
    
80.         part_name = bb(bb.Length - 1)
    * F) [/ \5 V5 M/ M5 ^$ Q
81.         Return part_name
    
82.     End Function
    ) p# z6 d  }1 }2 u4 d  G% F
83.     '取加工几何试图程序组
    8 @- T! ^9 x- c& m! m' k$ t- {
84.     Function GetGemoGroup_Name(ByVal camObjectTag As NXOpen.Tag) As String
    / \- b+ L# c3 z
85.         Dim theGemoGroup_Tag As NXOpen.Tag
    # S  J7 g& O! I1 e2 a) c7 O1 u! B
86.         Dim GemoGroupName As String = ""
    
87.         theUFSession.Oper.AskGeomGroup(camObjectTag, theGemoGroup_Tag)
    
88.         theUFSession.Obj.AskName(theGemoGroup_Tag, GemoGroupName)
    
89.         Return GemoGroupName
    ' d9 k- M; `5 H: E/ c8 R
90.     End Function
    ' k( {8 d/ ?; B# `6 S( O
91. 
    
92.     '取操作名称
    ' z/ X0 G& `- n, L' I  m
93.     Function GetToolPathName(ByVal camObjectTag As NXOpen.Tag) As String
    
94.         Dim ToolPathName As String = ""
    
95.         theUFSession.Oper.AskNameFromTag(camObjectTag, ToolPathName)
    
96.         Return ToolPathName
    * y, A# Z: o& O0 E# M8 F9 c1 n2 M1 G
97.     End Function
    
98.     '获取刀具名称
    
99.     Function GetToolName(ByVal camObjectTag As NXOpen.Tag) As String
    
100.         Dim ToolName As String = ""
     8 a4 e/ _  N' o+ }8 X9 q9 J7 m2 ^% b) x- e
101.         Dim ToolTag As NXOpen.Tag
     
102.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     2 K' k; g# W9 }+ H
103.         theUFSession.Obj.AskName(ToolTag, ToolName)
     - M" L, z. _/ j) ]4 p: J
104.         Return ToolName
     " u8 A8 {- w* M8 S' t
105.     End Function
     + @7 @7 k' O! o! ]3 ~0 x+ z- P$ Q3 |
106.     '获取刀具号码
     
107.     Function GetToolNumber(ByVal camObjectTag As NXOpen.Tag) As Integer
     : n( E( B+ k+ Z: e8 L& j$ V: {4 J+ @& Q
108.         Dim ToolTag As NXOpen.Tag
     1 b$ Q% J7 T3 b" @+ W4 A  c
109.         Dim ToolNumber As Integer
     
110.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
111.         theUFSession.Param.AskIntValue(ToolTag, UFConstants.UF_PARAM_TL_NUMBER, ToolNumber)
     & T' r- x* J1 q& e$ X# b$ C5 Z: E
112.         Return ToolNumber
     2 A3 [- Y! c- A1 T5 O, R# @
113.     End Function
     5 w# g- x0 n) ]3 {* K3 {
114.     '获取刀具长度
     
115.     Function GetToolHeight(ByVal camObjectTag As NXOpen.Tag) As Double
     
116.         Dim ToolTag As NXOpen.Tag
     ) b1 b9 Y/ b: H$ a
117.         Dim ToolHeight As Double
     $ b: w/ C+ g; o
118.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
119.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_HEIGHT, ToolHeight)
     4 E/ `. l2 {7 A/ j
120.         Return ToolHeight
     
121.     End Function
     
122.     '获取刀具直径
     ; ~4 @3 \: Y- G" x- v
123.     Function GetToolDiameter(ByVal camObjectTag As NXOpen.Tag) As Double
     
124.         Dim ToolTag As NXOpen.Tag
     
125.         Dim ToolDiameter As Double
     0 h$ v1 r$ p5 s$ i
126.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     $ }5 \' E  A" e7 C: z. K+ I: ^
127.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_DIAMETER, ToolDiameter)
     # o; |, `6 C" a( s
128.         Return ToolDiameter
     
129.     End Function
     . m  h! M! i, B6 |& E# P
130.     '获取刀具刃长
     , I+ z8 V" J: Q- i) f
131.     Function GetToolFluteLength(ByVal camObjectTag As NXOpen.Tag) As Double
     2 [/ ?% `2 s/ t
132.         Dim ToolTag As NXOpen.Tag
     : K) D  O2 D% P' o1 P
133.         Dim ToolFluteLength As Double
     
134.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
135.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_FLUTE_LN, ToolFluteLength)
     ) P( C" V& b- M3 K
136.         Return ToolFluteLength
     
137.     End Function
     % `8 g' Z4 _) \& F7 o# x9 k- z
138.     '获取刀具R角
     2 y. U# L; W$ u* A8 \. h
139.     Function GetToolCornerRadius(ByVal camObjectTag As NXOpen.Tag) As Double
     # K" ?6 _( ?9 d+ R4 c
140.         Dim ToolTag As NXOpen.Tag
     1 j0 k9 V' ~$ k$ [6 S/ G) |7 o0 Y' ^
141.         Dim ToolCornerRadius As Double
     # f! k5 g% e  T4 N
142.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     9 }5 z) _/ I& g
143.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_COR1_RAD, ToolCornerRadius)
     
144.         Return ToolCornerRadius
     , ]+ n/ m: l+ \
145.     End Function
     
146.     '取部件侧部余量
     
147.     Function GetStockPart(ByVal camObjectTag As NXOpen.Tag) As Double
     
148.         Dim StockPart As Double
     7 p$ z+ j7 h2 t$ k( h0 s( ^
149.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_STOCK_PART, StockPart)
     
150.         Return StockPart
     
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)
     : X5 T! {; N$ f, i4 Q# A6 M% E: d
156.         Return Stockfloor
     2 R6 A4 j# g$ f
157.     End Function
     8 g' r! ~" o0 C0 J0 {8 y
158. 
     
159.     '取主轴转速
     
160.     Function GetSpeedValue(ByVal camObjectTag As NXOpen.Tag) As Double
     ( m* g. Z" ]) Y& h2 V. n" e
161.         Dim SpeedVale As Double
     ) A" o% z1 b6 `
162.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_SPINDLE_RPM, SpeedVale)
     
163.         Return SpeedVale
     # z) I; h! o* L& h# b
164.     End Function
     & c( f1 i2 u. s0 Y) X+ y+ S9 o
165.     '取进给速度
     
166.     Function GetFeedValue(ByVal camObjectTag As NXOpen.Tag) As Double
     # V# G* T9 T7 j
167.         Dim FeedValue As Double
     5 A4 u- f5 @8 S, m
168.         Dim _camObject As NXObject = NXObjectManager.Get(camObjectTag)
     
169.         Dim params(0) As CAM.Operation
     ; |" V' l2 ]/ D! {8 D
170.         params(0) = CType(_camObject, Operation)
     : y2 Y+ f2 e- Y7 g0 C. o
171.         Dim FeedsBuilder1 As ObjectsFeedsBuilder = theSession.Parts.Work.CAMSetup.CreateFeedsBuilder(params)
     ) s. z( c* b$ }  b+ c+ M
172.         FeedValue = FeedsBuilder1.FeedsBuilder.FeedCutBuilder.Value
     $ A# o4 r$ F! U4 }% ^% w" f
173.         FeedsBuilder1.Destroy()
     5 O4 E1 e$ k6 ^7 b6 i1 L
174.         Return FeedValue
       P( k8 G/ d* I& Z# X1 N
175.     End Function
     
176.     '取切削时间
     
177.     Function GetCutTime(ByVal camObjectTag As NXOpen.Tag) As Double
     
178.         Dim CutTime As Double
     ! C" x+ J/ r. X  g+ v! m' x/ N
179.         theUFSession.Param.AskDoubleValue(camObjectTag, 142, CutTime)
     
180.         Return CutTime
     
181.     End Function
     
182. 
     
183.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     ! N2 G7 S2 ~* e8 v9 ~
184. 
     8 X4 f: D  p- H# T
185.         'Unloads the image immediately after execution within NX
     
186.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
     
187. 
     
188.         '----Other unload options-------
     
189.         'Unloads the image when the NX session terminates
     
190.         'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     
191. 
     2 a' h6 V* x( ]0 i
192.         'Unloads the image explicitly, via an unload dialog
     9 h( C" `. P9 I0 k1 `) ~9 y
193.         'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
     
194.         '-------------------------------
     
195. 
     ' E& {% i, J% I* F. Y
196.     End Function
     
197. 
     
198. 
     
199. End Module
     
200. 
     ; @( S# ]( b: Q% @5 a! B3 U
201. Public Class MY_EXCEL
     8 x/ J9 p4 w+ ^5 S
202.     Private app As Object
     0 T) \$ Q) k$ }, Q5 g: r
203.     Private book As Object
     
204.     Private sheet As Object
     
205.     '表格名称
     ) j0 r3 [' _5 b( j* J
206.     Public Property xlSheetName() As String
     * O6 R2 Z  e3 c, s% F5 z- T
207.         Get
     
208.             Return sheet.Name
     
209.         End Get
     
210.         Set(ByVal value As String)
     
211.             sheet.Name = value
     5 w! W$ a8 T+ C+ A
212.         End Set
     
213.     End Property
     
214.     '新建程序
     2 _5 k- n' z, l  h9 j3 t
215.     Public Function Create() As Boolean
     
216.         app = CreateObject("Excel.Application")
     
217.         If app Is Nothing Then
     
218.             Return False
     + v, \1 ~8 {. [8 Z6 z! p( o( M  {' J
219.         Else
     
220.             app.Visible = True
     
221.             Return True
     
222.         End If
     
223.     End Function
     
224.     '打开文件
     ! m4 x2 r3 B  |* N, p
225.     Public Sub Open(ByVal xlFileName As String)
     * Z7 Y! X3 r# ^5 ]
226.         book = app.Workbooks.Open(xlFileName)
     & {/ {9 K/ Q5 a  d7 c# z
227.         sheet = book.ActiveSheet
     
228.     End Sub
     7 n/ \" E) K: B% O
229.     '写单元格
     
230.     Public Sub Write(ByVal _Range As String, ByVal value As Object)
     / g* Q' B  x$ K3 O+ j. g
231.         If _Range <> "" Then
     * g' d) S5 O  C5 q+ }! B+ \
232.             sheet.Range(_Range).Value = value
     
233.         End If
     
234.     End Sub
     $ I) R+ @% H9 |; U$ h6 J
235.     '插入图片
       h) x9 v8 z4 }) }. L; a( s
236.     Public Sub InsertPicture(ByVal _Range As String, ByVal imageFile As String)
     ) r) j: G- z& x4 Y- z7 p7 U
237.         If _Range <> "" Then
     & S2 K7 S, a9 I5 j9 ~8 w
238.             Dim ExcelRange As Object = sheet.Range(_Range)
     , d% ~! N& O' g% C6 N8 Y* Z
239.             Dim Ins_image As Image
     
240.             Ins_image = Image.FromFile(imageFile)
     ; I2 ?# e7 J) U. Q/ ^1 P8 U
241.             Dim HeightScale As Double = Math.Round((ExcelRange.Height * 12 - 6) / Ins_image.Height, 2)
     0 \/ o% F. q1 {
242.             Dim WidthScale As Double = Math.Round((ExcelRange.Width * 15 - 6) / Ins_image.Width, 2)
     
243.             Dim ScaleHW As Double = Math.Min(HeightScale, WidthScale)
     , t& c% y, ~, z: g: v1 \
244.             sheet.Shapes.AddPicture(imageFile, 0, 1, ExcelRange.Left + 2, ExcelRange.Top + 2, Ins_image.Width * ScaleHW, Ins_image.Height * ScaleHW)
     ) F# r# F/ n5 @% Q6 A9 J- O; ?
245.             Ins_image.Dispose()
     5 u- v+ @5 r5 L4 O+ _7 K4 x
246.         End If
       ^( [5 q+ f/ x: G; M
247.     End Sub
     : z: e  V5 P$ `: h. Q3 [( I9 S
248.     '取指定单元格值
     $ }: @) S; H) G: z
249.     Public Function GetValue(ByVal _table As Integer, ByVal _Range As String) As String
     4 m1 i2 H& e. @% J
250.         Dim sheet As Object = book.Sheets.Item(_table)
     
251.         Return sheet.Range(_Range).value
     
252.     End Function
     " b9 x# ]8 E5 d' Z! C# C) [* [* ]0 H
253.     Public Function Save() As Boolean
     ; K4 W' V7 i1 \
254.         book.Save()
     
255.     End Function
     , g! X- Z% D6 H1 D: q
256.     Public Function SaveAs() As Boolean
     
257.         Dim Sdlg As SaveFileDialog = New SaveFileDialog '定义一个保存对话框
     
258.         Sdlg.FileName = AskDisplatyPartName() + "加工工序单.xls" '保存对话框的默认文件名
     
259.         Sdlg.Filter = "EXCEL档案(*.xls)|*.xls" '过滤器设置
     , r4 `  e! U, R; k; k
260.         If Sdlg.ShowDialog = Windows.Forms.DialogResult.OK Then '如果保存对话框的确认按钮被按下
     
261.             book.SaveAs(Sdlg.FileName) '保存文件
     
262.         End If
     * b" `9 @( T, \
263.     End Function
     
264.     '结束EXCEL对象
     8 Z, b7 f% C8 ^; J
265.     Public Function Quit() As Boolean
     / q. O# a4 p9 i. n% x) f6 I
266.         book.close()
       R; l2 I2 m& D, M
267.         app.Quit()
     
268.         app = Nothing
     
269.         GC.Collect()
     8 A# }7 f: ?7 R- m/ p
270.     End Function
     : T/ `; K. {! j4 w
271. 
     # l6 j) F* [9 D: W
272.     '取数组
     
273.     Public Function GetArryValue(ByRef _table As Integer, ByVal _Row As String, ByVal _Cell As String, ByRef ArryString() As String) As Integer
     % P1 R. G: d( H/ j; X
274.         Dim sheet As Object = book.Sheets.Item(_table)
     
275.         Dim rowvalue As String = sheet.Range(_Row).value
     ; R6 R5 B# }" z1 h4 x1 J3 H
276.         Dim cellvalue As String = sheet.Range(_Cell).value
     ' t( F+ j  E( \! W; P
277.         Dim k As Integer = 0
     2 w5 D) w; F* T
278.         If rowvalue <> "" And cellvalue <> "" Then
     0 y8 l& v3 j- ^7 s, z) i
279.             Dim rowstr() As String = Split(rowvalue, "/")
     3 r$ r1 T) p& r2 Z# w9 E
280.             Dim cellstring() As String = Split(cellvalue, "/")
     
281.             Dim a, b, c, d As Integer
     # |  K# ~$ m; x2 w) s
282.             If rowstr.Length > 1 And cellstring.Length > 0 Then
     2 H( o  G( i5 M1 b4 `9 f/ {; m
283.                 a = Convert.ToInt32(rowstr(0))
     9 C! g( W* e, N+ h( M) ]
284.                 b = Convert.ToInt32(rowstr(1))
     - [1 N- _/ w% V
285.                 If a > 0 And b > a Then
     
286.                     ReDim Preserve ArryString(b - a)
     
287.                     For i As Integer = 0 To b - a
     ) ^- F( F% c/ t3 x$ y4 k4 g: f
288.                         ArryString(i) = cellstring(0) & Convert.ToString(a + i)
     7 O2 ~& v: {" E  E: ^
289.                         k += 1
     
290.                     Next
     1 X. [5 F; O  U% A' V5 G
291.                     If rowstr.Length > 3 And cellstring.Length > 1 Then
     
292.                         c = Convert.ToInt32(rowstr(2))
     " W8 c7 O' g3 X  w2 A
293.                         d = Convert.ToInt32(rowstr(3))
     
294.                         If c > 0 And d > c Then
     / {5 t" K! Q" v
295.                             ReDim Preserve ArryString(b - a + d - c + 1)
     6 H% M2 N. V9 y& L2 G) d( A: k
296.                             For j As Integer = 0 To d - c
     2 |& ^6 }4 m" I- K  u
297.                                 ArryString(b - a + j + 1) = cellstring(1) & Convert.ToString(c + j)
     ; X) ]; `0 Z9 X$ T- }
298.                                 k += 1
     5 g' J, Q4 g# U1 K6 n. |* J9 y
299.                             Next
     
300.                         End If
     / @9 w# K5 `* M
301.                     End If
     6 [6 i* W2 Y3 p- b- y* I
302.                 End If
     / e% B* `7 z# ?# U2 t
303.             End If
     7 A" d* w' l2 A" m/ Q
304.         End If
     / z: P/ O/ S0 ], R8 m( ]/ W
305.         Return k
     
306.     End Function
     
307. End Class

复制代码

5 h( r- B' b, \& v# H
6 I; D8 `0 d4 u5 X