开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 图形图像 > CAD > 查看源码
TlsUtility.cls
资源名称：AutoCADVBA.rar　[点击查看]
上传用户：yayuwl
上传日期：2022-03-18
资源大小：8952k
文件大小：30k
源码类别：

CAD

开发平台：

VBA

TlsUtility.cls：源码内容
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "TlsUtility"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = False
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
  15. Private m_oApp As AcadApplication
  17. Public Property Let Application(ByVal vNewValue As AcadApplication)
  18.     Set m_oApp = vNewValue
  19. End Property
  21. Private Property Get ThisDrawing() As AcadDocument
  22.     Set ThisDrawing = m_oApp.ActiveDocument
  23. End Property
  25. Public Function LeftStr(ByVal String1 As Variant, ByVal String2 As Variant)
  26. On Error Resume Next
  27.     LeftStr = Left(String1, InStr(String1, String2) - 1)
  28. End Function
  30. Public Function RightStr(ByVal String1 As Variant, ByVal String2 As Variant)
  31. On Error Resume Next
  32.     RightStr = Right(String1, Len(String1) - Len(String2) - InStr(String1, String2) + 1)
  33. End Function
  35. Public Sub SetCaption(ByVal NewCaption As String)
  36.     SetWindowText m_oApp.hwnd, NewCaption
  37. End Sub
  39. Public Function GetEntity() As AcadEntity
  41.     Dim obj As AcadEntity, pnt
  42.     
  43.     ThisDrawing.Utility.GetEntity obj, pnt
  44.     Set GetEntity = obj
  45.     
  46. End Function
  48. Public Function GetDistance(ByVal Point1, ByVal Point2)
  50.     GetDistance = Sqr((Point2(0) - Point1(0)) ^ 2 + (Point2(1) - Point1(1)) ^ 2)
  51.     
  52. End Function
  54. Public Function OutputPoint(ByVal Point As Variant)
  55.     ThisDrawing.Utility.Prompt vbCrLf & Point(0) & "," & Point(1) & "," & Point(2)
  56. End Function
  58. Public Function IsEqual(ByVal Value1 As Double, ByVal Value2 As Double) As Boolean
  60.     IsEqual = Abs(Value1 - Value2) < 10 ^ -8
  61.     
  62. End Function
  64. Public Function SetXRecord(ByVal DictName As String, ByVal Keyword As String, ByVal XRecordData)
  65.     Dim pDict As AcadDictionary
  66.     Dim pXRecord As AcadXRecord
  67.     Dim XRecordType() As Integer
  68.     Dim pLen As Integer
  69.     
  70.     Set pDict = ThisDrawing.Dictionaries.Add(DictName)
  71.     Set pXRecord = pDict.AddXRecord(Keyword)
  72.     
  73.     pLen = UBound(XRecordData)
  74.     ReDim XRecordType(pLen) As Integer
  75.     For i = 0 To pLen
  76.         Select Case VarType(XRecordData(i))
  77.             Case vbInteger, vbLong
  78.                 XRecordType(i) = 70
  79.             Case vbSingle, vbDouble
  80.                 XRecordType(i) = 40
  81.             Case vbString
  82.                 XRecordType(i) = 1
  83.         End Select
  84.     Next i
  85.     
  86.     pXRecord.SetXRecordData XRecordType, XRecordData
  88. End Function
  90. Public Function GetXRecord(ByVal DictName As String, ByVal Keyword As String)
  91.     Dim pDict As AcadDictionary
  92.     Dim pXRecord As AcadXRecord
  93.     Dim xt
  94.     Set pDict = ThisDrawing.Dictionaries(DictName)
  95.     Set pXRecord = pDict.GetObject(Keyword)
  96.     pXRecord.GetXRecordData xt, GetXRecord
  97. End Function
  99. Public Function CreateSelectionSet(Optional ByVal Name As String = "TlsSel") As TlsSelectionSet
  100.     Set CreateSelectionSet = New TlsSelectionSet
  101.     CreateSelectionSet.Application = m_oApp
  102.     CreateSelectionSet.Init Name
  103. End Function
  105. Public Function ActiveSelectionSet(Optional ByVal Name As String = "TlsSel") As TlsSelectionSet
  106.     Set ActiveSelectionSet = New TlsSelectionSet
  107.     ActiveSelectionSet.Application = m_oApp
  108.     ActiveSelectionSet.GetActiveSelectionSet
  109. End Function
  111. Public Function PickfirstSelectionSet(Optional ByVal Name As String = "TlsSel") As TlsSelectionSet
  112.     Set PickfirstSelectionSet = New TlsSelectionSet
  113.     PickfirstSelectionSet.Application = m_oApp
  114.     PickfirstSelectionSet.GetPickfirstSelectionSet
  115. End Function
  117. Public Function CreateArray(ByVal TypeName As VbVarType, ParamArray ValArray())
  118.     Dim nCount As Integer
  119.     Dim i
  120.     Dim mArray
  121.     
  122.     nCount = UBound(ValArray)
  123.     
  124.     Select Case TypeName
  125.     Case vbDouble
  126.         Dim dArray() As Double
  127.         ReDim dArray(nCount)
  128.         For i = 0 To nCount
  129.             dArray(i) = ValArray(i)
  130.         Next i
  131.         CreateArray = dArray
  132.     Case vbInteger
  133.         Dim nArray() As Integer
  134.         ReDim nArray(nCount)
  135.         For i = 0 To nCount
  136.             nArray(i) = ValArray(i)
  137.         Next i
  138.         CreateArray = nArray
  139.     Case vbString
  140.         Dim sArray() As String
  141.         ReDim sArray(nCount)
  142.         For i = 0 To nCount
  143.             sArray(i) = ValArray(i)
  144.         Next i
  145.         CreateArray = sArray
  146.     Case vbVariant
  147.         Dim vArray()
  148.         ReDim vArray(nCount)
  149.         For i = 0 To nCount
  150.             vArray(i) = ValArray(i)
  151.         Next i
  152.         CreateArray = vArray
  153.     Case vbObject
  154.         Dim oArray() As Object
  155.         ReDim oArray(nCount)
  156.         For i = 0 To nCount
  157.             Set oArray(i) = ValArray(i)
  158.         Next i
  159.         CreateArray = oArray
  160.     End Select
  161. End Function
  163. Public Function CreatePoint(Optional ByVal X As Double = 0#, Optional ByVal Y As Double = 0#, Optional ByVal Z As Double = 0#)
  164.     
  165.     Dim pnt(2) As Double
  166.     pnt(0) = X: pnt(1) = Y: pnt(2) = Z
  167.     
  168.     CreatePoint = pnt
  169.     
  170. End Function
  172. Public Function GetMTextUnformatString(ByVal str As String) As String
  173. '程序功能:按给定的MText字符串返回可用的字符串
  174. On Error Resume Next
  176.     Dim pStrs As New Collection
  177.     Dim pStack As Collection
  178.     Dim n As Integer
  179.     Dim pStr As String
  180.     Dim pEnd As String
  181.     
  182.     str = "{" & str & "}"
  183.     Do While Len(str) > 0
  184.     
  185.         n = IIf(Left(str, 1) = "", 2, 1)
  186.         pStr = Left(str, n)
  187.         '分割MText字符串为控制字符或单个字符
  188.         
  189.         If pStr = "}" Then
  190.         '遇"}"时出栈，直到"{"
  191.         
  192.             pEnd = pStrs(pStrs.Count)
  193.             Set pStack = New Collection
  194.             pStack.Add "*TlsCad*"
  195.             
  196.             Do While pEnd <> "{"
  197.                 
  198.                 pStack.Add pEnd, , 1
  199.                 pStrs.Remove pStrs.Count
  200.                 pEnd = pStrs(pStrs.Count)
  201.                 
  202.             Loop
  203.             
  204.             pStrs.Remove pStrs.Count
  205.             pStack.Remove pStack.Count
  206.             
  207.             For Each i In GetRtfString(pStack)
  208.             '调用GetRtfString函数返回可用的字符集合
  209.             
  210.                 pStrs.Add i
  211.                 
  212.             Next i
  213.             
  214.         Else
  215.         '当前字符入栈
  216.             pStrs.Add Left(str, n)
  217.             
  218.         End If
  219.         
  220.         str = Right(str, Len(str) - n)
  221.         
  222.     Loop
  223.     
  224.     For Each i In pStrs
  225.     '合并字符集合为字符串
  226.         If Len(i) = 2 Then
  227.         '处理、{、}
  228.             GetMTextUnformatString = GetMTextUnformatString & Right(i, 1)
  229.             
  230.         Else
  231.         
  232.             GetMTextUnformatString = GetMTextUnformatString & i
  233.             
  234.         End If
  235.         
  236.     Next i
  237.     
  238. End Function
  240. Private Function GetRtfString(ByVal stack As Collection) As Collection
  241. '程序功能:按给定的Rtf字符集合返回可用的字符集合
  243.     Dim pStrs As New Collection
  244.     Dim pStr As String, pType As Long
  245.     Dim i, j
  246.     
  247.     For Each i In stack
  248.         
  249.         If Len(i) = 1 Then
  250.         
  251.             pStrs.Add i
  252.             
  253.         ElseIf Len(i) = 2 Then
  254.         
  255.             pType = Asc(UCase(Right(i, 1)))
  256.             
  257.             Select Case pType
  258.             
  259.             Case 85, 92, 123, 125
  260.             ' or { or } or U
  261.     
  262.                 pStrs.Add i
  263.                 
  264.             Case 65, 67, 70, 72, 81, 84, 87
  265.             'A or C or F or H or Q or T or W
  266.             
  267.                 Do While stack(1) <> ";"
  268.                     stack.Remove 1
  269.                 Loop
  270.                 stack.Remove 1
  271.                 
  272.             Case 76, 79, 80
  273.             'L or O or P
  274.             
  275.             Case 83
  276.             'S
  277.             
  278.                 stack.Remove 1
  279.                 Do While stack(1) <> ";"
  280.                     If stack(1) <> "^" Then
  281.                         pStrs.Add stack(1)
  282.                     End If
  283.                     stack.Remove 1
  284.                 Loop
  285.                 stack.Remove 1
  286.                 
  287.             Case 126
  288.             '~
  289.             
  290.                 pStrs.Add " "
  291.                 
  292.             End Select
  293.             
  294.         End If
  295.     
  296.     Next i
  298.     Set GetRtfString = pStrs
  299.     
  300. End Function
  302. Private Function Hz2Py(ByVal HZ As String) As String
  303.     Dim PY As String
  304.     If Asc(HZ) < -20319 Or Asc(HZ) > -10247 Then
  305.         GetPY = HZ
  306.         Exit Function
  307.     End If
  308.     Select Case Asc(HZ)
  309.         Case -20319 To -20318
  310.             PY = "a"
  311.         Case -20317 To -20305
  312.             PY = "ai"
  313.         Case -20304 To -20296
  314.             PY = "an"
  315.         Case -20295 To -20293
  316.             PY = "ang"
  317.         Case -20292 To -20284
  318.             PY = "ao"
  319.         Case -20283 To -20266
  320.             PY = "ba"
  321.         Case -20265 To -20258
  322.             PY = "bai"
  323.         Case -20257 To -20243
  324.             PY = "ban"
  325.         Case -20242 To -20231
  326.             PY = "bang"
  327.         Case -20230 To -20052
  328.             PY = "bao"
  329.         Case -20051 To -20037
  330.             PY = "bei"
  331.         Case -20036 To -20033
  332.             PY = "ben"
  333.         Case -20032 To -20027
  334.             PY = "beng"
  335.         Case -20026 To -20003
  336.             PY = "bi"
  337.         Case -20002 To -19991
  338.             PY = "bian"
  339.         Case -19990 To -19987
  340.             PY = "biao"
  341.         Case -19986 To -19983
  342.             PY = "bie"
  343.         Case -19982 To -19977
  344.             PY = "bin"
  345.         Case -19976 To -19806
  346.             PY = "bing"
  347.         Case -19805 To -19785
  348.             PY = "bo"
  349.         Case -19784 To -19776
  350.             PY = "bu"
  351.         Case -19775 To -19775
  352.             PY = "ca"
  353.         Case -19774 To -19764
  354.             PY = "cai"
  355.         Case -19763 To -19757
  356.             PY = "can"
  357.         Case -19756 To -19752
  358.             PY = "cang"
  359.         Case -19751 To -19747
  360.             PY = "cao"
  361.         Case -19746 To -19742
  362.             PY = "ce"
  363.         Case -19741 To -19740
  364.             PY = "ceng"
  365.         Case -19739 To -19729
  366.             PY = "cha"
  367.         Case -19728 To -19726
  368.             PY = "chai"
  369.         Case -19725 To -19716
  370.             PY = "chan"
  371.         Case -19715 To -19541
  372.             PY = "chang"
  373.         Case -19540 To -19532
  374.             PY = "chao"
  375.         Case -19531 To -19526
  376.             PY = "che"
  377.         Case -19525 To -19516
  378.             PY = "chen"
  379.         Case -19515 To -19501
  380.             PY = "cheng"
  381.         Case -19500 To -19485
  382.             PY = "chi"
  383.         Case -19484 To -19480
  384.             PY = "chong"
  385.         Case -19479 To -19468
  386.             PY = "chou"
  387.         Case -19467 To -19290
  388.             PY = "chu"
  389.         Case -19289 To -19289
  390.             PY = "chuai"
  391.         Case -19288 To -19282
  392.             PY = "chuan"
  393.         Case -19281 To -19276
  394.             PY = "chuang"
  395.         Case -19275 To -19271
  396.             PY = "chui"
  397.         Case -19270 To -19264
  398.             PY = "chun"
  399.         Case -19263 To -19262
  400.             PY = "chuo"
  401.         Case -19261 To -19250
  402.             PY = "ci"
  403.         Case -19249 To -19244
  404.             PY = "cong"
  405.         Case -19243 To -19243
  406.             PY = "cou"
  407.         Case -19242 To -19239
  408.             PY = "cu"
  409.         Case -19238 To -19236
  410.             PY = "cuan"
  411.         Case -19235 To -19228
  412.             PY = "cui"
  413.         Case -19227 To -19225
  414.             PY = "cun"
  415.         Case -19224 To -19219
  416.             PY = "cuo"
  417.         Case -19218 To -19213
  418.             PY = "da"
  419.         Case -19212 To -19039
  420.             PY = "dai"
  421.         Case -19038 To -19024
  422.             PY = "dan"
  423.         Case -19023 To -19019
  424.             PY = "dang"
  425.         Case -19018 To -19007
  426.             PY = "dao"
  427.         Case -19006 To -19004
  428.             PY = "de"
  429.         Case -19003 To -18997
  430.             PY = "deng"
  431.         Case -18996 To -18978
  432.             PY = "di"
  433.         Case -18977 To -18962
  434.             PY = "dian"
  435.         Case -18961 To -18953
  436.             PY = "diao"
  437.         Case -18952 To -18784
  438.             PY = "die"
  439.         Case -18783 To -18775
  440.             PY = "ding"
  441.         Case -18774 To -18774
  442.             PY = "diu"
  443.         Case -18773 To -18764
  444.             PY = "dong"
  445.         Case -18763 To -18757
  446.             PY = "dou"
  447.         Case -18756 To -18742
  448.             PY = "du"
  449.         Case -18741 To -18736
  450.             PY = "duan"
  451.         Case -18735 To -18732
  452.             PY = "dui"
  453.         Case -18731 To -18723
  454.             PY = "dun"
  455.         Case -18722 To -18711
  456.             PY = "duo"
  457.         Case -18710 To -18698
  458.             PY = "e"
  459.         Case -18697 To -18697
  460.             PY = "en"
  461.         Case -18696 To -18527
  462.             PY = "er"
  463.         Case -18526 To -18519
  464.             PY = "fa"
  465.         Case -18518 To -18502
  466.             PY = "fan"
  467.         Case -18501 To -18491
  468.             PY = "fang"
  469.         Case -18490 To -18479
  470.             PY = "fei"
  471.         Case -18478 To -18464
  472.             PY = "fen"
  473.         Case -18463 To -18449
  474.             PY = "feng"
  475.         Case -18448 To -18448
  476.             PY = "fo"
  477.         Case -18447 To -18447
  478.             PY = "fou"
  479.         Case -18446 To -18240
  480.             PY = "fu"
  481.         Case -18239 To -18238
  482.             PY = "ga"
  483.         Case -18237 To -18232
  484.             PY = "gai"
  485.         Case -18231 To -18221
  486.             PY = "gan"
  487.         Case -18220 To -18212
  488.             PY = "gang"
  489.         Case -18211 To -18202
  490.             PY = "gao"
  491.         Case -18201 To -18185
  492.             PY = "ge"
  493.         Case -18184 To -18184
  494.             PY = "gei"
  495.         Case -18183 To -18182
  496.             PY = "gen"
  497.         Case -18181 To -18013
  498.             PY = "geng"
  499.         Case -18012 To -17998
  500.             PY = "gong"
  501.         Case -17997 To -17989
  502.             PY = "gou"
  503.         Case -17988 To -17971
  504.             PY = "gu"
  505.         Case -17970 To -17965
  506.             PY = "gua"
  507.         Case -17964 To -17962
  508.             PY = "guai"
  509.         Case -17961 To -17951
  510.             PY = "guan"
  511.         Case -17950 To -17948
  512.             PY = "guang"
  513.         Case -17947 To -17932
  514.             PY = "gui"
  515.         Case -17931 To -17929
  516.             PY = "gun"
  517.         Case -17928 To -17923
  518.             PY = "guo"
  519.         Case -17922 To -17760
  520.             PY = "ha"
  521.         Case -17759 To -17753
  522.             PY = "hai"
  523.         Case -17752 To -17734
  524.             PY = "han"
  525.         Case -17733 To -17731
  526.             PY = "hang"
  527.         Case -17730 To -17722
  528.             PY = "hao"
  529.         Case -17721 To -17704
  530.             PY = "he"
  531.         Case -17703 To -17702
  532.             PY = "hei"
  533.         Case -17701 To -17698
  534.             PY = "hen"
  535.         Case -17697 To -17693
  536.             PY = "heng"
  537.         Case -17692 To -17684
  538.             PY = "hong"
  539.         Case -17683 To -17677
  540.             PY = "hou"
  541.         Case -17676 To -17497
  542.             PY = "hu"
  543.         Case -17496 To -17488
  544.             PY = "hua"
  545.         Case -17487 To -17483
  546.             PY = "huai"
  547.         Case -17482 To -17469
  548.             PY = "huan"
  549.         Case -17468 To -17455
  550.             PY = "huang"
  551.         Case -17454 To -17434
  552.             PY = "hui"
  553.         Case -17433 To -17428
  554.             PY = "hun"
  555.         Case -17427 To -17418
  556.             PY = "huo"
  557.         Case -17417 To -17203
  558.             PY = "ji"
  559.         Case -17202 To -17186
  560.             PY = "jia"
  561.         Case -17185 To -16984
  562.             PY = "jian"
  563.         Case -16983 To -16971
  564.             PY = "jiang"
  565.         Case -16970 To -16943
  566.             PY = "jiao"
  567.         Case -16942 To -16916
  568.             PY = "jie"
  569.         Case -16915 To -16734
  570.             PY = "jin"
  571.         Case -16733 To -16709
  572.             PY = "jing"
  573.         Case -16708 To -16707
  574.             PY = "jiong"
  575.         Case -16706 To -16690
  576.             PY = "jiu"
  577.         Case -16689 To -16665
  578.             PY = "ju"
  579.         Case -16664 To -16658
  580.             PY = "juan"
  581.         Case -16657 To -16648
  582.             PY = "jue"
  583.         Case -16647 To -16475
  584.             PY = "jun"
  585.         Case -16474 To -16471
  586.             PY = "ka"
  587.         Case -16470 To -16466
  588.             PY = "kai"
  589.         Case -16465 To -16460
  590.             PY = "kan"
  591.         Case -16459 To -16453
  592.             PY = "kang"
  593.         Case -16452 To -16449
  594.             PY = "kao"
  595.         Case -16448 To -16434
  596.             PY = "ke"
  597.         Case -16433 To -16430
  598.             PY = "ken"
  599.         Case -16429 To -16428
  600.             PY = "keng"
  601.         Case -16427 To -16424
  602.             PY = "kong"
  603.         Case -16423 To -16420
  604.             PY = "kou"
  605.         Case -16419 To -16413
  606.             PY = "ku"
  607.         Case -16412 To -16408
  608.             PY = "kua"
  609.         Case -16407 To -16404
  610.             PY = "kuai"
  611.         Case -16403 To -16402
  612.             PY = "kuan"
  613.         Case -16401 To -16394
  614.             PY = "kuang"
  615.         Case -16393 To -16221
  616.             PY = "kui"
  617.         Case -16220 To -16217
  618.             PY = "kun"
  619.         Case -16216 To -16213
  620.             PY = "kuo"
  621.         Case -16212 To -16206
  622.             PY = "la"
  623.         Case -16205 To -16203
  624.             PY = "lai"
  625.         Case -16202 To -16188
  626.             PY = "lan"
  627.         Case -16187 To -16181
  628.             PY = "lang"
  629.         Case -16180 To -16172
  630.             PY = "lao"
  631.         Case -16171 To -16170
  632.             PY = "le"
  633.         Case -16169 To -16159
  634.             PY = "lei"
  635.         Case -16158 To -16156
  636.             PY = "leng"
  637.         Case -16155 To -15960
  638.             PY = "li"
  639.         Case -15959 To -15959
  640.             PY = "lia"
  641.         Case -15958 To -15945
  642.             PY = "lian"
  643.         Case -15944 To -15934
  644.             PY = "liang"
  645.         Case -15933 To -15921
  646.             PY = "liao"
  647.         Case -15920 To -15916
  648.             PY = "lie"
  649.         Case -15915 To -15904
  650.             PY = "lin"
  651.         Case -15903 To -15890
  652.             PY = "ling"
  653.         Case -15889 To -15879
  654.             PY = "liu"
  655.         Case -15878 To -15708
  656.             PY = "long"
  657.         Case -15707 To -15702
  658.             PY = "lou"
  659.         Case -15701 To -15682
  660.             PY = "lu"
  661.         Case -15681 To -15668
  662.             PY = "lv"
  663.         Case -15667 To -15662
  664.             PY = "luan"
  665.         Case -15661 To -15660
  666.             PY = "lue"
  667.         Case -15659 To -15653
  668.             PY = "lun"
  669.         Case -15652 To -15641
  670.             PY = "luo"
  671.         Case -15640 To -15632
  672.             PY = "ma"
  673.         Case -15631 To -15626
  674.             PY = "mai"
  675.         Case -15625 To -15455
  676.             PY = "man"
  677.         Case -15454 To -15449
  678.             PY = "mang"
  679.         Case -15448 To -15437
  680.             PY = "mao"
  681.         Case -15436 To -15436
  682.             PY = "me"
  683.         Case -15435 To -15420
  684.             PY = "mei"
  685.         Case -15419 To -15417
  686.             PY = "men"
  687.         Case -15416 To -15409
  688.             PY = "meng"
  689.         Case -15408 To -15395
  690.             PY = "mi"
  691.         Case -15394 To -15386
  692.             PY = "mian"
  693.         Case -15385 To -15378
  694.             PY = "miao"
  695.         Case -15377 To -15376
  696.             PY = "mie"
  697.         Case -15375 To -15370
  698.             PY = "min"
  699.         Case -15369 To -15364
  700.             PY = "ming"
  701.         Case -15363 To -15363
  702.             PY = "miu"
  703.         Case -15362 To -15184
  704.             PY = "mo"
  705.         Case -15183 To -15181
  706.             PY = "mou"
  707.         Case -15180 To -15166
  708.             PY = "mu"
  709.         Case -15165 To -15159
  710.             PY = "na"
  711.         Case -15158 To -15154
  712.             PY = "nai"
  713.         Case -15153 To -15151
  714.             PY = "nan"
  715.         Case -15150 To -15150
  716.             PY = "nang"
  717.         Case -15149 To -15145
  718.             PY = "nao"
  719.         Case -15144 To -15144
  720.             PY = "ne"
  721.         Case -15143 To -15142
  722.             PY = "nei"
  723.         Case -15141 To -15141
  724.             PY = "nen"
  725.         Case -15140 To -15140
  726.             PY = "neng"
  727.         Case -15139 To -15129
  728.             PY = "ni"
  729.         Case -15128 To -15122
  730.             PY = "nian"
  731.         Case -15121 To -15120
  732.             PY = "niang"
  733.         Case -15119 To -15118
  734.             PY = "niao"
  735.         Case -15117 To -15111
  736.             PY = "nie"
  737.         Case -15110 To -15110
  738.             PY = "nin"
  739.         Case -15109 To -14942
  740.             PY = "ning"
  741.         Case -14941 To -14938
  742.             PY = "niu"
  743.         Case -14937 To -14934
  744.             PY = "nong"
  745.         Case -14933 To -14931
  746.             PY = "nu"
  747.         Case -14930 To -14930
  748.             PY = "nv"
  749.         Case -14929 To -14929
  750.             PY = "nuan"
  751.         Case -14928 To -14927
  752.             PY = "nue"
  753.         Case -14926 To -14923
  754.             PY = "nuo"
  755.         Case -14922 To -14922
  756.             PY = "o"
  757.         Case -14921 To -14915
  758.             PY = "ou"
  759.         Case -14914 To -14909
  760.             PY = "pa"
  761.         Case -14908 To -14903
  762.             PY = "pai"
  763.         Case -14902 To -14895
  764.             PY = "pan"
  765.         Case -14894 To -14890
  766.             PY = "pang"
  767.         Case -14889 To -14883
  768.             PY = "pao"
  769.         Case -14882 To -14874
  770.             PY = "pei"
  771.         Case -14873 To -14872
  772.             PY = "pen"
  773.         Case -14871 To -14858
  774.             PY = "peng"
  775.         Case -14857 To -14679
  776.             PY = "pi"
  777.         Case -14678 To -14675
  778.             PY = "pian"
  779.         Case -14674 To -14671
  780.             PY = "piao"
  781.         Case -14670 To -14669
  782.             PY = "pie"
  783.         Case -14668 To -14664
  784.             PY = "pin"
  785.         Case -14663 To -14655
  786.             PY = "ping"
  787.         Case -14654 To -14646
  788.             PY = "po"
  789.         Case -14645 To -14631
  790.             PY = "pu"
  791.         Case -14630 To -14595
  792.             PY = "qi"
  793.         Case -14594 To -14430
  794.             PY = "qia"
  795.         Case -14429 To -14408
  796.             PY = "qian"
  797.         Case -14407 To -14400
  798.             PY = "qiang"
  799.         Case -14399 To -14385
  800.             PY = "qiao"
  801.         Case -14384 To -14380
  802.             PY = "qie"
  803.         Case -14379 To -14369
  804.             PY = "qin"
  805.         Case -14368 To -14356
  806.             PY = "qing"
  807.         Case -14355 To -14354
  808.             PY = "qiong"
  809.         Case -14353 To -14346
  810.             PY = "qiu"
  811.         Case -14345 To -14171
  812.             PY = "qu"
  813.         Case -14170 To -14160
  814.             PY = "quan"
  815.         Case -14159 To -14152
  816.             PY = "que"
  817.         Case -14151 To -14150
  818.             PY = "qun"
  819.         Case -14149 To -14146
  820.             PY = "ran"
  821.         Case -14145 To -14141
  822.             PY = "rang"
  823.         Case -14140 To -14138
  824.             PY = "rao"
  825.         Case -14137 To -14136
  826.             PY = "re"
  827.         Case -14135 To -14126
  828.             PY = "ren"
  829.         Case -14125 To -14124
  830.             PY = "reng"
  831.         Case -14123 To -14123
  832.             PY = "ri"
  833.         Case -14122 To -14113
  834.             PY = "rong"
  835.         Case -14112 To -14110
  836.             PY = "rou"
  837.         Case -14109 To -14100
  838.             PY = "ru"
  839.         Case -14099 To -14098
  840.             PY = "ruan"
  841.         Case -14097 To -14095
  842.             PY = "rui"
  843.         Case -14094 To -14093
  844.             PY = "run"
  845.         Case -14092 To -14091
  846.             PY = "ruo"
  847.         Case -14090 To -14088
  848.             PY = "sa"
  849.         Case -14087 To -14084
  850.             PY = "sai"
  851.         Case -14083 To -13918
  852.             PY = "san"
  853.         Case -13917 To -13915
  854.             PY = "sang"
  855.         Case -13914 To -13911
  856.             PY = "sao"
  857.         Case -13910 To -13908
  858.             PY = "se"
  859.         Case -13907 To -13907
  860.             PY = "sen"
  861.         Case -13906 To -13906
  862.             PY = "seng"
  863.         Case -13905 To -13897
  864.             PY = "sha"
  865.         Case -13896 To -13895
  866.             PY = "shai"
  867.         Case -13894 To -13879
  868.             PY = "shan"
  869.         Case -13878 To -13871
  870.             PY = "shang"
  871.         Case -13870 To -13860
  872.             PY = "shao"
  873.         Case -13859 To -13848
  874.             PY = "she"
  875.         Case -13847 To -13832
  876.             PY = "shen"
  877.         Case -13831 To -13659
  878.             PY = "sheng"
  879.         Case -13658 To -13612
  880.             PY = "shi"
  881.         Case -13611 To -13602
  882.             PY = "shou"
  883.         Case -13601 To -13407
  884.             PY = "shu"
  885.         Case -13406 To -13405
  886.             PY = "shua"
  887.         Case -13404 To -13401
  888.             PY = "shuai"
  889.         Case -13400 To -13399
  890.             PY = "shuan"
  891.         Case -13398 To -13396
  892.             PY = "shuang"
  893.         Case -13395 To -13392
  894.             PY = "shui"
  895.         Case -13391 To -13388
  896.             PY = "shun"
  897.         Case -13387 To -13384
  898.             PY = "shuo"
  899.         Case -13383 To -13368
  900.             PY = "si"
  901.         Case -13367 To -13360
  902.             PY = "song"
  903.         Case -13359 To -13357
  904.             PY = "sou"
  905.         Case -13356 To -13344
  906.             PY = "su"
  907.         Case -13343 To -13341
  908.             PY = "suan"
  909.         Case -13340 To -13330
  910.             PY = "sui"
  911.         Case -13329 To -13327
  912.             PY = "sun"
  913.         Case -13326 To -13319
  914.             PY = "suo"
  915.         Case -13318 To -13148
  916.             PY = "ta"
  917.         Case -13147 To -13139
  918.             PY = "tai"
  919.         Case -13138 To -13121
  920.             PY = "tan"
  921.         Case -13120 To -13108
  922.             PY = "tang"
  923.         Case -13107 To -13097
  924.             PY = "tao"
  925.         Case -13096 To -13096
  926.             PY = "te"
  927.         Case -13095 To -13092
  928.             PY = "teng"
  929.         Case -13091 To -13077
  930.             PY = "ti"
  931.         Case -13076 To -13069
  932.             PY = "tian"
  933.         Case -13068 To -13064
  934.             PY = "tiao"
  935.         Case -13063 To -13061
  936.             PY = "tie"
  937.         Case -13060 To -12889
  938.             PY = "ting"
  939.         Case -12888 To -12876
  940.             PY = "tong"
  941.         Case -12875 To -12872
  942.             PY = "tou"
  943.         Case -12871 To -12861
  944.             PY = "tu"
  945.         Case -12860 To -12859
  946.             PY = "tuan"
  947.         Case -12858 To -12853
  948.             PY = "tui"
  949.         Case -12852 To -12850
  950.             PY = "tun"
  951.         Case -12849 To -12839
  952.             PY = "tuo"
  953.         Case -12838 To -12832
  954.             PY = "wa"
  955.         Case -12831 To -12830
  956.             PY = "wai"
  957.         Case -12829 To -12813
  958.             PY = "wan"
  959.         Case -12812 To -12803
  960.             PY = "wang"
  961.         Case -12802 To -12608
  962.             PY = "wei"
  963.         Case -12607 To -12598
  964.             PY = "wen"
  965.         Case -12597 To -12595
  966.             PY = "weng"
  967.         Case -12594 To -12586
  968.             PY = "wo"
  969.         Case -12585 To -12557
  970.             PY = "wu"
  971.         Case -12556 To -12360
  972.             PY = "xi"
  973.         Case -12359 To -12347
  974.             PY = "xia"
  975.         Case -12346 To -12321
  976.             PY = "xian"
  977.         Case -12320 To -12301
  978.             PY = "xiang"
  979.         Case -12300 To -12121
  980.             PY = "xiao"
  981.         Case -12120 To -12100
  982.             PY = "xie"
  983.         Case -12099 To -12090
  984.             PY = "xin"
  985.         Case -12089 To -12075
  986.             PY = "xing"
  987.         Case -12074 To -12068
  988.             PY = "xiong"
  989.         Case -12067 To -12059
  990.             PY = "xiu"
  991.         Case -12058 To -12040
  992.             PY = "xu"
  993.         Case -12039 To -11868
  994.             PY = "xuan"
  995.         Case -11867 To -11862
  996.             PY = "xue"
  997.         Case -11861 To -11848
  998.             PY = "xun"
  999.         Case -11847 To -11832
  1000.             PY = "ya"
  1001.         Case -11831 To -11799
  1002.             PY = "yan"
  1003.         Case -11798 To -11782
  1004.             PY = "yang"
  1005.         Case -11781 To -11605
  1006.             PY = "yao"
  1007.         Case -11604 To -11590
  1008.             PY = "ye"
  1009.         Case -11589 To -11537
  1010.             PY = "yi"
  1011.         Case -11536 To -11359
  1012.             PY = "yin"
  1013.         Case -11358 To -11341
  1014.             PY = "ying"
  1015.         Case -11340 To -11340
  1016.             PY = "yo"
  1017.         Case -11339 To -11325
  1018.             PY = "yong"
  1019.         Case -11324 To -11304
  1020.             PY = "you"
  1021.         Case -11303 To -11098
  1022.             PY = "yu"
  1023.         Case -11097 To -11078
  1024.             PY = "yuan"
  1025.         Case -11077 To -11068
  1026.             PY = "yue"
  1027.         Case -11067 To -11056
  1028.             PY = "yun"
  1029.         Case -11055 To -11053
  1030.             PY = "za"
  1031.         Case -11052 To -11046
  1032.             PY = "zai"
  1033.         Case -11045 To -11042
  1034.             PY = "zan"
  1035.         Case -11041 To -11039
  1036.             PY = "zang"
  1037.         Case -11038 To -11025
  1038.             PY = "zao"
  1039.         Case -11024 To -11021
  1040.             PY = "ze"
  1041.         Case -11020 To -11020
  1042.             PY = "zei"
  1043.         Case -11019 To -11019
  1044.             PY = "zen"
  1045.         Case -11018 To -11015
  1046.             PY = "zeng"
  1047.         Case -11014 To -10839
  1048.             PY = "zha"
  1049.         Case -10838 To -10833
  1050.             PY = "zhai"
  1051.         Case -10832 To -10816
  1052.             PY = "zhan"
  1053.         Case -10815 To -10801
  1054.             PY = "zhang"
  1055.         Case -10800 To -10791
  1056.             PY = "zhao"
  1057.         Case -10790 To -10781
  1058.             PY = "zhe"
  1059.         Case -10780 To -10765
  1060.             PY = "zhen"
  1061.         Case -10764 To -10588
  1062.             PY = "zheng"
  1063.         Case -10587 To -10545
  1064.             PY = "zhi"
  1065.         Case -10544 To -10534
  1066.             PY = "zhong"
  1067.         Case -10533 To -10520
  1068.             PY = "zhou"
  1069.         Case -10519 To -10332
  1070.             PY = "zhu"
  1071.         Case -10331 To -10330
  1072.             PY = "zhua"
  1073.         Case -10329 To -10329
  1074.             PY = "zhuai"
  1075.         Case -10328 To -10323
  1076.             PY = "zhuan"
  1077.         Case -10322 To -10316
  1078.             PY = "zhuang"
  1079.         Case -10315 To -10310
  1080.             PY = "zhui"
  1081.         Case -10309 To -10308
  1082.             PY = "zhun"
  1083.         Case -10307 To -10297
  1084.             PY = "zhuo"
  1085.         Case -10296 To -10282
  1086.             PY = "zi"
  1087.         Case -10281 To -10275
  1088.             PY = "zong"
  1089.         Case -10274 To -10271
  1090.             PY = "zou"
  1091.         Case -10270 To -10263
  1092.             PY = "zu"
  1093.         Case -10262 To -10261
  1094.             PY = "zuan"
  1095.         Case -10260 To -10257
  1096.             PY = "zui"
  1097.         Case -10256 To -10255
  1098.             PY = "zun"
  1099.         Case -10254 To -10248
  1100.             PY = "zuo"
  1101.     End Select
  1102.     Hz2Py = PY
  1103. End Function
  1105. Public Function Hz2Pys(ByVal HZString As String) As String
  1106.     Dim i As Integer
  1107.     Dim PYString As String
  1108.     PYString = ""
  1109.     For i = 1 To Len(HZString)
  1110.         PYString = PYString & Hz2Py(Mid(HZString, i, 1)) & " "
  1111.     Next
  1112.     PYString = Left(PYString, Len(PYString) - 1)
  1113.     Hz2Pys = PYString
  1114. End Function