Code:
' NX 8.0.3.4
' Journal created by flo on Thu Jul 31 14:13:11 2014 Mitteleuropäische Sommerzeit
'
Option Strict Off
Imports System
Imports NXOpenModule NXJournal
Sub Main
Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim displayPart As Part = theSession.Parts.Display
' ----------------------------------------------
' Menu: File->Plot...
' ----------------------------------------------
Dim markId1 As Session.UndoMarkId
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Start")
Dim plotBuilder1 As PlotBuilder
plotBuilder1 = workPart.PlotManager.CreatePlotBuilder()
plotBuilder1.Copies = 1
plotBuilder1.Tolerance = 0.001
plotBuilder1.RasterImages = True
plotBuilder1.XDisplay = PlotBuilder.XdisplayOption.Right
plotBuilder1.XOffset = 0.149606299212598
plotBuilder1.CharacterSize = 0.0598425196850394
plotBuilder1.Rotation = PlotBuilder.RotationOption.Degree90
plotBuilder1.JobName = "opc50052.d01.0029"
plotBuilder1.JobName = "ka108795s.d01.0019"
plotBuilder1.XOffset = 0.149606299212598
plotBuilder1.CharacterSize = 0.0598425196850394
theSession.SetUndoMarkName(markId1, "##04Plot Dialog")
Dim markId2 As Session.UndoMarkId
markId2 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "##04Plot")
Dim sheets1(1) As NXObject
Dim drawingSheet1 As Drawings.DrawingSheet = CType(workPart.DrawingSheets.FindObject("SHT1"), Drawings.DrawingSheet)
sheets1(0) = drawingSheet1
Dim drawingSheet2 As Drawings.DrawingSheet = CType(workPart.DrawingSheets.FindObject("SHT2"), Drawings.DrawingSheet)
sheets1(1) = drawingSheet2
plotBuilder1.SourceBuilder.SetSheets(sheets1)
plotBuilder1.PlotterText = "plot_to_hpgl"
plotBuilder1.ProfileText = "HPGL_B"
plotBuilder1.ColorsWidthsBuilder.Colors = PlotColorsWidthsBuilder.Color.BlackOnWhite
plotBuilder1.ColorsWidthsBuilder.Widths = PlotColorsWidthsBuilder.Width.CustomThreeWidths
Dim filenames1(1) As String
filenames1(0) = "c:\cattemp\ug_tmp\ka108795s.d01.0019_sht1.cgm"
filenames1(1) = "c:\cattemp\ug_tmp\ka108795s.d01.0019_sht2.cgm"
plotBuilder1.SetFilenames(filenames1)
Dim nXObject1 As NXObject
nXObject1 = plotBuilder1.Commit()
theSession.DeleteUndoMark(markId2, Nothing)
theSession.SetUndoMarkName(markId1, "##04Plot")
plotBuilder1.Destroy()
theSession.DeleteUndoMark(markId1, Nothing)
' ----------------------------------------------
' Menu: Tools->Journal->Stop Recording
' ----------------------------------------------
End Sub
End Module