NX9 Journal File to Import Part to Multiple Drafting Sheets
NX9 Journal File to Import Part to Multiple Drafting Sheets
(OP)
I currently have a journal file to delete all of my old titleblocks (from all sheets at once). Then I have to go to each sheet individually and run smaller journal files to import the titleblock of choice. Instead, I would like to import my new titleblock into every sheet in 1 step. Does anyone know of a journal file out there that could accomplish something like this or how does everyone else do this?
Thanks for any help,
Matt
Thanks for any help,
Matt





RE: NX9 Journal File to Import Part to Multiple Drafting Sheets
Weren't interns invented for this sort of thing?
Seriously though, it sounds like you just need to combine the journals that you already have. Delete the old title block if it exists, import new one based on sheet size.
www.nxjournaling.com
RE: NX9 Journal File to Import Part to Multiple Drafting Sheets
RE: NX9 Journal File to Import Part to Multiple Drafting Sheets
CODE --> psuedocode
for each theSheet as DrawingSheet in workpart.DrawingSheets theSheet.Open 'call function or sub to import title block Call ImportBlock() nextwww.nxjournaling.com
RE: NX9 Journal File to Import Part to Multiple Drafting Sheets
Currently I just recorded a journal to import my part. It works and I guess that's all that matters. Haha. Thanks cowski and when I find more time to attack this I'll bug you again.
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
' ----------------------------------------------
' Menu: File->Import->Part...
' ----------------------------------------------
Dim markId1 As Session.UndoMarkId
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Import Part")
Dim partImporter1 As PartImporter
partImporter1 = workPart.ImportManager.CreatePartImporter()
partImporter1.FileName = "N:\NX9\Titleblocks\Drawing-A0-Detail-template.prt"
partImporter1.Scale = 1.0
partImporter1.CreateNamedGroup = True
partImporter1.ImportViews = False
partImporter1.ImportCamObjects = False
partImporter1.LayerOption = PartImporter.LayerOptionType.Work
partImporter1.DestinationCoordinateSystemSpecification = PartImporter.DestinationCoordinateSystemSpecificationType.Work
Dim element1 As Matrix3x3
element1.Xx = 1.0
element1.Xy = 0.0
element1.Xz = 0.0
element1.Yx = 0.0
element1.Yy = 1.0
element1.Yz = 0.0
element1.Zx = 0.0
element1.Zy = 0.0
element1.Zz = 1.0
Dim nXMatrix1 As NXMatrix
nXMatrix1 = workPart.NXMatrices.Create(element1)
partImporter1.DestinationCoordinateSystem = nXMatrix1
Dim destinationPoint1 As Point3d = New Point3d(0.0, 0.0, 0.0)
partImporter1.DestinationPoint = destinationPoint1
Dim markId2 As Session.UndoMarkId
markId2 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Import Part Commit")
Dim nXObject1 As NXObject
nXObject1 = partImporter1.Commit()
theSession.DeleteUndoMark(markId2, Nothing)
partImporter1.Destroy()
' ----------------------------------------------
' Menu: Tools->Journal->Stop Recording
' ----------------------------------------------
End Sub
End Module