' NX 5.0.4.1
' Journal created by Krubner on Tue Jul 08 08:16:25 2008 W. Europe Daylight Time
'
' 2008-07-25	zwattho	Aufruf plotdatum.grx dazu

Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.UF

Module 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 plotBuilder1 As PlotBuilder
plotBuilder1 = workPart.PlotManager.CreatePlotBuilder()

plotBuilder1.Copies = 1
plotBuilder1.Tolerance = 0.001
plotBuilder1.RasterImages = True
plotBuilder1.ImageResolution = PlotBuilder.ImageResolutionOption.Draft
plotBuilder1.PlotType = PlotBuilder.PlotTypes.Standard
plotBuilder1.Units = PlotBuilder.UnitsOption.English
plotBuilder1.XDisplay = PlotBuilder.XdisplayOption.Right
plotBuilder1.XOffset = 3.8
plotBuilder1.YDisplay = PlotBuilder.YdisplayOption.Bottom
plotBuilder1.CharacterSize = 1.52
plotBuilder1.Rotation = PlotBuilder.RotationOption.Degree90
plotBuilder1.Justification = PlotBuilder.JustificationOption.Left
plotBuilder1.JobName = "tiff_macro"

Dim sheets1(0) As NXObject
Dim drawingSheet1 As Drawings.DrawingSheet = workPart.DrawingSheets.CurrentDrawingSheet
sheets1(0) = drawingSheet1
plotBuilder1.SourceBuilder.SetSheets(sheets1)

' Plotdatum GRIP aufrufen
Dim POETgripDir As String
Dim ufs As UFSession = UFSession.GetUFSession()
Dim args(1) as Object
ufs.UF.TranslateVariable("POET_GRIP_DIR",POETgripDir)
theSession.ExecuteGrip(POETgripDir+"\\plotdatum.grx",args)

' TIFF Test krubger
' plotBuilder1.PlotterText = "TIFF"
' plotBuilder1.ProfileText = "<System Profile>"

' So würde es bei Pöttinger ausschauen
plotBuilder1.PlotterText = "BB72HP41"
plotBuilder1.ProfileText = "<System Profil>"
plotBuilder1.PrinterGroupText = "Bernburg"

plotBuilder1.ColorsWidthsBuilder.Colors = PlotColorsWidthsBuilder.Color.AsDisplayed
plotBuilder1.ColorsWidthsBuilder.Widths = PlotColorsWidthsBuilder.Width.StandardWidths

Dim filenames1(0) As String
filenames1(0) = "C:\Temp\Krubner.tif"
plotBuilder1.SetGraphicFilenames(filenames1)

Dim filenames2(0) As String
filenames2(0) = "C:\Temp\temp.cgm"
plotBuilder1.SetFilenames(filenames2)

Dim nXObject1 As NXObject
nXObject1 = plotBuilder1.Commit()

plotBuilder1.Destroy()

' ----------------------------------------------
'   Menu: Tools->Journal->Stop
' ----------------------------------------------

End Sub
End Module