求助：选择集中的过滤问题

allan_ham

有一个明细表，想通过下面的代码，采用鼠标点选范围的方法，读取指定位置的文字信息。如读取点1（15,0）和点2（25,10）之间的文字。但是选取内容总是为空。请高手诊断：

Dim adText as AcadText
Dim adMText As AcadMText
Dim adss as AcadSelectionset
Dim fType(0 to 3)  As Integet
Dim fData(0 to 3) As Variant
Dim ReturnPoint As Variant
Dim LTPoint(3),RBPoint(3) As Double

On Error Resume Next
Form1.Hide

ReturnPoint=ThisDrawing.Utility.getPoint(,"Enter the 1st Point:")
LTPoint(0)=ReturnPoint(0):LTPoint(1)=ReturnPoint(1):LTPoint(2)=0
ReturnPoint=ThisDrawing.Utility.getPoint(,"Enter the 1st Point:")
RBPoint(0)=ReturnPoint(0):RBPoint(1)=ReturnPoint(1):RBPoint(2)=0

If Not IsNull(ThisDrawing.selectionSets.Item("adss"))Then
    Set adss=ThisDrawing.SelectionSets.Item("adss")
    adss.Delete
End If

set adss=ThisDrawing.SelectionSets/Add("adss")
adss.Clear

fType(0)=-4:fData(0)="<OR"
fType(1)=0  :fData(1)="TEXT"
fType(2)=0  :fData(2)="MTEXT"
fType(3)=-4:fData(3)="OR>"

adss.SelectionSetsWindow LTPoint,RBPoint,fType,fData
/就是这一句出现问题，选择集总是空白。如果去掉后面的fType,fData参数，还是空白。采用Crossing方法，也是空白
采用adss.SelectOnScreen,则可以选择到对象，ObjectName为AcadText。/

Form1.Show
........
请指教

Flyingdancing

adss.Select acSelectionSetWindow, p1, p2

woaishuijia

变量声明错了

2. Dim LTPoint(3),RBPoint(3) As Double

Dim LTPoint(3),RBPoint(3) As Double

应为

2. Dim LTPoint(2) As Double, RBPoint(2) As Double

Dim LTPoint(2) As Double, RBPoint(2) As Double

allan_ham

感谢大家的回复。
把Dim LTPoint(3),RBPoint(3) As Double
改成Dim LTPoint(3),RBPoint(3)
就可以了