'-------------------------------------
' Erstellt von krithast 04.04.17
' Export als .cgm 
'-------------------------------------

Option Strict Off
Imports System
Imports NXOpen

Module NXJournal
Sub Main (ByVal args() As String) 

Dim theSession As Session = Session.GetSession()

Dim basePart1 As BasePart
Dim partLoadStatus1 As PartLoadStatus
basePart1 = theSession.Parts.OpenBaseDisplay((Args(0)), partLoadStatus1)
Dim workPart As Part = theSession.Parts.Work
Dim displayPart As Part = theSession.Parts.Display
partLoadStatus1.Dispose()


For Each dwg As Drawings.DrawingSheet In workPart.DrawingSheets

Dim cGMBuilder1 As CGMBuilder
cGMBuilder1 = workPart.PlotManager.CreateCgmBuilder()

cGMBuilder1.Colors = CGMBuilder.Color.BlackOnWhite

cGMBuilder1.XDimension = dwg.height

cGMBuilder1.YDimension = dwg.length

cGMBuilder1.OutputText = NXOpen.CGMBuilder.OutputTextOption.Polylines

cGMBuilder1.VdcCoordinates = NXOpen.CGMBuilder.Vdc.Real

cGMBuilder1.RasterImages = True

cGMBuilder1.ImageResolution = NXOpen.CGMBuilder.ImageResolutionOption.High

Dim sheets1(0) As NXObject
Dim drawingSheet1 As Drawings.DrawingSheet = CType(dwg, Drawings.DrawingSheet)

sheets1(0) = drawingSheet1
cGMBuilder1.SourceBuilder.SetSheets(sheets1)

Dim filenames1(0) As String
filenames1(0) = (Args(1))
cGMBuilder1.SetFilenames(filenames1)

Dim nXObject1 As NXObject
nXObject1 = cGMBuilder1.Commit()

cGMBuilder1.Destroy()

Next 


theSession.Parts.CloseAll(BasePart.CloseModified.CloseModified, Nothing)

End Sub
End Module