用VB.NET编程语言对UG8.5进行的二次开发，获取当前活动文档中所有显示的实体上所有法向为Z轴正方向的平面，并高亮显示平面上所有的圆孔边，如果没有提示没有圆边.给出详细代码示例，并给代码详细的注释.

好的，以下是详细的代码示例和注释：

Public Function GetZAxisPlanesWithCircularEdges() As List(Of NXObject)

    ' 获取当前会话和工作部件
    Dim theSession As Session = Session.GetSession()
    Dim workPart As Part = theSession.Parts.Work
    Dim displayPart As Part = theSession.Parts.Display

    ' 定义用于判断法向是否为Z轴的向量和容差
    Dim zAxis As Vector3d = New Vector3d(0, 0, 1)
    Dim zAxisTolerance As Double = 0.01 ' 设置容差值

    ' 定义一个列表来存储符合要求的平面
    Dim planesWithCircularEdges As List(Of NXObject) = New List(Of NXObject)

    ' 获取当前活动文档中所有被标记的对象
    Dim objects As NXObject() = displayPart.NXOpenTaggedObjectManager.GetTaggedObjects()

    ' 遍历所有对象
    For Each obj As NXObject In objects

        ' 如果这个对象是一个面
        If TypeOf obj Is Face Then

            ' 将对象转换为面
            Dim face As Face = CType(obj, Face)

            ' 获取面的平面
            Dim plane As Plane = face.GetPlane()

            ' 获取面的法向
            Dim normal As Vector3d = plane.Normal

            ' 判断法向是否与Z轴平行
            If normal.IsParallelTo(zAxis, zAxisTolerance) Then

                ' 如果法向与Z轴平行，那么遍历这个面的所有边
                Dim edges() As Edge = face.GetEdges()
                For Each edge As Edge In edges

                    ' 如果这个边是一个圆弧
                    If TypeOf edge.Geometry Is Arc Then

                        ' 将这个面加入到列表中
                        planesWithCircularEdges.Add(face)

                        ' 遍历这个圆弧边连接的所有曲线
                        For Each curve As Curve In edge.GetConnectedCurves()

                            ' 如果这个曲线是一个圆
                            If TypeOf curve Is Circle Then

                                ' 将这个圆弧边高亮显示
                                Dim circle As Circle = CType(curve, Circle)
                                Dim circleEdge As Edge = circle.GetEdge()
                                circleEdge.Highlight()

                            End If
                        Next

                        ' 找到一个圆弧边，就退出对边的遍历
                        Exit For

                    End If
                Next
            End If
        End If
    Next

    ' 如果没有找到任何符合条件的面，那么弹出一个消息框提示
    If planesWithCircularEdges.Count = 0 Then
        MessageBox.Show("No circular edges found on planes with Z-axis as the normal direction.")
    End If

    ' 返回符合要求的面的列表
    Return planesWithCircularEdges

End Function

这个函数会遍历当前活动文档中所有的面，并检查它们的法向是否为Z轴正方向。如果是，那么它会检查这个面上是否有圆形边。如果有，那么它会将这个面加入到一个列表中，并高亮显示所有的圆形边。

如果没有找到任何符合条件的面，它会弹出一个消息框提示没有找到圆形边。

请根据你的实际需求进行修改和调整，比如修改容差值、修改高亮颜色等。