求助 VBA的 SelectByPolygon??
我想通过选择闭合多线段,并选择该多线段里面的注记,但选择不了注记,不知道为什么代码如下: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有问题,请高手指教
页:
[1]