英语chicken pox怎么翻译？_IT百科

是水痘，是病毒引起的。

水痘（varicella，chickenpox）是由水痘-带状疱疹病毒初次感染引起的急性传染病。主要发生在婴幼儿和学龄前儿童，成人发病症状比儿童更严重。以发热及皮肤和黏膜成批出现周身性红色斑丘疹、疱疹、痂疹为特征，皮疹呈向心性分布，主要发生在胸、腹、背，四肢很少。冬春两季多发，其传染力强，水痘患者是惟一的传染源，自发病前1～2天直至皮疹干燥结痂期均有传染性，接触或飞沫吸入均可传染，易感儿发病率可达95%以上。该病为自限性疾病，一般不留瘢痕，如合并细菌感染会留瘢痕，病后可获得终身免疫，有时病毒以静止状态存留于神经节，多年后感染复发而出现带状疱疹。

该病潜伏期为12～21日，平均14日。起病较急，年长儿童和成人在皮疹出现前可有发热、头痛、全身倦怠、恶心、呕吐、腹痛等前驱症状，小儿则皮疹和全身症状同时出现。

在发病24小时内出现皮疹，皮疹先发于头皮、躯干受压部分，呈向心性分布。最开始为粉红色小斑疹，迅即变为米粒至豌豆大的圆型紧张水疱，周围明显红晕，有水疱的中央呈脐窝状。黏膜亦常受侵，见于口腔、咽部、眼结膜、外阴、肛门等处。

在为期1～6日的出疹期内皮疹相继分批出现，皮损呈现由细小的红色斑丘疹→疱疹→结痂→脱痂的演变过程，脱痂后不留瘢痕。水疱期痛痒明显，若因挠抓继发感染时可留下轻度凹痕。体弱者可出现高热，约4%的成年人可发生播散性水痘、水痘性肺炎。

水痘的临床异型表现有：大疱性水痘、出血性水痘、新生儿水痘、成人水痘等。此外，若妊娠期感染水痘，可引起胎儿畸形、早产或死胎。

希望我能帮助你解疑释惑。

点名？

你要找对象的点还是单点还是很多点？

如果是找多点，找到后的点坐标放在哪里？

去我空间里面，我写的几套，或许对你有帮助

On Error GoTo Err:

Dim Varian As Variant

Dim Varian1 As Variant

Dim PotZ As Integer

Dim PotZa As Integer

Dim sset As AcadSelectionSet

Dim TscObj As AcadEntity

Dim PoX(0 To 2) As Double

Dim PoY(0 To 2) As Double

Dim MaxPo(0 To 2) As Double

Dim MinPo(0 To 2) As Double

Dim Lin As AcadLine

Dim Thk As String

AutoView.hide

Set sset = ThisDrawing.SelectionSets.Add("AutoView0003")

sset.SelectOnScreen

For Each TscObj In sset

If TscObj.ObjectName = "AcDbPolyline" Or TscObj.ObjectName = "AcDb3DPolyline" And TextBox2.Text <> "" And TextBox1.Text <> "" Then

TscObj.Closed = True '盢�某絬�超

Thk = TextBox2.Text

If Val(Thk) = 0 Then

Thk = "1"

End If '瓜�玴�

'Varian = ThisDrawing.Utility.GetPoint(, "叫�）�竚翴:")

'PoS(0) = Varian(0): PoS(1) = Varian(1): PoS(2) = Varian(2)

Varian = TscObj.Coordinate(0)

MinPo(0) = Varian(0): MinPo(1) = Varian(1): MinPo(2) = 0 '砞）��程�翴�瓜じ�

MaxPo(0) = Varian(0): MaxPo(1) = Varian(1): MaxPo(2) = 0

For PotZ = LBound(TscObj.Coordinates) To (UBound(TscObj.Coordinates) - 1) / 2 '笲《翴计秖�妓�Ω计

Varian = TscObj.Coordinate(PotZ) '弄�–�翴�Г夹砞�Pox

PoX(0) = Varian(0): PoX(1) = Varian(1): PoX(2) = 0

If MinPo(0) > PoX(0) Then 'т�俱�瓜��程�翴MinPo

MinPo(0) = PoX(0): MinPo(2) = PoX(2)

End If

If MinPo(1) > PoX(1) Then

MinPo(1) = PoX(1): MinPo(2) = PoX(2)

End If

If MaxPo(0) < PoX(0) Then 'т�俱�瓜��程蔼翴MaxPo

MaxPo(0) = PoX(0): MaxPo(2) = PoX(2)

End If

If MaxPo(1) < PoX(1) Then

MaxPo(1) = PoX(1): MaxPo(2) = PoX(2)

End If

For PotZ = LBound(TscObj.Coordinates) To (UBound(TscObj.Coordinates) - 1) / 2 '笲《翴计秖�妓�Ω计

Varian = TscObj.Coordinate(PotZ) '弄�–�翴�Г夹�Varian

If TopView.Value = True Then 'щ纥よ��よ��PoX,Y�

PoX(0) = Varian(0): PoX(1) = MaxPo(1) + Val(TextBox1.Text)

PoY(0) = PoX(0): PoY(1) = PoX(1) + Val(Thk): PoX(2) = 0

Set Lin = ThisDrawing.ModelSpace.AddLine(PoX, PoY) 'ㄌΩ–�翴礶絬

End If

If DownView.Value = True Then 'щ纥よ��よ��PoX,Y�

PoX(0) = Varian(0): PoX(1) = MinPo(1) - Val(TextBox1.Text)

PoY(0) = PoX(0): PoY(1) = PoX(1) - Val(Thk): PoX(2) = 0

Set Lin = ThisDrawing.ModelSpace.AddLine(PoX, PoY) 'ㄌΩ–�翴礶絬

End If

If LeftView.Value = True Then 'щ纥よ��オよ��PoX,Y�

PoX(0) = MinPo(0) - Val(TextBox1.Text): PoX(1) = Varian(1): PoX(2) = 0

PoY(0) = PoX(0) - Val(Thk): PoY(1) = PoX(1): PoX(2) = 0

Set Lin = ThisDrawing.ModelSpace.AddLine(PoX, PoY) 'ㄌΩ–�翴礶絬

End If

If RightView.Value = True Then 'щ纥よ��よ��PoX,Y�

PoX(0) = MaxPo(0) + Val(TextBox1.Text): PoX(1) = Varian(1): PoX(2) = 0

PoY(0) = PoX(0) + Val(Thk): PoY(1) = PoX(1): PoX(2) = 0

Set Lin = ThisDrawing.ModelSpace.AddLine(PoX, PoY) 'ㄌΩ–�翴礶絬

End If

If TopView.Value = True Then 'щ纥よ��よ��よ�絬

PoX(0) = MinPo(0): PoX(1) = MaxPo(1) + Val(TextBox1.Text): PoX(2) = 0

PoY(0) = MaxPo(0): PoY(1) = PoX(1): PoX(2) = 0