Need Help Improving Journal

Hello,

I have a journal I found that is working fairly well but there is one improvement I am trying to make to it. This journal is for PDF export of every component in an open assembly. The journal walks through the assembly makes the component displayed, Updates views, exports pdf of sheet if it exists, moves on to next component.

I would like to modify the journal to Hide all components after it makes a component displayed. Then update views, export pdf.

Any help would be greatly appreciated.

Thank you,
JS

Option Strict Off
Imports System
Imports System.IO
Imports System.Collections.Generic
Imports System.Windows.Forms
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.Assemblies

Module Module1

Dim theSession As Session = Session.GetSession

Sub Main()

If IsNothing(theSession.Parts.Display) Then
MessageBox.Show("Active Part Required", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return
End If

Dim lw As ListingWindow = theSession.ListingWindow
lw.Open()

Dim workPart As Part = theSession.Parts.Work

Dim myAsmInfo As New NXJ_Assembly_info
myAsmInfo.Part = workPart

Dim myPdfExporter As New NXJ_PdfExporter
myPdfExporter.PickExportFolder()

myPdfExporter.Part = workPart
Try
myPdfExporter.Commit()
Catch ex As NXException

End Try

For Each tempPart As Part In myAsmInfo.AllUniqueParts
myPdfExporter.Part = tempPart

ChangeDisplayPart(tempPart)

Try
myPdfExporter.Commit()
Catch ex As Exception
MessageBox.Show("Error:" & ControlChars.CrLf & ex.GetType.ToString & " : " & ex.Message, "PDF export error", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try

Next

ChangeDisplayPart(workPart)
myPdfExporter = Nothing

End Sub

Sub ChangeDisplayPart(ByVal newPart As Part)

Dim markId1 As Session.UndoMarkId
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Change Display Part")

Dim partLoadStatus1 As PartLoadStatus
Dim status1 As PartCollection.SdpsStatus
status1 = theSession.Parts.SetDisplay(newPart, False, False, partLoadStatus1)

partLoadStatus1.Dispose()

End Sub

End Module