[VBA]VBA如何取某个范围内的所有文字呢？

pckite

VBA如何取某个范围内的所有文字呢？如下图中，如何取出A区内的文字“0.1111”和“0.2198呢？（假如知道了“0.1111”的坐标），谢谢。
有高手说用-boundary命令生成边界，再用选择集选择多段线内的文字,具体怎么样做？

cobalt

Dim FilterType(0 To 0) As Integer
Dim FilterData(0 To 0) As Variant
Dim corner1(0 To 2) As Double
Dim corner2(0 To 2) As Double
Dim ssetObj As AcadSelectionSet
Set ssetObj = ThisDrawing.SelectionSets.Add("SSET")
corner1(0) = x1: corner1(1) = y1: corner1(2) = 0
corner2(0) = x2: corner2(1) = y2: corner2(2) = 0 FilterType(0) = 0: FilterData(0) = "Text"
ssetObj .Select acSelectionSetAll,corner1,corner2, FilterType, FilterData
dim TextObj as acadtext,Str as String
for each TextObj in ssetObj
Str=TextObj.Textstring
next

pckite

TO cobalt: x1、 y1这些变量是什么呢？谢谢

yulijin608

x1,y1 分别是选框的一角的x,y坐标