Submit Your Own Journal

Hi all,
I want to create a journal for multiple photos geration and print them on a PDF file.
The point is that I have done some test, but the journal dosen't work correctly. Because the photos are with wireframe view or can't be printed as a pdf file.
 
Option Strict Off
Imports System

Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities

Module NXJournal
    Public theSession As Session = Session.GetSession()
    Public openSession = UFSession.GetUFSession()
    Public workPart As Part = theSession.Parts.Work
    Public displayPart As Part = theSession.Parts.Display
    Public sFilename As String
    Public imageFile As String
    Public image_format As UFDisp.ImageFormat = UFDisp.ImageFormat.Png
    Public background_color As UFDisp.BackgroundColor = UFDisp.BackgroundColor.Original

    Sub Main()

        'Get File name
        sFilename = workPart.FullPath
        sFilename = Replace(sFilename, "<", "")
        sFilename = Replace(sFilename, ">", "")
        If Right(sFilename.ToLower, 4) = ".prt" Then sFilename = Left(sFilename, sFilename.Length - 4)

        'If layout VBLAYOUT exists then delete it first
        On Error GoTo CreateLay

        Dim objects1(0) As NXObject
        Dim layout99 As Layout = CType(workPart.Layouts.FindObject("VBLAYOUT"), Layout)

        objects1(0) = layout99
        Dim nErrs1 As Integer
        nErrs1 = theSession.UpdateManager.AddToDeleteList(objects1)

        Dim id1 As Session.UndoMarkId
        id1 = theSession.NewestVisibleUndoMark

        Dim nErrs2 As Integer
        nErrs2 = theSession.UpdateManager.DoUpdate(id1)

CreateLay:

        'Create a 4-view layout
        Dim layoutDefinition1 As LayoutDefinition
        workPart.Layouts.NewLayoutDefinition(LayoutDefinition.ArrangementType.L4, layoutDefinition1)

        Dim modelingView0 As ModelingView = CType(workPart.ModelingViews.FindObject("TOP"), ModelingView)

        layoutDefinition1.SetView(0, 0, modelingView0)

        Dim modelingView1 As ModelingView = CType(workPart.ModelingViews.FindObject("FRONT"), ModelingView)

        layoutDefinition1.SetView(1, 0, modelingView1)

        Dim modelingView2 As ModelingView = CType(workPart.ModelingViews.FindObject("TFR-ISO"), ModelingView)

        layoutDefinition1.SetView(0, 1, modelingView2)

        Dim modelingView3 As ModelingView = CType(workPart.ModelingViews.FindObject("RIGHT"), ModelingView)

        layoutDefinition1.SetView(1, 1, modelingView3)

        Dim layout1 As Layout
        layout1 = workPart.Layouts.Create("VBLAYOUT", layoutDefinition1, True)

        layoutDefinition1.Dispose()

        imageFile = sFilename & "-Layout" & ".png"

        openSession.Disp.CreateImage(imageFile, image_format, background_color)

        'Add PDF printer code here
        
         // ----------------------------------------------
    //   Menu: File->Export->PDF...
    // ----------------------------------------------
    String displayPart_Path = theSession.Parts.Display.FullPath;
    String displayPart_Name = displayPart_Path.Replace(".prt", ".pdf");
    theSession.ListingWindow.Open();
    theSession.ListingWindow.WriteLine(displayPart_Name);
    theSession.ListingWindow.WriteLine("Path is: "+displayPart_Path);
    NXOpen.Session.UndoMarkId markId1;
    markId1 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Visible, "Start");
    
    PrintPDFBuilder printPDFBuilder1;
    printPDFBuilder1 = workPart.PlotManager.CreatePrintPdfbuilder();
    
    printPDFBuilder1.Scale = 1.0;
    
    printPDFBuilder1.Action = NXOpen.PrintPDFBuilder.ActionOption.New;
    
    printPDFBuilder1.Colors = NXOpen.PrintPDFBuilder.Color.BlackOnWhite;
    
    printPDFBuilder1.Widths = NXOpen.PrintPDFBuilder.Width.StandardWidths;
    
    printPDFBuilder1.Size = NXOpen.PrintPDFBuilder.SizeOption.ScaleFactor;
    
    printPDFBuilder1.Units = NXOpen.PrintPDFBuilder.UnitsOption.English;
    
    printPDFBuilder1.XDimension = 8.5;
    
    printPDFBuilder1.YDimension = 11.0;
    
    printPDFBuilder1.RasterImages = true;
    
    printPDFBuilder1.ImageResolution = NXOpen.PrintPDFBuilder.ImageResolutionOption.Draft;
    
    theSession.SetUndoMarkName(markId1, "Export PDF");
    
    NXOpen.Session.UndoMarkId markId2;
    markId2 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "Export PDF");
    
    printPDFBuilder1.Watermark = "";
    
    NXObject[] sheets1 = new NXObject[1];
    NXOpen.Drawings.DrawingSheet drawingSheet1 = (NXOpen.Drawings.DrawingSheet)workPart.DrawingSheets.CurrentDrawingSheet;
    sheets1[0] = drawingSheet1;
    printPDFBuilder1.SourceBuilder.SetSheets(sheets1);

    printPDFBuilder1.Filename = displayPart_Name;
    
    NXObject nXObject1;
    nXObject1 = printPDFBuilder1.Commit();
    
    theSession.DeleteUndoMark(markId2, null);
    
    printPDFBuilder1.Destroy();
    
    // ----------------------------------------------
    //   Menu: Tools->Journal->Stop
    // ----------------------------------------------
    
  }

    End Sub
End Module

What is the use of journal?
When should it be used and how?

Could someone send a simple application of it?

Thanks

Is it possible to open a part as its last revision?

I am having code to find and replace word in NX. But it is havinbg some limitations. It works only for Notes. But I want to change it to Lables and dimensions. Thanks for the reply.
 
Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpenUI
Imports NXOpen.Utilities
Imports NXOpen.Annotations
Module ChangeNoteWord
Dim s As Session = Session.GetSession()
Dim dp As Part = s.Parts.Display
Dim nc As NoteCollection = dp.Notes
Sub Main()
Dim notetext1 As String = "existing word"
notetext1 = NXInputBox.GetInputString("Change Note", "Note word to be changed", notetext1)
Dim notetext2 As String = "new word"
notetext2 = NXInputBox.GetInputString("Change Note", "New note word", notetext2)
Dim notestring() As String
Dim nolines As Integer = 0
Dim found1 As Boolean = False
Dim m1 As Session.UndoMarkId = s.SetUndoMark(Session.MarkVisibility.Visible, "M1")
For Each a_note As Note In nc
notestring = a_note.GetText()
nolines = notestring.Length
For i As Integer = 0 To nolines - 1
found1 = notestring(i).Contains(notetext1)
If found1 = True Then
notestring(i) = notestring(i).Replace(notetext1, notetext2)
End If
Next
a_note.SetText(notestring)
Next
s.UpdateManager.DoUpdate(m1)
End Sub
Public Function GetUnloadOption(ByVal dummy As String) As Integer
'Unloads the image immediately after execution within NX
GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
End Function
End Module
 

My company needs a journal that will list the name of a component, and then give the XYZ coordinates of a point in the component and finally put the results on a drawing sheet. We make electrodes for our EDM process in UG, but then we need to give the burn locations to our operators so they can manually load them in the machine. We use a standard part from MoldWizard, but we do not see the need to buy the electrode design package to do what a journal file can do. Does anyone have or know of one?
We design in NX 7.5. on Windows platforms.

Folks

I have a question to put to you all, below are 'two' routines that are both to be used to select (single) points,
from a point I would like to obtain the Point Tag Value and Point Name . The selection methods are different as
I want to see what limitations each method might have and how they behave.

my question is why is the 'Tag returned value' different in each case , as I selected the same point each time
I ran both journals, I was expecting to get the same values in both cases , but did not.

Also the JournalIdentifier is different in both cases & the Name Property from the 'Selection by Type' doesnt return anything...

Is it possible to use the 'selection with mask' routine but return/obtain through further code, the correct Tag
value from the 'selection with Type' method ?

The value from the 'selection with Type' method is correct and is recognised by other code when executed,
the 'selection with Mask' Tag value is not valid and not recognised when referenced with other code .........

Any help or comments would be great...

Best Regards
Simon

-----------------------------------------------------------

Point selection with Mask

-----------------------------------------------------------
ListingWindow Output:

You selected 1 object(s)

Object Tag : 54884
Object Type : NXOpen.Features.PointFeature
Object JournalIdentifier : POINT(1300)
Object Name : POINT(1300)

-----------------------------------------------------------

Option Strict Off
Imports System
Imports NXOpen
'
Module NXJournal
Sub Main()
'
Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim displayPart As Part = theSession.Parts.Display
Dim lw As ListingWindow = theSession.ListingWindow
Dim mySelectedObjects As NXObject()
'
lw.Open()
'
If SelectObjects("Hey, select Points", mySelectedObjects) = Selection.Response.Ok Then
'
lw.WriteLine("You selected " & mySelectedObjects.Length & " object(s)")
lw.WriteLine("")
'
For Each mySelObj As NXObject In mySelectedObjects
'
If mySelObj.GetType.ToString = "NXOpen.Features.PointFeature" Then
'
Dim PointSelected As String
PointSelected = mySelObj.JournalIdentifier
'
Dim pointFeature1 As Features.PointFeature = CType(workPart.Features.FindObject(PointSelected), _
Features.PointFeature)
Dim Pointname As String
Pointname = pointFeature1.GetFeatureName.ToString
Pointname = UCase(Pointname)
'
lw.WriteLine("Object Tag : " & mySelObj.Tag)
lw.WriteLine("Object Type : " & mySelObj.GetType.ToString)
lw.WriteLine("Object JournalIdentifier : " & mySelObj.JournalIdentifier)
lw.WriteLine("Object Name : " & Pointname)
'
End If
'
Next
'
End If
'
lw.Close()
'
End Sub
'
Function SelectObjects(ByVal prompt As String, ByRef selObj As NXObject()) As Selection.Response
'
Dim theUI As UI = UI.GetUI
Dim typeArray() As Selection.SelectionType = _
{Selection.SelectionType.Features}
'
Dim resp As Selection.Response = theUI.SelectionManager.SelectObjects(prompt, "Selection", _
Selection.SelectionScope.AnyInAssembly, False, typeArray, selobj)
'
If resp = Selection.Response.ObjectSelected Or _
resp = Selection.Response.ObjectSelectedByName Or _
resp = Selection.Response.OK Then
Return Selection.Response.Ok
Else
Return Selection.Response.Cancel
End If
'
End Function
End Module

-----------------------------------------------------------

Point selection by Type

-----------------------------------------------------------
ListingWindow Output:

Object Tag : 32447
Object Type : NXOpen.Point
Object JournalIdentifier : HANDLE R-29061
Object Name :
Object Coordinates.X : -14.3433828392201
Object Coordinates.Y : 4.97307988411577
Object Coordinates.Z : 495.087618443057
Object General : Point 32447

-----------------------------------------------------------

Option Strict Off
Imports System
Imports NXOpen
Imports NXOpenUI
Imports NXOpen.Features
Imports NXOpen.UF
Imports NXOpen.UI
Imports NXOpen.Utilities
'
Module Module1
Sub Main()
'
Dim theSession As Session = Session.GetSession()
Dim ufs As UFSession = UFSession.GetUFSession()
Dim workPart As Part = theSession.Parts.Work
Dim lw As ListingWindow = theSession.ListingWindow
'
Dim myPoint As Point
'
If SelectPoint("", myPoint) = Selection.Response.Cancel Then
Exit Sub
End If
'
lw.Open()
'
lw.WriteLine("")
lw.WriteLine("Object Tag : " & myPoint.Tag)
lw.WriteLine("Object Type : " & myPoint.GetType.ToString)
lw.WriteLine("Object JournalIdentifier : " & myPoint.JournalIdentifier)
lw.WriteLine("Object Name : " & myPoint.Name)
lw.WriteLine("Object Coordinates.X : " & myPoint.Coordinates.X.ToString)
lw.WriteLine("Object Coordinates.Y : " & myPoint.Coordinates.Y.ToString)
lw.WriteLine("Object Coordinates.Z : " & myPoint.Coordinates.Z.ToString)
lw.WriteLine("Object General : " & myPoint.ToString)
'
lw.Close()
'
End Sub
'
Function SelectPoint(ByVal prompt As String, ByRef selObj As NXObject) As Selection.Response
'
Dim theUI As UI = UI.GetUI
Dim title As String = "Select a Point"
Dim includeFeatures As Boolean = False
Dim keepHighlighted As Boolean = False
Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
Dim cursor As Point3d
Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
Dim selectionMask_array(0) As Selection.MaskTriple
'
With selectionMask_array(0)
.Type = UFConstants.UF_point_type
.Subtype = 0
.SolidBodySubtype = 0
End With
'
Dim resp As Selection.Response = theUI.SelectionManager.SelectObject(prompt, _
title, scope, selAction, includeFeatures, keepHighlighted, selectionMask_array, selObj, cursor)
'
If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
Return Selection.Response.Ok
Else
Return Selection.Response.Cancel
End If
'
End Function
'
Public Function GetUnloadOption(ByVal dummy As String) As Integer
GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
End Function
'
End Module

Thanks for the feed back...Simon