Public Class HighlightDrawingView

    Private Sub SubExecute(objHighlight As SolidEdgeDraft.HighlightDrawingViewMembers, objModelMembers As SolidEdgeDraft.ModelMembers)
        Dim objModelMember As SolidEdgeDraft.ModelMember
        For Each objModelMember In objModelMembers
            Call SubExecute(objHighlight, objModelMember.ModelMembers)
            If objModelMember.ComponentType = SolidEdgeDraft.ModelMemberComponentTypeConstants.seSolidBodyMemberType Then
                Debug.Print(objModelMember.ComponentName)
                Call objHighlight.AddModelMember(objModelMember)
            End If
        Next
    End Sub

    Private Sub Execute_Click(sender As System.Object, e As System.EventArgs) Handles Execute.Click
        Dim objApp As SolidEdgeFramework.Application = Nothing
        Dim objDoc As SolidEdgeDraft.DraftDocument = Nothing
        Dim objSheet As SolidEdgeDraft.Sheet = Nothing
        Dim objDrawingView As SolidEdgeDraft.DrawingView = Nothing
        Dim objHighlight As SolidEdgeDraft.HighlightDrawingViewMembers = Nothing

        Try
            objApp = GetObject(, "SolidEdge.Application")
            objDoc = objApp.ActiveDocument
            objSheet = objDoc.Sheets.Item(1)
            objDrawingView = objSheet.DrawingViews.Item(1)
            objHighlight = objDrawingView.HighlightDrawingViewMembers
            Call SubExecute(objHighlight, objDrawingView.ModelMembers)
            objHighlight = Nothing
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Sub


End Class