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

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

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

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

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

pckite 发表于 2004-11-15 13:16:00

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

yulijin608 发表于 2004-11-15 16:25:00

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

查看完整版本: [VBA]VBA如何取某个范围内的所有文字呢？