Выбирать многоугольником

Option Explicit
Public Sub Ch_SelectByPolygon()
Dim setObj As AcadSelectionSet
Dim setColl As AcadSelectionSets
Dim objEnt As AcadEntity
Dim plineObj As AcadLWPolyline
Dim pickPnt As Variant
Dim setName As String
Dim selMod As Long
Dim vertPts As Variant
Dim dblElv As Double
Dim gpCode(1) As Integer
Dim dataValue(1) As Variant
Dim dxfcode, dxfdata
Dim selPts As Variant
On Error GoTo SayMeAbout
gpCode(0) = 0: gpCode(1) = 8
dataValue(0) = "TEXT": dataValue(1) = "ANNO-TEXT"
dxfcode = gpCode: dxfdata = dataValue
setName = "PolygonSelect"
  With ThisDrawing
    Set setColl = .SelectionSets
    For Each setObj In setColl
      If setObj.Name = setName Then
        .SelectionSets.Item(setName).Delete
        Exit For
      End If
    Next
    Set setObj = .SelectionSets.Add(setName)
  End With
ThisDrawing.Utility.GetEntity objEnt, pickPnt, vbCr & "Select polyline :"
If Not TypeOf objEnt Is AcadLWPolyline Then
MsgBox "It is not a lightweight polyline", vbExclamation, "Programm stopped"
Exit Sub
Else
Set plineObj = objEnt
dblElv = plineObj.Elevation
vertPts = plineObj.Coordinates
selPts = ConvTo3dPoints(vertPts, dblElv)
'\\' An array of 3D WCS coordinates specifying the selection fence
Debug.Print UBound(selPts)
selMod = acSelectionSetWindowPolygon 'acSelectionSetCrossingPolygon  '
'\\' change mode by suit
setObj.SelectByPolygon selMod, selPts ', dxfcode, dxfdata
setObj.Highlight True
MsgBox "Selected: " & CStr(setObj.Count)
' >> do your stuffs here
End If
SayMeAbout:
MsgBox Err.Description
End Sub
Public Function ConvTo3dPoints(objCoors As Variant, dblElv As Double) As Variant
Dim i As Long, j As Long
Dim convPts() As Double
j = 0
For i = LBound(objCoors) To UBound(objCoors) Step 2
ReDim Preserve convPts(0 To j)
convPts(j) = objCoors(i)
ReDim Preserve convPts(0 To j + 1)
convPts(j + 1) = objCoors(i + 1)
ReDim Preserve convPts(0 To j + 2)
convPts(j + 2) = dblElv
j = j + 3
Next
ConvTo3dPoints = convPts
End Function