求助：关于SelectByPolygon 的选择方法..

caokancc

我的代码：

3.     Dim pnt As Variant
4.     Dim Object As AcadEntity
5.     ThisDrawing.Application.ActiveDocument.Utility.GetEntity Object, pnt, vbCr & "选择封闭多段线"
6.       Dim uu As Long, ub As Long, m As Long, k As Long
7.       Dim plverts As Variant
8.           plverts = Object.Coordinates
9.           uu = UBound(plverts)
10.           ub = (uu + 1) / 2
11. ‘         MsgBox "节点" & ub, 64
12.                   m = 0: k = 0
13.                ReDim fwx(0 To uu) As Double
14.         While m <= ub
15.             fwx(m) = plverts(k)
16.             fwx(m + 1) = plverts(k + 1)
17.             m = m + 2: k = k + 2
18.         Wend
20. ...

    Dim pnt As Variant     Dim Object As AcadEntity     ThisDrawing.Application.ActiveDocument.Utility.GetEntity Object, pnt, vbCr & "选择封闭多段线"       Dim uu As Long, ub As Long, m As Long, k As Long       Dim plverts As Variant           plverts = Object.Coordinates           uu = UBound(plverts)           ub = (uu + 1) / 2 ‘         MsgBox "节点" & ub, 64                   m = 0: k = 0                ReDim fwx(0 To uu) As Double         While m <= ub             fwx(m) = plverts(k)             fwx(m + 1) = plverts(k + 1)             m = m + 2: k = k + 2         Wend ...

这个时候  fwx  应该就是所选多段线所有节点的坐标，然后我用    ss_dim.SelectByPolygon mode, fwx, gbcode, gbdata
来选择  却什么都没选中，我希望是选择这个封闭多段线范围内的 所有图元信息...
望高手赐教，急需解决........谢谢