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