用VB.NET编程语言进行nx的二次开发，获取已选面，判断已经选择的面中是否有圆孔面，如果有圆孔面，将其加入表FACEobjects中，Dim FACEobjects As New List(Of Face)

好的，针对你的问题，我可以给你一些指导。

首先，你需要获取已选面的集合。在NX中，可以通过SelectionManager对象获取当前的选择集。你可以使用以下代码获取已选面的集合：

Dim sel As Selection = theSession.SelectionManager.GetSelection()

Dim faces(sel.Count - 1) As Face

For i As Integer = 0 To sel.Count - 1

    Dim obj As NXObject = sel(i).Object

    If TypeOf obj Is Face Then

        faces(i) = CType(obj, Face)

    End If

Next

接下来，你需要遍历已选面的集合，判断是否存在圆孔面。可以通过Face对象的HasHoles属性来判断一个面是否有圆孔。以下是示例代码：

Dim FACEobjects As New List(Of Face)

For Each face As Face In faces

    If face.HasHoles Then

        FACEobjects.Add(face)

    End If

Next

最后，你可以将所有圆孔面加入到表FACEobjects中，供后续使用。

希望这些代码能够帮助你完成你的任务。如果你还有其他问题，可以随时问我。