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

 
    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
 
 ...