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

admin

% {, ?4 j( @! K. g

1. Option Strict Off
   
2. Imports System
   7 W5 r: p6 E1 x2 Z6 v
3. Imports System.IO
   7 [$ i! }, r% b: w7 e
4. Imports NXOpen
   
5. Imports NXOpen.CAM
     ^& [, E- _3 L2 k  k9 [. p0 V' k
6. Imports NXOpen.UF
   8 r% H3 |/ w# q, o2 t
7. Imports NXOpen.Utilities
   
8. Imports System.Drawing
   6 b' S* r. l; v3 d4 c* ]9 S
9. Imports System.Windows.Forms
   
10. 
    
11. Module Module1
    " L3 F0 ?1 ~& ^* H
12.     Dim theSession As Session = Session.GetSession()
    + J, Q: c# L  u' E7 _6 f: x
13.     Dim myUI As UI = UI.GetUI()
    
14.     Dim theUFSession As UFSession = UFSession.GetUFSession()
    
15.     Dim theWorkPart As Part = theSession.Parts.Work
    
16. 
    ! T, J% q* X8 ~+ [" f( U
17.     Dim mytag() As NXOpen.Tag '选择的加工操作标记数组
    
18.     Dim mcount As Integer '选择的加工操作数量
    
19. 
    
20.     Sub Main()     
    , `# o1 s! f# e* _7 J7 e1 `
21. 
    + e( Y+ I& r$ P" B+ {
22.         Shell(Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\SnapPic.exe", AppWinStyle.NormalFocus, True)
    2 k' a, w" N4 F" m  ?
23. 
    
24.         Try
    
25.             '获取选择的操作数
    
26.             theUFSession.UiOnt.AskSelectedNodes(mcount, mytag)
    4 G2 V: Z# ~& ~$ \2 i- ?. K
27.             If mcount = 0 Then
    1 v& ^. Z) ?7 Y
28.                 MsgBox("没有选择加工操作!", MsgBoxStyle.OkOnly, "提示信息")
    
29.                 Exit Sub
    
30.             End If
    . m) M* P1 p  ~* O. k
31. 
    1 n5 k6 G; D# t
32.             '设置车间文档EXCEL模板路径
    
33.             Dim fp As String = Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\WorkShop.xls"
    4 {+ T1 r( l! }' j
34.             '打开与写出车间文档
    
35.             If String.IsNullOrEmpty(fp) = False Then
    # x. s* T* o9 ]) W
36.                 Dim myExcel As New MY_EXCEL
    0 D, z8 `7 x/ u  r- O( o0 `
37.                 myExcel.Create()
    ' ~) E7 P" a2 c4 @# @
38.                 myExcel.Open(fp)
    1 {; x8 b6 J" A& m$ r
39.                 myExcel.Write("M4", AskDisplatyPartName())
    
40.                 myExcel.Write("S4", Format(Now, "yyyy/MM/dd"))
    + ^0 k# R8 c& M0 I/ z! o1 l
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)
    2 _" [5 B- y& ]4 m* Z$ f
45.                     myExcel.Write("D" + (i + 17).ToString, GetGemoGroup_Name(mytag(i)))
    
46.                     myExcel.Write("E" + (i + 17).ToString, GetToolPathName(mytag(i)))
    : m. A" j' c/ l' V/ D
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)
    # T3 P" ^+ P% R- P2 u" ^3 g6 O: o' W
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% L/ P6 B+ O2 ?, v/ E
54.                     myExcel.Write("M" + (i + 17).ToString, GetStockFloor(mytag(i)).ToString)
    , L( k+ ]( a8 U/ n, w9 d
55.                     myExcel.Write("N" + (i + 17).ToString, GetSpeedValue(mytag(i)).ToString)
    : ]5 y: X9 f7 P+ S# _& i0 E/ ^" N: u
56.                     myExcel.Write("O" + (i + 17).ToString, GetFeedValue(mytag(i)).ToString)
    " J8 I) J* e8 b* \! v% \
57.                     myExcel.Write("Q" + (i + 17).ToString, CInt(GeTCutTime(mytag(i))).ToString)
    ; c6 _/ X+ U' l* l. ?) o& M
58. 
    
59.                 Next
    
60.                 myExcel.SaveAs()
    
61.                 'myExcel.Quit()
    4 N0 j7 @- w' q# `9 k/ O
62.             End If
    5 I  e4 s! B+ r2 K3 Q! d
63.             '出错处理：
    # Q; w/ I. o% ~& i0 G
64.         Catch ex As Exception
    
65.             MsgBox(ex)
    
66.         End Try
    ! z; y, u5 h" `0 u4 ?* a$ S9 {4 w
67. 
    * n: A4 o% Z& y4 }) q& s
68.     End Sub
    
69.     '当前文档文件名
    4 \' \0 ~' K- v
70.     Function AskDisplatyPartName() As String
    , ~* ]) I2 V3 Z( R( o. f7 D
71.         Dim UFS As UFSession = UFSession.GetUFSession()
    3 Q2 I: m7 z& s- q7 k' T# s
72.         Dim part_name As String = ""
    
73.         Dim part_tag As NXOpen.Tag = UFS.Part.AskDisplayPart
    ' h1 P+ j$ I3 {& c# t0 ?; {
74.         UFS.Part.AskPartName(part_tag, part_name)
    - D4 T0 b1 Z3 U7 V) K& E
75.         Dim aa() As String
    - L3 f3 h+ s6 |8 k0 n
76.         Dim bb() As String
    * G6 q7 u. ~# j: a' k  g
77.         aa = Split(part_name, ".prt")
    ' l5 x% Y5 H6 b% n3 P
78.         part_name = aa(0)
    
79.         bb = Split(part_name, "")
    0 S) `. s, l  O$ q. K: G
80.         part_name = bb(bb.Length - 1)
    $ m. l4 {, S3 q4 `% Z. u6 F
81.         Return part_name
    # e* R; W. s4 M6 y
82.     End Function
    $ C; N; t& m$ ?" V
83.     '取加工几何试图程序组
    
84.     Function GetGemoGroup_Name(ByVal camObjectTag As NXOpen.Tag) As String
    
85.         Dim theGemoGroup_Tag As NXOpen.Tag
    " t+ I; }* }) M5 d' P
86.         Dim GemoGroupName As String = ""
    
87.         theUFSession.Oper.AskGeomGroup(camObjectTag, theGemoGroup_Tag)
    0 l) e6 H  |' d: U( C) r& e
88.         theUFSession.Obj.AskName(theGemoGroup_Tag, GemoGroupName)
    
89.         Return GemoGroupName
    
90.     End Function
    
91. 
    
92.     '取操作名称
    3 a! Y" Z. e6 l2 \2 f" E  ~
93.     Function GetToolPathName(ByVal camObjectTag As NXOpen.Tag) As String
    , r0 D4 A5 Y; F9 y4 ~
94.         Dim ToolPathName As String = ""
    
95.         theUFSession.Oper.AskNameFromTag(camObjectTag, ToolPathName)
    
96.         Return ToolPathName
    % u0 R. }" Z$ D
97.     End Function
    7 Y* s; ~: a  t- W  R+ k( G
98.     '获取刀具名称
    
99.     Function GetToolName(ByVal camObjectTag As NXOpen.Tag) As String
    / F0 C8 F) {3 U+ C2 \
100.         Dim ToolName As String = ""
     
101.         Dim ToolTag As NXOpen.Tag
     0 }5 `; g) b6 A3 ]( w
102.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     ' k1 a( l9 g& ?- N' F
103.         theUFSession.Obj.AskName(ToolTag, ToolName)
     
104.         Return ToolName
     0 j  L0 o) U' Q* y
105.     End Function
     % Z% V( |3 y5 W
106.     '获取刀具号码
     " U3 v8 O: G4 i3 ~2 E5 q! Z( O
107.     Function GetToolNumber(ByVal camObjectTag As NXOpen.Tag) As Integer
     2 }4 X) ?9 R, e+ y* m6 ^
108.         Dim ToolTag As NXOpen.Tag
     
109.         Dim ToolNumber As Integer
     : {/ K' p4 i* T3 O# P4 t5 y! Q
110.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
       A( ?- |7 Y* G$ Y0 ]& B: I5 q2 [
111.         theUFSession.Param.AskIntValue(ToolTag, UFConstants.UF_PARAM_TL_NUMBER, ToolNumber)
     
112.         Return ToolNumber
     . h9 K4 g2 F0 h, |
113.     End Function
     ) A/ [' V& \* k: |- m% n; ~1 B+ C8 o
114.     '获取刀具长度
     
115.     Function GetToolHeight(ByVal camObjectTag As NXOpen.Tag) As Double
     " E6 }# i0 Z) X/ D
116.         Dim ToolTag As NXOpen.Tag
     4 G2 X2 w8 C8 H; e7 |
117.         Dim ToolHeight As Double
     
118.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     : L. Q- ~' ]6 {. N
119.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_HEIGHT, ToolHeight)
     
120.         Return ToolHeight
     
121.     End Function
     
122.     '获取刀具直径
     
123.     Function GetToolDiameter(ByVal camObjectTag As NXOpen.Tag) As Double
     
124.         Dim ToolTag As NXOpen.Tag
     3 \  A# W- t1 M
125.         Dim ToolDiameter As Double
     % l' k( r1 G2 A. j+ d9 V5 l1 W
126.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     ' p1 d# o, \5 P
127.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_DIAMETER, ToolDiameter)
     % J8 W: n1 ?3 l0 q% u
128.         Return ToolDiameter
     
129.     End Function
     
130.     '获取刀具刃长
     
131.     Function GetToolFluteLength(ByVal camObjectTag As NXOpen.Tag) As Double
     . C. Z! K% v* f* Q6 l8 E
132.         Dim ToolTag As NXOpen.Tag
     ( z0 R& |6 L$ R9 C* k9 W! m+ L
133.         Dim ToolFluteLength As Double
     0 d6 `5 `0 T2 [  y! r! k( ^' U
134.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
135.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_FLUTE_LN, ToolFluteLength)
     . P/ \& ~5 e7 L( x3 I/ b8 l( f
136.         Return ToolFluteLength
     % ]$ F" B$ p& K1 v
137.     End Function
     8 z* s1 U1 W( O, A7 k, }
138.     '获取刀具R角
     
139.     Function GetToolCornerRadius(ByVal camObjectTag As NXOpen.Tag) As Double
     
140.         Dim ToolTag As NXOpen.Tag
     5 z% ^/ I0 }! _6 k. q
141.         Dim ToolCornerRadius As Double
     
142.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     4 ]& l2 ~# X7 [6 k2 J
143.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_COR1_RAD, ToolCornerRadius)
     
144.         Return ToolCornerRadius
     
145.     End Function
     
146.     '取部件侧部余量
     9 a3 w/ a, t% p8 I, A$ l+ m
147.     Function GetStockPart(ByVal camObjectTag As NXOpen.Tag) As Double
     * C7 B: p! ]* m: }
148.         Dim StockPart As Double
     
149.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_STOCK_PART, StockPart)
     9 r4 Y' m: i- c0 I$ \
150.         Return StockPart
     # E0 H1 Q1 s; {7 q
151.     End Function
     1 n3 x# ~. n4 k) e* C) B
152.     '取部件底部余量
     - W: p: P& {" l# J- X+ H
153.     Function GetStockFloor(ByVal camObjectTag As NXOpen.Tag) As Double
     ' D( X$ F6 D5 v) C
154.         Dim Stockfloor As Double
     5 I+ O+ l3 \0 Z6 C2 l7 P9 Y5 k) z
155.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_STOCK_FLOOR, Stockfloor)
     5 P9 c8 h! e9 K) {
156.         Return Stockfloor
     
157.     End Function
     " e/ a3 W* n9 M  t
158. 
     
159.     '取主轴转速
     
160.     Function GetSpeedValue(ByVal camObjectTag As NXOpen.Tag) As Double
     , @" S  |2 C; [; W) P, A
161.         Dim SpeedVale As Double
     % ^5 n3 K7 `+ R! u% \
162.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_SPINDLE_RPM, SpeedVale)
     
163.         Return SpeedVale
     
164.     End Function
     # U: i6 z5 Y+ W% V, |: L
165.     '取进给速度
     
166.     Function GetFeedValue(ByVal camObjectTag As NXOpen.Tag) As Double
     / z9 i* @/ A3 e: o; q+ s* z
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)
     : N; g: J( T2 X9 u  D! C
172.         FeedValue = FeedsBuilder1.FeedsBuilder.FeedCutBuilder.Value
     3 J, ~" L- q0 O' T6 S) H+ Z7 e
173.         FeedsBuilder1.Destroy()
     3 U9 e% I, S& s6 O* }- f3 d4 q, N
174.         Return FeedValue
     
175.     End Function
     ! H* k5 g# S* W
176.     '取切削时间
     
177.     Function GetCutTime(ByVal camObjectTag As NXOpen.Tag) As Double
     
178.         Dim CutTime As Double
     
179.         theUFSession.Param.AskDoubleValue(camObjectTag, 142, CutTime)
     & u# l$ L, a2 ^3 H7 Q) C
180.         Return CutTime
     
181.     End Function
     
182. 
     0 t/ }  `: r; b' m- }$ h1 b2 J7 Q
183.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     ( t3 A, h" c3 m- s0 V8 I
184. 
     
185.         'Unloads the image immediately after execution within NX
     
186.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
     % ~% R# O( T4 k8 `' Z
187. 
     & V- E$ I5 k& o. w% f
188.         '----Other unload options-------
     5 U  t% U3 s4 M; p! S  c
189.         'Unloads the image when the NX session terminates
     * n- _' a# {+ R& s6 W* l
190.         'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     
191. 
     : n! M8 b$ h. Y
192.         'Unloads the image explicitly, via an unload dialog
     * s( a0 U; @, y
193.         'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
     & H2 S  O% i% H; j1 W
194.         '-------------------------------
     ' q. W; m  O$ J! k+ u
195. 
     
196.     End Function
     , i+ N5 [! K$ z; \& t$ M0 ?
197. 
     
198. 
     6 c; f+ J% e# q5 S7 d5 B
199. End Module
     9 f2 q. r6 y- C2 X" K
200. 
     , g) O2 f  P" O- @  i8 t8 @
201. Public Class MY_EXCEL
     
202.     Private app As Object
     
203.     Private book As Object
     ) b4 Q8 T% P+ A, e8 t
204.     Private sheet As Object
     : m5 J0 ]' u4 {" T! z7 w
205.     '表格名称
     ! }0 }2 R# M2 E5 p. f, P
206.     Public Property xlSheetName() As String
     
207.         Get
     & D0 H. X8 v' m9 o1 [
208.             Return sheet.Name
     6 p2 T7 e/ l5 f2 w; y6 J, O
209.         End Get
     - Q1 E3 ]  G# V
210.         Set(ByVal value As String)
     ( k& T+ y: q; q( \: H
211.             sheet.Name = value
     * }/ G6 D2 B6 q* G' y- ^
212.         End Set
     
213.     End Property
     & v# f1 f( A5 H0 f" Q
214.     '新建程序
     2 X2 Y7 t4 ?1 L3 Z
215.     Public Function Create() As Boolean
     
216.         app = CreateObject("Excel.Application")
     9 v3 m( N1 ]5 {3 Z; R, V
217.         If app Is Nothing Then
     
218.             Return False
     
219.         Else
     
220.             app.Visible = True
     
221.             Return True
     ! T; a0 d- a) ?1 C% X
222.         End If
     
223.     End Function
     $ l% k/ R+ U( O: D9 E
224.     '打开文件
     ' H2 ]( D, [0 Z3 F
225.     Public Sub Open(ByVal xlFileName As String)
     
226.         book = app.Workbooks.Open(xlFileName)
     ' k* l0 o/ G1 H$ Z. u
227.         sheet = book.ActiveSheet
     
228.     End Sub
     6 W  J! t1 K/ U' @8 n
229.     '写单元格
     
230.     Public Sub Write(ByVal _Range As String, ByVal value As Object)
     ' E9 T3 Y4 V* h
231.         If _Range <> "" Then
     9 i4 g  T2 P7 K- N* r& x6 F
232.             sheet.Range(_Range).Value = value
     5 J3 W2 [, U8 d3 h  T
233.         End If
     ! E/ k1 O# M1 O% C% G4 u9 r
234.     End Sub
     
235.     '插入图片
     8 b: `4 C5 u7 I; _
236.     Public Sub InsertPicture(ByVal _Range As String, ByVal imageFile As String)
     
237.         If _Range <> "" Then
     
238.             Dim ExcelRange As Object = sheet.Range(_Range)
     6 n1 ^  L7 h( A
239.             Dim Ins_image As Image
     0 Q6 M3 X6 V5 S$ J8 U
240.             Ins_image = Image.FromFile(imageFile)
     
241.             Dim HeightScale As Double = Math.Round((ExcelRange.Height * 12 - 6) / Ins_image.Height, 2)
       U$ ?9 O7 L) T8 |/ ]
242.             Dim WidthScale As Double = Math.Round((ExcelRange.Width * 15 - 6) / Ins_image.Width, 2)
     
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)
     0 I; E9 y8 f: b- j, z
245.             Ins_image.Dispose()
     
246.         End If
     ' c: C- h; l# D2 {) X6 N6 @: y
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)
     
251.         Return sheet.Range(_Range).value
     : Z  q. [7 D/ X
252.     End Function
     0 ~3 I! Z8 j& _0 p
253.     Public Function Save() As Boolean
     
254.         book.Save()
     
255.     End Function
     $ z2 [0 B& j. A9 y1 e; n* L
256.     Public Function SaveAs() As Boolean
     3 d5 T% u9 M; a
257.         Dim Sdlg As SaveFileDialog = New SaveFileDialog '定义一个保存对话框
     
258.         Sdlg.FileName = AskDisplatyPartName() + "加工工序单.xls" '保存对话框的默认文件名
     
259.         Sdlg.Filter = "EXCEL档案(*.xls)|*.xls" '过滤器设置
     4 @- H5 i2 b" [( T0 L! c
260.         If Sdlg.ShowDialog = Windows.Forms.DialogResult.OK Then '如果保存对话框的确认按钮被按下
     
261.             book.SaveAs(Sdlg.FileName) '保存文件
     
262.         End If
     8 Y$ ?5 `# s' H" s4 g. N
263.     End Function
     6 P4 x6 k+ Y# h6 G
264.     '结束EXCEL对象
     
265.     Public Function Quit() As Boolean
     6 l  }+ k: h  R
266.         book.close()
     0 G7 y% b* w2 o/ N& }
267.         app.Quit()
     
268.         app = Nothing
     & x+ c: }' S/ g
269.         GC.Collect()
     
270.     End Function
     
271. 
     % S1 ~  J- r# G0 U1 [. M& O& ?
272.     '取数组
     
273.     Public Function GetArryValue(ByRef _table As Integer, ByVal _Row As String, ByVal _Cell As String, ByRef ArryString() As String) As Integer
     
274.         Dim sheet As Object = book.Sheets.Item(_table)
     " x) X4 g2 |- Q; n
275.         Dim rowvalue As String = sheet.Range(_Row).value
     
276.         Dim cellvalue As String = sheet.Range(_Cell).value
     / s; W7 W/ i$ @
277.         Dim k As Integer = 0
     / F5 P' S, Y6 H$ q/ _( u
278.         If rowvalue <> "" And cellvalue <> "" Then
     
279.             Dim rowstr() As String = Split(rowvalue, "/")
     
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))
     
284.                 b = Convert.ToInt32(rowstr(1))
     1 }! n: P* F) z8 x
285.                 If a > 0 And b > a Then
     
286.                     ReDim Preserve ArryString(b - a)
     
287.                     For i As Integer = 0 To b - a
     % w9 s9 F. d  g  M
288.                         ArryString(i) = cellstring(0) & Convert.ToString(a + i)
     
289.                         k += 1
     
290.                     Next
     ! R( }" r0 \4 ~6 r6 K. G$ t
291.                     If rowstr.Length > 3 And cellstring.Length > 1 Then
     & f( s! d! H% R6 k) t: p
292.                         c = Convert.ToInt32(rowstr(2))
     / ^3 [- y1 ^# X
293.                         d = Convert.ToInt32(rowstr(3))
     3 F; r. d- D; T- T5 z3 `
294.                         If c > 0 And d > c Then
     
295.                             ReDim Preserve ArryString(b - a + d - c + 1)
     ( M5 h. ~9 t9 ~/ \* \/ `
296.                             For j As Integer = 0 To d - c
     
297.                                 ArryString(b - a + j + 1) = cellstring(1) & Convert.ToString(c + j)
     
298.                                 k += 1
       v) r9 Z/ M7 k* @, a# x
299.                             Next
     
300.                         End If
     8 i! w: e. ]7 e" L9 x
301.                     End If
     
302.                 End If
     
303.             End If
     + m" P+ P  d! X: p
304.         End If
       U3 L/ z' w. }3 R. _0 f6 R' n
305.         Return k
     
306.     End Function
     
307. End Class

复制代码

6 u8 p& z6 N0 Z3 `/ O% h
% P3 Q. K# Z2 J! w4 r, ^