' NX 8.5.2.3
' Journal created by Fruth-Se on Fri May 23 10:54:06 2014 W. Europe Daylight Time
'
Option Strict Off
Imports System
Imports NXOpen

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

Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work

Dim displayPart As Part = theSession.Parts.Display

Dim markId1 As Session.UndoMarkId
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Start")

Dim drawingSheet1 As Drawings.DrawingSheet = CType(workPart.DrawingSheets.FindObject("Sheet 001"), Drawings.DrawingSheet)

Dim drawingSheetBuilder1 As Drawings.DrawingSheetBuilder
drawingSheetBuilder1 = workPart.DrawingSheets.DrawingSheetBuilder(drawingSheet1)

drawingSheetBuilder1.MetricSheetTemplateLocation = "Q:\nxstart\PROFIL\DAIMLER\NX85_Build_8\nx_server\NX85\custom_daimler\templates\daimler_startpart_drawing_DIN_A0.prt"

drawingSheetBuilder1.EnglishSheetTemplateLocation = ""

drawingSheetBuilder1.Height = 297.0

drawingSheetBuilder1.Length = 210.0

drawingSheetBuilder1.StandardMetricScale = Drawings.DrawingSheetBuilder.SheetStandardMetricScale.S11

drawingSheetBuilder1.StandardEnglishScale = Drawings.DrawingSheetBuilder.SheetStandardEnglishScale.S11

drawingSheetBuilder1.ScaleNumerator = 1.0

drawingSheetBuilder1.ScaleDenominator = 1.0

drawingSheetBuilder1.Units = Drawings.DrawingSheetBuilder.SheetUnits.Metric

drawingSheetBuilder1.ProjectionAngle = Drawings.DrawingSheetBuilder.SheetProjectionAngle.First

theSession.SetUndoMarkName(markId1, "##01Sheet Dialogfenster")

drawingSheetBuilder1.MetricSheetTemplateLocation = "Q:\nxstart\PROFIL\DAIMLER\NX85_Build_8\nx_server\NX85\custom_daimler\templates\daimler_startpart_drawing_DIN_A0.prt"

drawingSheetBuilder1.Option = Drawings.DrawingSheetBuilder.SheetOption.StandardSize

drawingSheetBuilder1.Height = 210.0

drawingSheetBuilder1.Length = 297.0

drawingSheetBuilder1.Height = 841.0

drawingSheetBuilder1.Length = 1189.0

Dim markId2 As Session.UndoMarkId
markId2 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "##01Sheet")

theSession.DeleteUndoMark(markId2, Nothing)

Dim markId3 As Session.UndoMarkId
markId3 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "##01Sheet")

Dim nXObject1 As NXObject
nXObject1 = drawingSheetBuilder1.Commit()

theSession.DeleteUndoMark(markId3, Nothing)

theSession.SetUndoMarkName(markId1, "##01Sheet")

drawingSheetBuilder1.Destroy()

' ----------------------------------------------
'  Menü: Datei->Importieren->Part...
' ----------------------------------------------
Dim markId4 As Session.UndoMarkId
markId4 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Import Part")

Dim partImporter1 As PartImporter
partImporter1 = workPart.ImportManager.CreatePartImporter()

partImporter1.FileName = "Q:\###"

partImporter1.Scale = 1.0

partImporter1.CreateNamedGroup = True

partImporter1.ImportViews = False

partImporter1.ImportCamObjects = False

partImporter1.LayerOption = PartImporter.LayerOptionType.Work

partImporter1.DestinationCoordinateSystemSpecification = PartImporter.DestinationCoordinateSystemSpecificationType.Work

Dim nXMatrix1 As NXMatrix = CType(workPart.NXMatrices.FindObject("WCS"), NXMatrix)

partImporter1.DestinationCoordinateSystem = nXMatrix1

Dim destinationPoint1 As Point3d = New Point3d(0.0, 0.0, 0.0)
partImporter1.DestinationPoint = destinationPoint1

Dim markId5 As Session.UndoMarkId
markId5 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Import Part Commit")

Dim nXObject2 As NXObject
nXObject2 = partImporter1.Commit()

theSession.DeleteUndoMark(markId5, Nothing)

partImporter1.Destroy()

' ----------------------------------------------
'  Menü: Datei->Importieren->Part...
' ----------------------------------------------
Dim markId6 As Session.UndoMarkId
markId6 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Import Part")

Dim partImporter2 As PartImporter
partImporter2 = workPart.ImportManager.CreatePartImporter()

partImporter2.FileName = "Q:\###"

partImporter2.Scale = 1.0

partImporter2.CreateNamedGroup = True

partImporter2.ImportViews = False

partImporter2.ImportCamObjects = False

partImporter2.LayerOption = PartImporter.LayerOptionType.Work

partImporter2.DestinationCoordinateSystemSpecification = PartImporter.DestinationCoordinateSystemSpecificationType.Work

partImporter2.DestinationCoordinateSystem = nXMatrix1

Dim destinationPoint2 As Point3d = New Point3d(1179.0, 10.0, 0.0)
partImporter2.DestinationPoint = destinationPoint2

Dim markId7 As Session.UndoMarkId
markId7 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Import Part Commit")

Dim nXObject3 As NXObject
nXObject3 = partImporter2.Commit()

theSession.DeleteUndoMark(markId7, Nothing)

partImporter2.Destroy()

' ----------------------------------------------
'  Menü: Werkzeuge->Journal->Stop Recording
' ----------------------------------------------

End Sub
End Module