求助 VBA的 SelectByPolygon??

wangiron

我想通过选择闭合多线段,并选择该多线段里面的注记,但选择不了注记,不知道为什么  代码如下: 

 iType0(0) = 0: iData0(0) = "LWPOLYLINE": iType0(1) = 39: iData0(1) = "902"
     mode = acSelectionSetCrossingPolygon
     iType1(0) = 0: iData1(0) = "TEXT": iType1(1) = 8: iData1(1) = "TBH"
     Call DeleteSelects
     Set ssetOply = ThisDrawing.SelectionSets.Add("poly")
     ssetOply.Select acSelectionSetAll, , , iType0, iData0
      MsgBox ssetOply.Count
     For Each Oply In ssetOply
        pnts = Oply.Coordinates
        Pcount = UBound(pnts)

        For i = 0 To Pcount
           pta(i ) = pnts(i)
         Next
         
         Set ssetText = ThisDrawing.SelectionSets.Add("text")
          ssetText.SelectByPolygon mode, pta, iType1, iData1   ?????

好像是参数pta有问题,请高手指教