用VB.NET编程语言对NX进行的二次开发，如何获取实体上所有法向为Z轴正方向的平面，并高亮显示平面上所有的圆孔边

要实现这个功能，你需要使用 NXOpen API。

首先，你需要获取到实体对象，可以使用 NXOpen.UF.UFSession.Modl.AskFeatBody 函数来获取到。然后，你可以使用 Face 类的 GetFaces 方法获取到实体上所有的面。

接下来，你需要筛选出所有法向为 Z 轴正方向的平面。可以使用 Face 类的 Normal 方法获取到面的法向，然后判断法向是否为 (0, 0, 1)。

最后，你需要在选定的平面上找到所有的圆孔边，并对它们进行高亮显示。可以使用 DisplayManager 类的 Highlight 方法将边高亮显示。

以下是示例代码：

Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim ufSession As UFSession = UFSession.GetUFSession()

' 获取实体对象
Dim features() As Tag = {yourFeatureTag}
Dim bodyTag As Tag = Nothing
ufSession.Modl.AskFeatBody(features(0), bodyTag)

' 获取面对象
Dim faceTagArray() As Tag = Nothing
ufSession.Modl.AskBodyFaces(bodyTag, faceTagArray)

' 筛选出法向为 Z 轴正方向的平面并高亮显示所有圆孔边
For Each faceTag As Tag In faceTagArray
    Dim face As Face = NXObjectManager.Get(faceTag)
    
    ' 判断法向是否为 (0, 0, 1)
    Dim normal() As Double = Nothing
    face.Normal(normal)
    If normal(0) = 0.0 AndAlso normal(1) = 0.0 AndAlso normal(2) = 1.0 Then
        
        ' 获取所有边
        Dim edgeTagArray() As Tag = Nothing
        ufSession.Modl.AskFaceEdges(faceTag, edgeTagArray)
        
        ' 遍历边，高亮显示所有圆孔边
        For Each edgeTag As Tag In edgeTagArray
            Dim edge As Edge = NXObjectManager.Get(edgeTag)
            Dim curve As Curve = edge.GetCurve()
            
            ' 判断是否为圆弧
            If TypeOf curve Is Arc Then
                ' 这是一个圆孔边，高亮显示
                Dim displayableObject As DisplayableObject = edge
                Dim view As View = theSession.Parts.Work.Views.WorkView
                Dim displayManager As DisplayManager = theSession.DisplayManager
                displayManager.Highlight(displayableObject, view)
            End If
        Next
        
        ' 高亮显示平面
        Dim displayableObject As DisplayableObject = face
        Dim view As View = theSession.Parts.Work.Views.WorkView
        Dim displayManager As DisplayManager = theSession.DisplayManager
        displayManager.Highlight(displayableObject, view)
    End If
Next