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

Okay, question, so how do I get rid of this handle (HANDLE R-3139) so I can run this journal on many other files?

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

' ----------------------------------------------
' Menu: Edit->Delete...
' ----------------------------------------------
Dim notifyOnDelete1 As Boolean
notifyOnDelete1 = theSession.Preferences.Modeling.NotifyOnDelete

theSession.UpdateManager.ClearErrorList()

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

Dim objects1(0) As NXObject
Dim note1 As Annotations.Note = CType(workPart.FindObject("HANDLE R-3139"), Annotations.Note)

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

Dim notifyOnDelete2 As Boolean
notifyOnDelete2 = theSession.Preferences.Modeling.NotifyOnDelete

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

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

End Sub
End Module

The text is unique and says (PRELIMINARY). The text is always in the same location. Maybe call out a selection box or fence to delete

I tried the code above and I am getting this error

Line 34: Expression expected.

When I have it in visual studio the { is highlighted as the problem I just do not know what I could replace it with

Hi, this is my first application. Although the code it is not properly structured, somehow it worked. My video that demonstrate this application as below:
http://www.youtube.com/watch?v=3I0fKw2QbWE&feature=youtu.be

Code as below:

' NX 9.0.1.3
' Journal created by Tuw on Wed Apr 16 17:18:43 2014 Malay Peninsula Standard Time
'
Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.BlockStyler

Module NXJournal

Public from_csys() As NXOpen.TaggedObject
Public to_csys() As NXOpen.TaggedObject
Public SelectedNodes() As NXOpen.CAE.FENode
Public sourceCsys As CartesianCoordinateSystem
Public endCsys As CartesianCoordinateSystem

Sub Main(ByVal args() As String)

Dim theSession As Session = Session.GetSession()

Dim objectsToTransform(0) As DisplayableObject
Dim theElementTRansformation As Transform_Element_Dialog

Try
theElementTRansformation = New Transform_Element_Dialog()
' The following method shows the dialog immediately
theElementTRansformation.Show()
If theElementTRansformation.SelectedNodes.Length < 1 Then Return
ReDim objectsToTransform(theElementTRansformation.SelectedNodes.Length - 1)
Dim Idx As Integer
Idx = 0

For Each Item As NXOpen.CAE.FENode In theElementTRansformation.SelectedNodes
objectsToTransform(Idx) = CType(Item, Object)
Idx = Idx + 1
Next
Catch ex As Exception

'---- Enter your exception handling code here -----

Finally
theElementTRansformation.Dispose()
End Try

End Sub

Public Class Transform_Element_Dialog
'class members
Public from_csys() As NXOpen.TaggedObject
Public to_csys() As NXOpen.TaggedObject
Public SelectedNodes() As NXOpen.CAE.FENode
Public sourceCsys As CartesianCoordinateSystem
Public endCsys As CartesianCoordinateSystem
Private Shared theSession As Session
Private Shared theUI As UI
Private theDlxFileName As String
Private theDialog As NXOpen.BlockStyler.BlockDialog
Private Block01 As NXOpen.BlockStyler.Group ' Block type: Group
Private selectNodes0 As NXOpen.BlockStyler.SelectNode ' Block type: Select Nodes
Private Block02 As NXOpen.BlockStyler.Group ' Block type: Group
Private coord_system0 As NXOpen.BlockStyler.SpecifyCSYS ' Block type: Specify Csys
Private Block03 As NXOpen.BlockStyler.Group ' Block type: Group
Private coord_system01 As NXOpen.BlockStyler.SpecifyCSYS ' Block type: Specify Csys

#Region "Block Styler Dialog Designer generator code"
'------------------------------------------------------------------------------
'Constructor for NX Styler class
'------------------------------------------------------------------------------
Public Sub New()
Try

theSession = Session.GetSession()
theUI = UI.GetUI()
theDlxFileName = "Transform_Element.dlx"
theDialog = theUI.CreateDialog(theDlxFileName)
theDialog.AddApplyHandler(AddressOf apply_cb)
theDialog.AddOkHandler(AddressOf ok_cb)
theDialog.AddUpdateHandler(AddressOf update_cb)
theDialog.AddInitializeHandler(AddressOf initialize_cb)
theDialog.AddDialogShownHandler(AddressOf dialogShown_cb)

Catch ex As Exception

'---- Enter your exception handling code here -----
Throw ex
End Try
End Sub
#End Region

'------------------------------- DIALOG LAUNCHING ---------------------------------
'
' Before invoking this application one needs to open any part/empty part in NX
' because of the behavior of the blocks.
'
' Make sure the dlx file is in one of the following locations:
' 1.) From where NX session is launched
' 2.) $UGII_USER_DIR/application
' 3.) For released applications, using UGII_CUSTOM_DIRECTORY_FILE is highly
' recommended. This variable is set to a full directory path to a file
' containing a list of root directories for all custom applications.
' e.g., UGII_CUSTOM_DIRECTORY_FILE=$UGII_ROOT_DIR\menus\custom_dirs.dat
'
' You can create the dialog using one of the following way:
'
' 1. Journal Replay
'
' 1) Replay this file through Tool->Journal->Play Menu.
'
' 2. USER EXIT
'
' 1) Create the Shared Library -- Refer "Block UI Styler programmer's guide"
' 2) Invoke the Shared Library through File->Execute->NX Open menu.
'
'------------------------------------------------------------------------------
Public Shared Sub xxxxMain()
Dim theTransform_Element As Transform_Element_Dialog = Nothing
Try

theTransform_Element = New Transform_Element_Dialog()
' The following method shows the dialog immediately
theTransform_Element.Show()

Catch ex As Exception

'---- Enter your exception handling code here -----
theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
Finally
If theTransform_Element IsNot Nothing Then
theTransform_Element.Dispose()
theTransform_Element = Nothing
End If
End Try
End Sub
'------------------------------------------------------------------------------
' This method specifies how a shared image is unloaded from memory
' within NX. This method gives you the capability to unload an
' internal NX Open application or user exit from NX. Specify any
' one of the three constants as a return value to determine the type
' of unload to perform:
'
'
' Immediately : unload the library as soon as the automation program has completed
' Explicitly : unload the library from the "Unload Shared Image" dialog
' AtTermination : unload the library when the NX session terminates
'
'
' NOTE: A program which associates NX Open applications with the menubar
' MUST NOT use this option since it will UNLOAD your NX Open application image
' from the menubar.
'------------------------------------------------------------------------------
Public Shared Function GetUnloadOption(ByVal arg As String) As Integer
'Return CType(Session.LibraryUnloadOption.Explicitly, Integer)
Return CType(Session.LibraryUnloadOption.Immediately, Integer)
' Return CType(Session.LibraryUnloadOption.AtTermination, Integer)
End Function
'------------------------------------------------------------------------------
' Following method cleanup any housekeeping chores that may be needed.
' This method is automatically called by NX.
'------------------------------------------------------------------------------
Public Shared Sub UnloadLibrary(ByVal arg As String)
Try

Catch ex As Exception

'---- Enter your exception handling code here -----
theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
End Try
End Sub

'------------------------------------------------------------------------------
'This method shows the dialog on the screen
'------------------------------------------------------------------------------
Public Sub Show()
Try

theDialog.Show()

Catch ex As Exception

'---- Enter your exception handling code here -----
theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
End Try
End Sub

'------------------------------------------------------------------------------
'Method Name: Dispose
'------------------------------------------------------------------------------
Public Sub Dispose()
If theDialog IsNot Nothing Then
theDialog.Dispose()
theDialog = Nothing
End If
End Sub

'------------------------------------------------------------------------------
'---------------------Block UI Styler Callback Functions--------------------------
'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'Callback Name: initialize_cb
'------------------------------------------------------------------------------
Public Sub initialize_cb()
Try

Block01 = CType(theDialog.TopBlock.FindBlock("Block01"), NXOpen.BlockStyler.Group)
selectNodes0 = CType(theDialog.TopBlock.FindBlock("selectNodes0"), NXOpen.BlockStyler.SelectNode)
Block02 = CType(theDialog.TopBlock.FindBlock("Block02"), NXOpen.BlockStyler.Group)
coord_system0 = CType(theDialog.TopBlock.FindBlock("coord_system0"), NXOpen.BlockStyler.SpecifyCSYS)
Block03 = CType(theDialog.TopBlock.FindBlock("Block03"), NXOpen.BlockStyler.Group)
coord_system01 = CType(theDialog.TopBlock.FindBlock("coord_system01"), NXOpen.BlockStyler.SpecifyCSYS)

Catch ex As Exception

'---- Enter your exception handling code here -----
theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
End Try
End Sub

'------------------------------------------------------------------------------
'Callback Name: dialogShown_cb
'This callback is executed just before the dialog launch. Thus any value set
'here will take precedence and dialog will be launched showing that value.
'------------------------------------------------------------------------------
Public Sub dialogShown_cb()
Try

'---- Enter your callback code here -----

Catch ex As Exception

'---- Enter your exception handling code here -----
theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
End Try
End Sub

'------------------------------------------------------------------------------
'Callback Name: apply_cb
'------------------------------------------------------------------------------
Public Function apply_cb() As Integer
Dim errorCode As Integer = 0
Try

'---- Enter your callback code here -----
selectNodes0 = CType(theDialog.TopBlock.FindBlock("selectNodes0"), NXOpen.BlockStyler.SelectNode)
Dim propertyList As BlockStyler.PropertyList
propertyList = selectNodes0.GetProperties()

Dim myselectednodes As NXOpen.TaggedObject()

myselectednodes = propertyList.GetTaggedObjectVector("SelectedObjects")

Dim Lng As Integer = 0
ReDim SelectedNodes(myselectednodes.Length + 1)

For Each Item As NXOpen.TaggedObject In myselectednodes
Try
Dim Node As NXOpen.CAE.FENode = CType(Item, NXOpen.CAE.FENode)
If Node Is Nothing Then
' Error of some sort
Else
SelectedNodes(Lng) = Node
Lng = Lng + 1
End If
Catch ex As Exception
End Try
Next

'MsgBox("now lng is " + Lng.ToString)

Block02 = CType(theDialog.TopBlock.FindBlock("Block02"), NXOpen.BlockStyler.Group)
coord_system0 = CType(theDialog.TopBlock.FindBlock("coord_system0"), NXOpen.BlockStyler.SpecifyCSYS)
Block03 = CType(theDialog.TopBlock.FindBlock("Block03"), NXOpen.BlockStyler.Group)
coord_system01 = CType(theDialog.TopBlock.FindBlock("coord_system01"), NXOpen.BlockStyler.SpecifyCSYS)

Dim propertyList02 As BlockStyler.PropertyList
propertyList02 = coord_system0.GetProperties()
from_csys = propertyList02.GetTaggedObjectVector("SelectedObjects")

Dim sourceCsys As CartesianCoordinateSystem
sourceCsys = CType(from_csys(0), CoordinateSystem)

'MsgBox("Check this " + Chr(10) + sourceCsys.Origin.ToString)

Dim propertyList03 As BlockStyler.PropertyList
propertyList03 = coord_system01.GetProperties()
to_csys = propertyList03.GetTaggedObjectVector("SelectedObjects")

Dim endCsys As CartesianCoordinateSystem
endCsys = CType(to_csys(0), CoordinateSystem)

Dim workFemPart As CAE.FemPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
Dim displayFemPart As CAE.FemPart = CType(theSession.Parts.BaseDisplay, CAE.FemPart)

' ----------------------------------------------
' Menu: Insert->Node->Create...
' ----------------------------------------------

Dim fEModel1 As CAE.FEModel = CType(workFemPart.FindObject("FEModel"), CAE.FEModel)
Dim nodeCreateBuilder1 As CAE.NodeCreateBuilder
nodeCreateBuilder1 = fEModel1.NodeElementMgr.CreateNodeCreateBuilder()
nodeCreateBuilder1.Label = 900001
nodeCreateBuilder1.X.RightHandSide = "1"
nodeCreateBuilder1.Y.RightHandSide = "0"
nodeCreateBuilder1.Z.RightHandSide = "0"
nodeCreateBuilder1.TAngle.RightHandSide = "0"
nodeCreateBuilder1.PAngle.RightHandSide = "0"

Dim unit1 As Unit
unit1 = nodeCreateBuilder1.Z.Units
Dim expression1 As Expression
expression1 = workFemPart.Expressions.CreateSystemExpressionWithUnits("0", unit1)
Dim cartesianCoordinateSystem1 As CartesianCoordinateSystem = sourceCsys
Dim xform1 As Xform
xform1 = workFemPart.Xforms.CreateXform(cartesianCoordinateSystem1, SmartObject.UpdateOption.AfterModeling)
Dim cartesianCoordinateSystem2 As CartesianCoordinateSystem
cartesianCoordinateSystem2 = workFemPart.CoordinateSystems.CreateCoordinateSystem(xform1, SmartObject.UpdateOption.AfterModeling)
nodeCreateBuilder1.Csys = cartesianCoordinateSystem2
Dim nXObject1 As NXObject
nXObject1 = nodeCreateBuilder1.Commit()
Dim nullCoordinateSystem As CoordinateSystem = Nothing
nodeCreateBuilder1.Csys = nullCoordinateSystem
nodeCreateBuilder1.Csys = cartesianCoordinateSystem2
nodeCreateBuilder1.Destroy()
workFemPart.Expressions.Delete(expression1)

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

' ----------------------------------------------
' Menu: Insert->Node->Create...
' ----------------------------------------------

Dim fEModel1a As CAE.FEModel = CType(workFemPart.FindObject("FEModel"), CAE.FEModel)
Dim nodeCreateBuilder1a As CAE.NodeCreateBuilder
nodeCreateBuilder1a = fEModel1a.NodeElementMgr.CreateNodeCreateBuilder()

nodeCreateBuilder1a.Label = 900002
nodeCreateBuilder1a.X.RightHandSide = "0"
nodeCreateBuilder1a.Y.RightHandSide = "1"
nodeCreateBuilder1a.Z.RightHandSide = "0"
nodeCreateBuilder1a.TAngle.RightHandSide = "0"
nodeCreateBuilder1a.PAngle.RightHandSide = "0"

Dim unit1a As Unit
unit1a = nodeCreateBuilder1a.Z.Units
Dim expression1a As Expression
expression1a = workFemPart.Expressions.CreateSystemExpressionWithUnits("0", unit1)
Dim cartesianCoordinateSystem1a As CartesianCoordinateSystem = sourceCsys
Dim xform1a As Xform
xform1a = workFemPart.Xforms.CreateXform(cartesianCoordinateSystem1a, SmartObject.UpdateOption.AfterModeling)
Dim cartesianCoordinateSystem2a As CartesianCoordinateSystem
cartesianCoordinateSystem2a = workFemPart.CoordinateSystems.CreateCoordinateSystem(xform1a, SmartObject.UpdateOption.AfterModeling)
nodeCreateBuilder1a.Csys = cartesianCoordinateSystem2a
Dim nXObject1a As NXObject
nXObject1a = nodeCreateBuilder1a.Commit()
Dim nullCoordinateSystema As CoordinateSystem = Nothing
nodeCreateBuilder1a.Csys = nullCoordinateSystema
nodeCreateBuilder1a.Csys = cartesianCoordinateSystem2a
nodeCreateBuilder1a.Destroy()
workFemPart.Expressions.Delete(expression1a)

' ----------------------------------------------
' Menu: Tools->Journal->Stop Recording
' ----------------------------------------------
Dim index As Integer = Lng

Dim Node900001 As CAE.FENode = CType(fEModel1.Find("Node[900001]"), CAE.FENode)
Dim Node900002 As CAE.FENode = CType(fEModel1.Find("Node[900002]"), CAE.FENode)
SelectedNodes(index) = Node900001
index = index + 1
SelectedNodes(index) = Node900002

' ----------------------------------------------
' Menu: Edit->Node->Translate...
' ----------------------------------------------

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

Dim nodeTranslateBuilder1 As CAE.NodeTranslateBuilder
nodeTranslateBuilder1 = fEModel1.NodeElementMgr.CreateNodeTranslateBuilder()
nodeTranslateBuilder1.ScaleFactor = 1.0
nodeTranslateBuilder1.NumCopy = 1
nodeTranslateBuilder1.XScaleFactor = 1.0
nodeTranslateBuilder1.YScaleFactor = 1.0
nodeTranslateBuilder1.ZScaleFactor = 1.0
nodeTranslateBuilder1.XDistance.RightHandSide = "1"
nodeTranslateBuilder1.Label = 256
nodeTranslateBuilder1.Increment = 1
nodeTranslateBuilder1.Offset = 1
nodeTranslateBuilder1.MethodOption = CAE.NodeTranslateBuilder.MethodType.AlignVectors
nodeTranslateBuilder1.XDistance.RightHandSide = "0"
nodeTranslateBuilder1.YDistance.RightHandSide = "-25"
nodeTranslateBuilder1.ZDistance.RightHandSide = "0"
nodeTranslateBuilder1.TAngle.RightHandSide = "0"
nodeTranslateBuilder1.PAngle.RightHandSide = "0"
theSession.SetUndoMarkName(markId1, "Node Translate Dialog")

Dim unit1b As Unit
unit1b = nodeTranslateBuilder1.ZDistance.Units

Dim expression1b As Expression
expression1b = workFemPart.Expressions.CreateSystemExpressionWithUnits("0", unit1)

Dim origin1 As Point3d
origin1 = sourceCsys.Origin

'MsgBox("origin1 is " + Chr(10) + origin1.ToString)

Dim from_x As Vector3d
Dim from_y As Vector3d
'MsgBox(sourceCsys.ToString)

'Dim matrix As NXOpen.NXMatrix = sourceCsys.Orientation
sourceCsys.GetDirections(from_x, from_y)

'MsgBox("from_x is " + Chr(10) + from_x.ToString)

Dim vector1 As Vector3d = from_x
Dim direction1 As Direction
direction1 = workFemPart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.AfterModeling)
nodeTranslateBuilder1.VectorSource = direction1

Dim expression2 As Expression
expression2 = workFemPart.Expressions.CreateSystemExpressionWithUnits("0", unit1)

Dim origin2 As Point3d = endCsys.Origin

Dim to_x As Vector3d
Dim to_y As Vector3d
endCsys.GetDirections(to_x, to_y)
Dim vector2 As Vector3d = to_x
Dim direction2 As Direction
direction2 = workFemPart.Directions.CreateDirection(origin2, vector2, SmartObject.UpdateOption.AfterModeling)
nodeTranslateBuilder1.VectorTarget = direction2

Dim added1 As Boolean
added1 = nodeTranslateBuilder1.Node.Add(SelectedNodes)

Dim markId2 As Session.UndoMarkId
markId2 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Node Translate")
theSession.DeleteUndoMark(markId2, Nothing)
Dim markId3 As Session.UndoMarkId
markId3 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Node Translate")

Dim nXObject1c As NXObject
nXObject1c = nodeTranslateBuilder1.Commit()

theSession.DeleteUndoMark(markId3, Nothing)
theSession.SetUndoMarkName(markId1, "Node Translate")
nodeTranslateBuilder1.Destroy()
workFemPart.Expressions.Delete(expression1b)
workFemPart.Expressions.Delete(expression2)

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

Dim new_x_vector As Vector3d
new_x_vector.X = Node900001.Coordinates.X - endCsys.Origin.X
new_x_vector.Y = Node900001.Coordinates.Y - endCsys.Origin.Y
new_x_vector.Z = Node900001.Coordinates.Z - endCsys.Origin.Z

Dim new_y_vector As Vector3d
new_y_vector.X = Node900002.Coordinates.X - endCsys.Origin.X
new_y_vector.Y = Node900002.Coordinates.Y - endCsys.Origin.Y
new_y_vector.Z = Node900002.Coordinates.Z - endCsys.Origin.Z

'MsgBox(new_x_vector.ToString + Chr(10) + new_y_vector.ToString)

' ----------------------------------------------
' Menu: Edit->Node->Translate...
' ----------------------------------------------

Dim nodeTranslateBuilder1d As CAE.NodeTranslateBuilder
nodeTranslateBuilder1d = fEModel1.NodeElementMgr.CreateNodeTranslateBuilder()
nodeTranslateBuilder1d.ScaleFactor = 1.0
nodeTranslateBuilder1d.NumCopy = 1
nodeTranslateBuilder1d.XScaleFactor = 1.0
nodeTranslateBuilder1d.YScaleFactor = 1.0
nodeTranslateBuilder1d.ZScaleFactor = 1.0
nodeTranslateBuilder1d.XDistance.RightHandSide = "1"
nodeTranslateBuilder1d.Label = 256
nodeTranslateBuilder1d.Increment = 1
nodeTranslateBuilder1d.Offset = 1
nodeTranslateBuilder1d.MethodOption = CAE.NodeTranslateBuilder.MethodType.AlignVectors
nodeTranslateBuilder1d.XDistance.RightHandSide = "0"
nodeTranslateBuilder1d.YDistance.RightHandSide = "-25"
nodeTranslateBuilder1d.ZDistance.RightHandSide = "0"
nodeTranslateBuilder1d.TAngle.RightHandSide = "0"
nodeTranslateBuilder1d.PAngle.RightHandSide = "0"
theSession.SetUndoMarkName(markId1, "Node Translate Dialog")

Dim unit1bd As Unit
unit1bd = nodeTranslateBuilder1d.ZDistance.Units

Dim expression1bd As Expression
expression1bd = workFemPart.Expressions.CreateSystemExpressionWithUnits("0", unit1)

Dim origin1d As Point3d
origin1d = endCsys.Origin

'MsgBox("origin1 is " + Chr(10) + origin1.ToString)

Dim from_xd As Vector3d
Dim from_yd As Vector3d
'MsgBox(sourceCsys.ToString)

'Dim matrix As NXOpen.NXMatrix = sourceCsys.Orientation
from_xd = new_x_vector
from_yd = new_y_vector

'MsgBox("from_x is " + Chr(10) + from_x.ToString)

Dim vector1d As Vector3d = from_yd
Dim direction1d As Direction
direction1d = workFemPart.Directions.CreateDirection(origin1d, vector1d, SmartObject.UpdateOption.AfterModeling)
nodeTranslateBuilder1d.VectorSource = direction1d

Dim expression2d As Expression
expression2d = workFemPart.Expressions.CreateSystemExpressionWithUnits("0", unit1)

Dim origin2d As Point3d = endCsys.Origin

Dim to_xd As Vector3d
Dim to_yd As Vector3d
endCsys.GetDirections(to_xd, to_yd)
Dim vector2d As Vector3d = to_yd
Dim direction2d As Direction
direction2d = workFemPart.Directions.CreateDirection(origin2d, vector2d, SmartObject.UpdateOption.AfterModeling)
nodeTranslateBuilder1d.VectorTarget = direction2d

Dim added1d As Boolean
added1d = nodeTranslateBuilder1d.Node.Add(SelectedNodes)

Dim nXObject1cd As NXObject
nXObject1cd = nodeTranslateBuilder1d.Commit()

nodeTranslateBuilder1d.Destroy()
workFemPart.Expressions.Delete(expression1bd)
workFemPart.Expressions.Delete(expression2d)

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

' delete reference node 900001 and 900002
Dim nodeDeleteBuilder1 As CAE.NodeDeleteBuilder
nodeDeleteBuilder1 = fEModel1.NodeElementMgr.CreateNodeDeleteBuilder()
nodeDeleteBuilder1.Node.Clear()
Dim objects1(1) As CAE.FENode
objects1(0) = Node900001
objects1(1) = Node900002
Dim added2 As Boolean
added2 = nodeDeleteBuilder1.Node.Add(objects1)
Dim nXObject1z As NXObject
nXObject1z = nodeDeleteBuilder1.Commit()
nodeDeleteBuilder1.Destroy()

Catch ex As Exception
'---- Enter your exception handling code here -----
errorCode = 1
theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
End Try
apply_cb = errorCode
End Function

'------------------------------------------------------------------------------
'Callback Name: update_cb
'------------------------------------------------------------------------------
Public Function update_cb(ByVal block As NXOpen.BlockStyler.UIBlock) As Integer
Try

If block Is selectNodes0 Then
'---- Enter your code here -----

ElseIf block Is coord_system0 Then
'---- Enter your code here -----

ElseIf block Is coord_system01 Then
'---- Enter your code here -----

End If

Catch ex As Exception

'---- Enter your exception handling code here -----
theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
End Try
update_cb = 0
End Function

'------------------------------------------------------------------------------
'Callback Name: ok_cb
'------------------------------------------------------------------------------
Public Function ok_cb() As Integer
Dim errorCode As Integer = 0
Try

'---- Enter your callback code here -----
errorCode = apply_cb()

Catch ex As Exception

'---- Enter your exception handling code here -----
errorCode = 1
theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
End Try
ok_cb = errorCode
End Function

'------------------------------------------------------------------------------
'Function Name: GetBlockProperties
'Returns the propertylist of the specified BlockID
'------------------------------------------------------------------------------
Public Function GetBlockProperties(ByVal blockID As String) As PropertyList
GetBlockProperties = Nothing
Try

GetBlockProperties = theDialog.GetBlockProperties(blockID)

Catch ex As Exception

'---- Enter your exception handling code here -----
theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
End Try
End Function

End Class
End Module

How to open NX9 application using C# .Net code

In arrangement drawing having more than 10 sheets, it is difficult to update all the views and sheets for every minor change in 3D model. Even the change does not effect the view , it will turn to Out of date