Imports System.IO
Imports System.Runtime.InteropServices

Module Example
    <STAThread()> _
    Sub Main()
        Dim objApplication As SolidEdgeFramework.Application = Nothing
        Dim objDraftDocument As SolidEdgeDraft.DraftDocument = Nothing
        Dim objSheet As SolidEdgeDraft.Sheet = Nothing
        Dim objDrawingViews As SolidEdgeDraft.DrawingViews = Nothing
        Dim objDrawingView As SolidEdgeDraft.DrawingView = Nothing
        Dim objModelMembers As SolidEdgeDraft.ModelMembers = Nothing
        Dim objModelMember As SolidEdgeDraft.ModelMember = Nothing

        Try
            OleMessageFilter.Register()

            objApplication = Marshal.GetActiveObject("SolidEdge.Application")
            objDraftDocument = objApplication.ActiveDocument
            objSheet = objDraftDocument.ActiveSheet
            objDrawingViews = objSheet.DrawingViews

            ' Loop through all drawing views in current sheet.
            For Each objDrawingView In objDrawingViews
                objModelMembers = objDrawingView.ModelMembers
                ' Walk the ModelTree recursively and set the settings on leaf nodes.
                For Each objModelMember In objModelMembers
                    UpdateModelMember(objModelMember)
                Next
            Next
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        Finally
            OleMessageFilter.Revoke()
        End Try
    End Sub

    Sub UpdateModelMember(ByVal objParentModelMember As SolidEdgeDraft.ModelMember)
        Dim objChildModelMembers As SolidEdgeDraft.ModelMembers = Nothing
        Dim objChildModelMember As SolidEdgeDraft.ModelMember = Nothing

        objChildModelMembers = objParentModelMember.ModelMembers
        For Each objChildModelMember In objChildModelMembers
            UpdateModelMember(objChildModelMember)
        Next

        If objChildModelMembers.Count = 0 Then
            objParentModelMember.ShowEdgesHiddenByOtherParts = True
            objParentModelMember.ShowEdgesHiddenTangentEdgesHiddenByOtherParts = True
        End If
    End Sub
End Module