|
发表于 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
|
|