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

pckite · 发表于 2004-11-15 12:04:00

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

登录/注册后可看大图

cobalt · 发表于 2004-11-15 12:22:00

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