用VB.NET编程语言对NX进行的二次开发，创建一个Public Function来获取当前文档中的所有已经选取的面

好的，针对你的问题，我可以为你提供以下VB.NET代码：

Public Function GetSelectedFaces() As List(Of Face)
    Dim selectedFaces As New List(Of Face)
    Dim doc As NXOpen.BaseSession = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = doc.Parts.Work
    Dim lw As NXOpen.ListingWindow = doc.ListingWindow
    Dim sel As NXOpen.Selection.Response

    '创建面选项
    Dim maskArray(0) As NXOpen.TaggedObject
    maskArray(0) = workPart.FaceCollection

    '弹出面选择器
    sel = doc.SelectionManager.SelectObjects("Select Faces", "Select at least one face", False, False, maskArray)

    '获取所选面
    If sel.GetSelectedObjectCount() > 0 Then
        Dim selectedObjs(sel.GetSelectedObjectCount() - 1) As TaggedObject
        sel.GetSelectedObjects(selectedObjs)
        For Each obj As TaggedObject In selectedObjs
            selectedFaces.Add(CType(obj, Face))
        Next
    End If

    Return selectedFaces
End Function

这段代码通过创建一个面选项，然后弹出面选择器，获取当前文档中所选的面，并将它们添加到一个面列表中返回。你可以在自己的程序中调用这个公共函数来获取你所需的面。