维德发现，至少对我来说：点有维度！

Option Explicit
Sub TestPointDimension()
    ' Draw a closed polyline
    Dim points(7) As Double
    points(0) = 100#: points(1) = 10#
    points(2) = 200#: points(3) = 50#
    points(4) = 100#: points(5) = 100#
    points(6) = 0#: points(7) = 50#
    Dim objLWPoly As AcadLWPolyline
    Set objLWPoly = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    objLWPoly.Closed = True
    
    ' Set Spacing of points for the test
    ' I have set the spacing to 5 just to just to have more false points
    ' results
    Dim XSpacing As Double: XSpacing = 5#
    Dim YSpacing As Double: YSpacing = 5#
    
    ' Create TestPoint
    Dim TestPoint(2) As Double
    TestPoint(0) = 0#: TestPoint(1) = 0#: TestPoint(2) = 0#
    
    ' Update Viewport
    ' This is needed to optimize the SelectByPolygon:
    ' ONLY objects VISIBLE in screen are evaluated
    Application.ZoomExtents
    Application.Update
    
    
    ' Test with PDMode = 66
    ThisDrawing.SetVariable "PDMODE", 66
    ' I get 419 points Inside the closed area
    ' and 44 of these are Outside the closed area
'    ' Test with PDMode = 0
'    ThisDrawing.SetVariable "PDMODE", 0
'    ' I get 375 points Inside the closed area
    
    ' Star Testing points
    Dim objPoint As AcadPoint
    ' I'm intentionaly going outside the closed area
    Do While TestPoint(1)  150 Then Exit Do
            If TestPoint(0) > 250 Then GoTo UpdatePto
            ' Insert Points
            Set objPoint = ThisDrawing.ModelSpace.AddPoint(TestPoint)
            Application.Update
            ' Check if point is inside the closed area
            If Not IsInside(objPoint.Coordinates, objLWPoly) Then
                ' Delete point
                objPoint.Delete
            End If
UpdatePto:
            ' Update Insert Point
            TestPoint(0) = TestPoint(0) + XSpacing
        Loop
    ' increment row
    TestPoint(0) = 0#
    TestPoint(1) = TestPoint(1) + YSpacing
    TestPoint(2) = TestPoint(2)
Loop
   
    
End Sub
' Checks if a Point is inside a lwPolyline
Function IsInside(ByVal acPoint As Variant, lwPoly As AcadLWPolyline) As Boolean
    ' Initialize Return value
    IsInside = False
    Dim objSS As AcadSelectionSet       ' temporary SelectionSet
    Dim initCodes(2) As Integer         ' objSS filter codes
    Dim varCodeValues(2) As Variant     ' objSS filter values
    Dim retCoords As Variant            ' lwPoly coordinates
    Dim PointsArray() As Double         ' Array of 3D Points for objSS crossing polygon
    Dim retPto As Variant               ' coordinates of found point
    Dim ent As AcadEntity               ' entity
    
    Dim i As Integer                    ' counter
    Dim j As Integer                    ' counter
    
    ' Create SelectionSet
    Set objSS = PowerSet("myPolygon")
    
    ' DXF Filter
    initCodes(0) = -4
    varCodeValues(0) = ""
    ' Retrieve lwPolyline Coordiantes and fill 3D Points for Crossing Polygon
    retCoords = lwPoly.Coordinates
    ReDim PointsArray((((UBound(retCoords) + 1) / 2) * 3) - 1)
    ' get the X coordinates
    For i = 0 To UBound(PointsArray)
        For j = 0 To UBound(retCoords) Step 2
            PointsArray(i) = retCoords(j)
            i = i + 3
        Next j
    Next i
    ' get the Y coordiantes
    For i = 1 To UBound(PointsArray)
        For j = 1 To UBound(retCoords) Step 2
            PointsArray(i) = retCoords(j)
            i = i + 3
        Next j
    Next i
    ' fill the Z coordinates with 0, lwPolyline doesn't have Z
    For i = 2 To UBound(PointsArray) Step 3
       PointsArray(i) = 0
    Next i
    ' Fill the objSS
    objSS.SelectByPolygon acSelectionSetCrossingPolygon, PointsArray, _
        initCodes, varCodeValues
    ' get ents in objSS
    If objSS.Count >= 1 Then
        For Each ent In objSS
            retPto = ent.Coordinates
            If retPto(0) = acPoint(0) And retPto(1) = acPoint(1) Then
                IsInside = True
                Exit Function
            Else
                IsInside = False
            End If
        Next ent
    Else
        IsInside = False
    End If
End Function
'Restituisce un 'SelectionSet' evitando i nomi duplicati
' Credit goes to Randal Rath's Code Troute I think, I use this since (?)
Function PowerSet(setName As String) As AcadSelectionSet
    Dim objSS As AcadSelectionSet
    Dim objSSCol As AcadSelectionSets
    On Error GoTo ErrorHandler
    Set objSSCol = ThisDrawing.SelectionSets
    For Each objSS In objSSCol
        If objSS.Name = setName Then
            objSSCol.Item(setName).Delete
            Exit For
        End If
    Next
    Set objSS = objSSCol.Add(setName)
    Set PowerSet = objSS
ExitHere:
    Exit Function
ErrorHandler:
    Select Case Err.Number
        Case Else
            MsgBox Err.Description
            Err.Clear
            Resume ExitHere
        End Select
End Function

    ' Fill the objSS
    objSS.SelectByPolygon acSelectionSetCrossingPolygon, PointsArray, _
        initCodes, varCodeValues

    ' Fill the objSS
    objSS.SelectByPolygon acSelectionSetWindowPolygon, PointsArray, _
        initCodes, varCodeValues