请问如何画一个多边形,并获取该多边形里的图元?

    Public Enum PolygonSelectType
        ''' 
        ''' 圈交(实选)
        ''' 
        ''' 
        CrossingPolygon = 1
        ''' 
        ''' 圈围(范选)
        ''' 
        ''' 
        WindowPolygon = 2
    End Enum
 
    Public Function SelectEntsByPolygon(ByVal objEditor As Editor, ByVal Pts As Point3dCollection, Optional ByVal sFilter As SelectionFilter = Nothing, Optional ByVal SelectType As PolygonSelectType = PolygonSelectType.CrossingPolygon) As ObjectId()
        Dim resSel As PromptSelectionResult = Nothing
        Select Case SelectType
            Case 1
                If sFilter Is Nothing Then
                    resSel = objEditor.SelectCrossingPolygon(Pts)
                Else
                    resSel = objEditor.SelectCrossingPolygon(Pts, sFilter)
                End If
            Case 2
                If sFilter Is Nothing Then
                    resSel = objEditor.SelectWindowPolygon(Pts)
                Else
                    resSel = objEditor.SelectWindowPolygon(Pts, sFilter)
                End If
            Case Else
                '暂时没有其它情况
        End Select
        If resSel.Value Is Nothing Then
            Return New clsAADS.ObjectId() {}
        Else
            Return (resSel.Value.GetObjectIds())
        End If
    End Function