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

admin

0 Z, B, r8 _% W0 v) D
% {4 g, ]4 e# M+ U; H( `; a1 y

1. Option Strict Off
   $ Z6 y0 B) ~; K: }
2. Imports System
   
3. Imports System.IO
   
4. Imports NXOpen
   5 g+ v  Z9 n3 _) M
5. Imports NXOpen.CAM
   / Q  H; ~9 C* t5 s$ n1 L
6. Imports NXOpen.UF
   
7. Imports NXOpen.Utilities
   
8. Imports System.Drawing
   2 M& o2 o% C  ]6 l
9. Imports System.Windows.Forms
   
10. 
    
11. Module Module1
    " C; Y1 C% t. g; F. T8 g8 j
12.     Dim theSession As Session = Session.GetSession()
    + {9 H# j6 }: M* o7 @7 y
13.     Dim myUI As UI = UI.GetUI()
    8 ~  U; @) ?) c& S
14.     Dim theUFSession As UFSession = UFSession.GetUFSession()
    " W! c; |, }+ X4 q; `& r
15.     Dim theWorkPart As Part = theSession.Parts.Work
    , W/ V/ `! l0 D  h: X* f
16. 
    
17.     Dim mytag() As NXOpen.Tag '选择的加工操作标记数组
    8 X, C! K) @! m0 b
18.     Dim mcount As Integer '选择的加工操作数量
    % M' [& @6 {0 e% K0 a
19. 
    " R2 P. T, I. p6 P# x+ e' P
20.     Sub Main()     
    6 f5 m1 q! |% j6 o( O$ y, r
21. 
    
22.         Shell(Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\SnapPic.exe", AppWinStyle.NormalFocus, True)
    7 K% N: j+ D5 y2 @4 h
23. 
    6 ^$ X& y( _, b
24.         Try
    
25.             '获取选择的操作数
    
26.             theUFSession.UiOnt.AskSelectedNodes(mcount, mytag)
    
27.             If mcount = 0 Then
    
28.                 MsgBox("没有选择加工操作!", MsgBoxStyle.OkOnly, "提示信息")
    4 c' Z2 @% h5 G4 {$ V: `: H
29.                 Exit Sub
    : e: k% X5 H- N' b2 a9 R- `0 q5 i
30.             End If
    
31. 
    / c/ {! z+ q, i3 s; `
32.             '设置车间文档EXCEL模板路径
    / y& P& y* I1 a5 f
33.             Dim fp As String = Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\WorkShop.xls"
    8 V4 T" j. V' B' P- f& X1 B
34.             '打开与写出车间文档
    
35.             If String.IsNullOrEmpty(fp) = False Then
    
36.                 Dim myExcel As New MY_EXCEL
    
37.                 myExcel.Create()
    
38.                 myExcel.Open(fp)
    
39.                 myExcel.Write("M4", AskDisplatyPartName())
    ( E! a: [+ J3 d4 z/ \3 ]. I: M
40.                 myExcel.Write("S4", Format(Now, "yyyy/MM/dd"))
    
41.                 myExcel.InsertPicture("b4", Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\jietu.jpg")
    3 N& k' C8 C# K0 ^/ n
42.                 For i = 0 To mcount - 1
    
43.                     '输出结果
    - Y) j5 Q2 J6 t7 j# Y1 s& z8 s2 {0 ]
44.                     myExcel.Write("B" + (i + 17).ToString, (i + 1).ToString)
    
45.                     myExcel.Write("D" + (i + 17).ToString, GetGemoGroup_Name(mytag(i)))
    ; j$ W- `+ J; r0 D
46.                     myExcel.Write("E" + (i + 17).ToString, GetToolPathName(mytag(i)))
    5 l- x0 u6 {" N8 z1 u3 q
47.                     myExcel.Write("F" + (i + 17).ToString, GetToolName(mytag(i)))
    $ V& D. u* t% R/ i5 S
48.                     myExcel.Write("G" + (i + 17).ToString, GetToolNumber(mytag(i)).ToString)
    
49.                     myExcel.Write("H" + (i + 17).ToString, GetToolDiameter(mytag(i)).ToString)
    & z% w4 c/ \9 l7 [% _$ k
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)
    
54.                     myExcel.Write("M" + (i + 17).ToString, GetStockFloor(mytag(i)).ToString)
    - V! r# \( b: L% z% t# H# d
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)
    $ p; K" w& I3 _3 C) M
58. 
    , |/ N+ }! m! `8 H
59.                 Next
    / D6 f, B% y. b" L
60.                 myExcel.SaveAs()
    ! Q. [( O  V$ h6 ]6 R* k$ [; _
61.                 'myExcel.Quit()
    
62.             End If
    
63.             '出错处理：
    
64.         Catch ex As Exception
    
65.             MsgBox(ex)
    9 Y% l) I2 p" m0 x
66.         End Try
    4 P) A; O3 C6 E# ]2 C2 O
67. 
    % `' N8 l6 ?* [' W3 i/ _
68.     End Sub
    
69.     '当前文档文件名
    6 L9 P. m& ?" d2 S/ L# J$ ~  o
70.     Function AskDisplatyPartName() As String
    
71.         Dim UFS As UFSession = UFSession.GetUFSession()
    ( ?. g5 ^0 h4 T
72.         Dim part_name As String = ""
    
73.         Dim part_tag As NXOpen.Tag = UFS.Part.AskDisplayPart
    
74.         UFS.Part.AskPartName(part_tag, part_name)
    1 P* z. e( i$ s) C# i4 G
75.         Dim aa() As String
    
76.         Dim bb() As String
    8 I$ K& |/ Y3 H0 H
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
    8 J0 I$ I: I+ t1 h1 p
82.     End Function
    * p' F! m4 p. D6 n+ ^( A
83.     '取加工几何试图程序组
    % @! E( n7 W  E/ T  S
84.     Function GetGemoGroup_Name(ByVal camObjectTag As NXOpen.Tag) As String
    2 p- C) s9 L4 H+ l0 ~
85.         Dim theGemoGroup_Tag As NXOpen.Tag
    2 R, ^1 e6 B% Q" L2 L, o5 Z
86.         Dim GemoGroupName As String = ""
    
87.         theUFSession.Oper.AskGeomGroup(camObjectTag, theGemoGroup_Tag)
    
88.         theUFSession.Obj.AskName(theGemoGroup_Tag, GemoGroupName)
    
89.         Return GemoGroupName
    " g- V9 Y4 e- V1 y  w
90.     End Function
    % d# E4 `7 O2 u/ ~
91. 
    6 j/ v+ g8 k, c5 O# g
92.     '取操作名称
    
93.     Function GetToolPathName(ByVal camObjectTag As NXOpen.Tag) As String
    
94.         Dim ToolPathName As String = ""
    
95.         theUFSession.Oper.AskNameFromTag(camObjectTag, ToolPathName)
    ; ^4 I+ o5 m: C9 I8 l$ _: G
96.         Return ToolPathName
    ' ]1 q. }- q9 T3 @+ W
97.     End Function
    0 M/ g1 z: j) K; ^0 p
98.     '获取刀具名称
    
99.     Function GetToolName(ByVal camObjectTag As NXOpen.Tag) As String
    5 U+ k5 U1 d( m$ U0 \: @
100.         Dim ToolName As String = ""
     
101.         Dim ToolTag As NXOpen.Tag
     8 T9 K% d7 d% N
102.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     
103.         theUFSession.Obj.AskName(ToolTag, ToolName)
     
104.         Return ToolName
     
105.     End Function
     
106.     '获取刀具号码
       ~. x* o/ o" @2 E5 }4 O" C
107.     Function GetToolNumber(ByVal camObjectTag As NXOpen.Tag) As Integer
     / X, ?- V- j) F2 t
108.         Dim ToolTag As NXOpen.Tag
     
109.         Dim ToolNumber As Integer
     
110.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     ! s( p- A2 F9 ^$ @
111.         theUFSession.Param.AskIntValue(ToolTag, UFConstants.UF_PARAM_TL_NUMBER, ToolNumber)
     
112.         Return ToolNumber
     
113.     End Function
     
114.     '获取刀具长度
     ' t( v; b* a$ a  s' m7 A  p! _
115.     Function GetToolHeight(ByVal camObjectTag As NXOpen.Tag) As Double
     * e" m3 c5 e$ v7 ~/ j- ]
116.         Dim ToolTag As NXOpen.Tag
     
117.         Dim ToolHeight As Double
     # L7 Y3 C. d5 D$ O
118.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     2 k6 @( e. z2 l1 L* ]
119.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_HEIGHT, ToolHeight)
     
120.         Return ToolHeight
     # q& F  y' {( O8 `, m0 M5 `
121.     End Function
     2 J6 Z# {% s( ^; X0 l) y! m' w
122.     '获取刀具直径
     3 V- _6 m. y, u2 h/ O7 o
123.     Function GetToolDiameter(ByVal camObjectTag As NXOpen.Tag) As Double
     
124.         Dim ToolTag As NXOpen.Tag
     
125.         Dim ToolDiameter As Double
     ) ^% N2 i4 @. I5 V" R
126.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     - b/ h& ?0 F7 ?5 M
127.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_DIAMETER, ToolDiameter)
       H  Q# ^( Y5 }+ i% x0 V1 x
128.         Return ToolDiameter
     
129.     End Function
     
130.     '获取刀具刃长
     $ h7 ?  t$ e+ i. G; H
131.     Function GetToolFluteLength(ByVal camObjectTag As NXOpen.Tag) As Double
     
132.         Dim ToolTag As NXOpen.Tag
     & {: H& Y, L) C" c- G# o
133.         Dim ToolFluteLength As Double
     
134.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     ! n" D  A5 O/ k% l7 s
135.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_FLUTE_LN, ToolFluteLength)
     
136.         Return ToolFluteLength
     
137.     End Function
     
138.     '获取刀具R角
     
139.     Function GetToolCornerRadius(ByVal camObjectTag As NXOpen.Tag) As Double
     9 _1 o% {' t4 X3 Z) w" X
140.         Dim ToolTag As NXOpen.Tag
     6 q: O8 J# o2 U! r4 J: c" d
141.         Dim ToolCornerRadius As Double
     " w! t2 w. D  m7 X$ v, i% ~0 Q9 L
142.         theUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag)
     6 Q8 S4 C! U- `8 ^
143.         theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_COR1_RAD, ToolCornerRadius)
     8 G$ u! x, t  q) A
144.         Return ToolCornerRadius
     
145.     End Function
     
146.     '取部件侧部余量
     9 Q- Y  e. j$ h/ V
147.     Function GetStockPart(ByVal camObjectTag As NXOpen.Tag) As Double
     . y# n3 {3 ?, y
148.         Dim StockPart As Double
     
149.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_STOCK_PART, StockPart)
     
150.         Return StockPart
     - d! U# G4 k4 N& L6 s$ o
151.     End Function
       V/ a5 v9 ~) [2 _
152.     '取部件底部余量
     / v% o8 {3 _) `1 G$ Y6 }  |
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)
     
156.         Return Stockfloor
     
157.     End Function
     
158. 
     5 {8 `8 v# }2 P8 ~4 v+ t
159.     '取主轴转速
     * y$ O5 r0 D- T$ c+ y2 E/ a
160.     Function GetSpeedValue(ByVal camObjectTag As NXOpen.Tag) As Double
     
161.         Dim SpeedVale As Double
     8 r! P( u7 q7 @
162.         theUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_SPINDLE_RPM, SpeedVale)
     # G+ b% L% Q8 K& b+ o6 F
163.         Return SpeedVale
     
164.     End Function
     - K9 W. c  f, ?6 g
165.     '取进给速度
     
166.     Function GetFeedValue(ByVal camObjectTag As NXOpen.Tag) As Double
     7 U; `4 j! e+ R. \6 Q8 r! g
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)
     6 `6 s, b1 d4 i
172.         FeedValue = FeedsBuilder1.FeedsBuilder.FeedCutBuilder.Value
     ; W1 d" P' y" R6 \. H4 @. q
173.         FeedsBuilder1.Destroy()
     ! q9 z/ |/ d! P; r
174.         Return FeedValue
     
175.     End Function
     ) D+ ^2 `+ H$ ?2 i- x
176.     '取切削时间
     
177.     Function GetCutTime(ByVal camObjectTag As NXOpen.Tag) As Double
     / t6 u" h7 `* q% g* `# M& [
178.         Dim CutTime As Double
     5 u7 m+ O1 R- s6 x1 I, y5 @2 h3 R
179.         theUFSession.Param.AskDoubleValue(camObjectTag, 142, CutTime)
     
180.         Return CutTime
     
181.     End Function
     
182. 
     
183.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     
184. 
     ! p; Y  v" c  y6 R( d$ a
185.         'Unloads the image immediately after execution within NX
     
186.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
     ' L+ s7 f* X5 p. _8 }  ^" |
187. 
     1 Y/ J% H$ t) q* B6 G
188.         '----Other unload options-------
     ! ]- A2 y. l6 X4 a% F5 v
189.         'Unloads the image when the NX session terminates
     5 B5 r' |8 S4 a' U
190.         'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     
191. 
       ^2 c8 {1 z9 E( Z- T8 \
192.         'Unloads the image explicitly, via an unload dialog
     + p& M9 E* K7 b( w' W
193.         'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
     
194.         '-------------------------------
     
195. 
     
196.     End Function
     + U" w! k  E# N/ o, G! y
197. 
     : W! z& ]3 g$ _
198. 
     
199. End Module
     
200. 
     & F( G, u2 x# A# ~  ^' s
201. Public Class MY_EXCEL
     ( H  N( y0 D: F
202.     Private app As Object
     + H  X( J+ c, d) E
203.     Private book As Object
     7 G7 m4 K' x0 m/ N: D1 W  f1 D
204.     Private sheet As Object
     8 f, z# b( z" d. e
205.     '表格名称
     
206.     Public Property xlSheetName() As String
     
207.         Get
     ; w, m4 i; |- X9 \1 ]
208.             Return sheet.Name
     4 i; c9 f/ ?3 I! `4 _
209.         End Get
     
210.         Set(ByVal value As String)
     
211.             sheet.Name = value
     
212.         End Set
     
213.     End Property
     1 `' x+ t2 o9 w3 ^
214.     '新建程序
     
215.     Public Function Create() As Boolean
     : l! H7 y# c% w- G& I' ~, P
216.         app = CreateObject("Excel.Application")
     5 S$ b, I' m& o4 R$ b9 D2 }
217.         If app Is Nothing Then
     . `4 `6 X7 n  }3 N
218.             Return False
     
219.         Else
     & g+ D8 I$ K$ o0 I$ J9 E
220.             app.Visible = True
     8 \* S2 @; t1 k8 I: q
221.             Return True
     6 M2 X/ K; `2 e
222.         End If
     ) e1 w( l) n' [7 }8 {2 _5 I
223.     End Function
     ( Q* {  M0 w/ D' b
224.     '打开文件
     $ }0 r# ~7 F- g1 O* H7 j; }
225.     Public Sub Open(ByVal xlFileName As String)
     
226.         book = app.Workbooks.Open(xlFileName)
     
227.         sheet = book.ActiveSheet
     
228.     End Sub
     
229.     '写单元格
     
230.     Public Sub Write(ByVal _Range As String, ByVal value As Object)
     
231.         If _Range <> "" Then
     5 n% V% z' S- ~, x+ T
232.             sheet.Range(_Range).Value = value
     
233.         End If
     ) Y7 A$ b4 ~0 S+ c& z
234.     End Sub
     9 i9 q& T# r/ H6 @# G& ?
235.     '插入图片
     
236.     Public Sub InsertPicture(ByVal _Range As String, ByVal imageFile As String)
     
237.         If _Range <> "" Then
     # C+ H) V6 f( G/ O
238.             Dim ExcelRange As Object = sheet.Range(_Range)
     * s8 B& ~$ y4 l1 p1 D& l
239.             Dim Ins_image As Image
     
240.             Ins_image = Image.FromFile(imageFile)
     7 K/ i1 A2 }+ D4 j+ e- M/ J% j
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)
     8 L& U2 @. \6 \  J
244.             sheet.Shapes.AddPicture(imageFile, 0, 1, ExcelRange.Left + 2, ExcelRange.Top + 2, Ins_image.Width * ScaleHW, Ins_image.Height * ScaleHW)
     ( \8 F! o% f! i: y7 p- E
245.             Ins_image.Dispose()
     
246.         End If
     ; Y- Z/ C- J! m
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)
     " _1 ]# B; R# d  b+ y9 Q  c8 q
251.         Return sheet.Range(_Range).value
     4 H' g# V- U+ p+ F
252.     End Function
     
253.     Public Function Save() As Boolean
     * K- g/ d$ [' B+ O( ]; N) V
254.         book.Save()
     ; n# }* U+ C; o4 j& o( }
255.     End Function
     
256.     Public Function SaveAs() As Boolean
     
257.         Dim Sdlg As SaveFileDialog = New SaveFileDialog '定义一个保存对话框
     
258.         Sdlg.FileName = AskDisplatyPartName() + "加工工序单.xls" '保存对话框的默认文件名
     ! u% P% ^- P8 ~$ o- b9 ^
259.         Sdlg.Filter = "EXCEL档案(*.xls)|*.xls" '过滤器设置
     2 [: M( O& e* N1 Z
260.         If Sdlg.ShowDialog = Windows.Forms.DialogResult.OK Then '如果保存对话框的确认按钮被按下
     # C; f! W$ m8 f& m3 ?0 `" N  @0 M: ?
261.             book.SaveAs(Sdlg.FileName) '保存文件
     
262.         End If
     
263.     End Function
     / A! T( w2 a( |# x; h
264.     '结束EXCEL对象
     : Z2 m) F" M: r: f, M
265.     Public Function Quit() As Boolean
     
266.         book.close()
     . I- P" R% l, Y7 q5 U& ]8 G8 m
267.         app.Quit()
     ' B6 i, i, }/ ^$ U, n0 i
268.         app = Nothing
     ! u5 F' t) N5 x8 z2 M( h2 m# w8 K
269.         GC.Collect()
     ' x* w( O$ f# d
270.     End Function
     3 A2 D1 Q. D8 B4 C4 j5 F& {
271. 
     % w- B  w1 F  x5 C2 \( H9 `
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)
     * h! A' @; {% w# j  v5 D$ V
275.         Dim rowvalue As String = sheet.Range(_Row).value
     ( p, T3 _! {  T1 h, v: O
276.         Dim cellvalue As String = sheet.Range(_Cell).value
     ( z4 e2 K* s0 O0 \& K) z
277.         Dim k As Integer = 0
     
278.         If rowvalue <> "" And cellvalue <> "" Then
     
279.             Dim rowstr() As String = Split(rowvalue, "/")
     
280.             Dim cellstring() As String = Split(cellvalue, "/")
     & p( N4 C* x& |; K
281.             Dim a, b, c, d As Integer
     3 V; q  d2 B( ?  P% A
282.             If rowstr.Length > 1 And cellstring.Length > 0 Then
     # _7 `4 v0 l! O* m+ |9 i& {
283.                 a = Convert.ToInt32(rowstr(0))
     8 _: D! v3 s. T. M5 R" @2 l  s5 y
284.                 b = Convert.ToInt32(rowstr(1))
     
285.                 If a > 0 And b > a Then
     % v4 S, y: E( n: Q: u  x7 d  k
286.                     ReDim Preserve ArryString(b - a)
     
287.                     For i As Integer = 0 To b - a
     4 O/ ^9 L/ c( L) g( I; A
288.                         ArryString(i) = cellstring(0) & Convert.ToString(a + i)
     6 t. M: T3 A# V
289.                         k += 1
     * d, S& L" h* d2 q/ I  ~
290.                     Next
     # k: A% f$ C) ^* B' ^
291.                     If rowstr.Length > 3 And cellstring.Length > 1 Then
     + H$ [7 A- k( b3 J# b
292.                         c = Convert.ToInt32(rowstr(2))
     
293.                         d = Convert.ToInt32(rowstr(3))
     
294.                         If c > 0 And d > c Then
     
295.                             ReDim Preserve ArryString(b - a + d - c + 1)
     " @. a1 I$ {: {9 Y3 P* l3 U+ \' R
296.                             For j As Integer = 0 To d - c
     ( Y7 Z! n; C( k+ X' u& m
297.                                 ArryString(b - a + j + 1) = cellstring(1) & Convert.ToString(c + j)
     
298.                                 k += 1
     
299.                             Next
     , J, W! Z: `; O5 W1 z
300.                         End If
       ]% O0 k3 U" ?& T
301.                     End If
     , r  i/ f  h) _) L
302.                 End If
     ' |1 ^& b1 C# z8 m& c  P" s! ?& m
303.             End If
     
304.         End If
     
305.         Return k
     . S9 `; O4 ~3 U# r
306.     End Function
     & t' G# Y* C! b4 h& w! D
307. End Class

复制代码

; `: z9 I2 v* R+ I4 R& s