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.ShowHiddenEdges = True
End If
End Sub
End Module