想连续标注，该怎么实现呢？急

fengxue007

参考别人的写了一段标注面积的程序，现在想连续标注多个封闭区域面积，并且按“Esc”键时退出，该怎么实现呢？
本人新手，恳求大侠不吝赐教！谢谢

2. Sub get_area()
3.     On Error Resume Next
4.     Dim n As Long
5.     n = ThisDrawing.ModelSpace.Count
6.    
7.     Dim pt As Variant
8.     Dim txet_ht As Double, gch As Double
9.     pt = ThisDrawing.Utility.GetPoint(, "请指定区域内部点: ")
10.     ThisDrawing.SendCommand "_-Boundary" & vbCr & pt(0) & "," & pt(1) & vbCr & vbCr
11.     Dim lwpLineObj As AcadLWPolyline
12.     Dim textObj As AcadMText
13.     Dim area As Double
14.    
15.     If ThisDrawing.ModelSpace.Count > n Then
16.       
17.         Set lwpLineObj = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)
18.         lwpLineObj.color = acRed
19.         txet_ht = 15
20.         txet_ht = ThisDrawing.Utility.GetReal("请输入文字高度<15.0>: ")
21.         gch = ThisDrawing.Utility.GetReal("请输入区域高程<" & gch & ">:")
22.         area = Round(lwpLineObj.area, 2)
23.         Set textObj = ThisDrawing.ModelSpace.AddMText(pt, 30 * txet_ht, "高程：" & gch & "\P" & "面积：" & area)
24.         textObj.Height = txet_ht
25.         textObj.Update
26.         If Err Then
27.             Err.Clear
28.             Exit Sub
29.         End If
30.      Else
31.          MsgBox "未发现封闭区域,请检查选定区域是否闭合. "
32.    
33.     End If
35. End Sub

Sub get_area()     On Error Resume Next     Dim n As Long     n = ThisDrawing.ModelSpace.Count         Dim pt As Variant     Dim txet_ht As Double, gch As Double     pt = ThisDrawing.Utility.GetPoint(, "请指定区域内部点: ")     ThisDrawing.SendCommand "_-Boundary" & vbCr & pt(0) & "," & pt(1) & vbCr & vbCr     Dim lwpLineObj As AcadLWPolyline     Dim textObj As AcadMText     Dim area As Double         If ThisDrawing.ModelSpace.Count > n Then                Set lwpLineObj = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)         lwpLineObj.color = acRed         txet_ht = 15         txet_ht = ThisDrawing.Utility.GetReal("请输入文字高度<15.0>: ")         gch = ThisDrawing.Utility.GetReal("请输入区域高程<" & gch & ">:")         area = Round(lwpLineObj.area, 2)         Set textObj = ThisDrawing.ModelSpace.AddMText(pt, 30 * txet_ht, "高程：" & gch & "\P" & "面积：" & area)         textObj.Height = txet_ht         textObj.Update         If Err Then             Err.Clear             Exit Sub         End If      Else          MsgBox "未发现封闭区域,请检查选定区域是否闭合. "         End If End Sub

robbin840311

LZ请联系我，QQ45096732