Edit NX expressions Through NX Journal Userform

Check the link provided above, If you want use form method. It is not that easy to write code to create new complex form with notepad. You need Visual Studio to design the form and convert it to code then modify its properties as per your requirements. There are plenty of options in form design how you want your list to be shown. This for adding hardware from TCE using a form (Might not be well construed code). This will give you info about how forms will work on NX.

' NX Add Hardware
' Journal created by Alto on 10-06-2015

Option Strict Off
Imports System.Drawing
Imports System
Imports NXOpen
Imports NXOpen.UF
Imports System.Windows.Forms
Imports System.Windows.Forms.MessageBox
Imports System.IO
Imports System.Collections
Imports System.Environment
Imports Microsoft.VisualBasic

Module AddHardware1
Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim displayPart As Part = theSession.Parts.Display
Dim theUI As UI = UI.GetUI
Dim ufs As UFSession = UFSession.GetUFSession
Dim lw As ListingWindow = theSession.ListingWindow
Sub Main()

Dim form As UserSymbolForm = New UserSymbolForm(theSession, theUI)
Dim Partno As String = Nothing
' lw.Open()
Do
Try
If form.ShowDialog = DialogResult.Cancel Then Exit Sub
If form.Getthehardwareno(Partno) = True Then
form.Close()
Call Addpart(Partno)
End If
Catch err1 As ObjectDisposedException
' lw.WriteLine(err1.ToString)
Exit Do
End Try
Loop
' form.Close()
' lw.Close()

End Sub
Sub Addpart(Partno As String)

Dim markId1 As Session.UndoMarkId
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Add Component")
theSession.SetUndoMarkName(markId1, "Add Component")

'theSession.Parts.SetNonmasterSeedPartData("@DB/" & PartNo & "/" & PartRev)
'Dim basePart1 As BasePart = Nothing
'Try
' Dim partLoadStatus1 As PartLoadStatus = Nothing
' basePart1 = theSession.Parts.Open("@DB/" & PartNo & "/" & PartRev, partLoadStatus1)
' partLoadStatus1.Dispose()

'Catch exc As Exception
' basePart1 = theSession.Parts.FindObject("@DB/" & PartNo & "/" & PartRev)
'End Try

'Dim part1 As Part = CType(basePart1, Part)

Dim basePoint1 As Point3d = Nothing
UserSelectScreenPos("Select screen position to add Hardware", basePoint1)
'New Point3d(0.0, 0.0, 0.0)
Dim orientation1 As Matrix3x3
orientation1.Xx = 1.0
orientation1.Xy = 0.0
orientation1.Xz = 0.0
orientation1.Yx = 0.0
orientation1.Yy = 1.0
orientation1.Yz = 0.0
orientation1.Zx = 0.0
orientation1.Zy = 0.0
orientation1.Zz = 1.0
Dim partLoadStatus2 As PartLoadStatus = Nothing

Dim component1 As Assemblies.Component
Dim PreviewComponentOnAdd1 As Boolean
PreviewComponentOnAdd1 = theSession.Preferences.Assemblies.PreviewComponentOnAdd
PreviewComponentOnAdd1 = True

component1 = workPart.ComponentAssembly.AddComponent("@DB/" & Partno, "MODEL", Partno, basePoint1, orientation1, -1, partLoadStatus2)
partLoadStatus2.Dispose()

Dim constrain1 As Positioning.Constraint = Nothing
Dim constraintReference1 As Positioning.ConstraintReference
Dim mycomp As Object = Nothing
If SelectComponent("Select a reference Component where the Hardware need to constraint with ", mycomp) = Selection.Response.Cancel Then
Return
End If
Dim component2 As Assemblies.Component = mycomp
Dim componentPositioner1 As Positioning.ComponentPositioner
componentPositioner1 = workPart.ComponentAssembly.Positioner
componentPositioner1.ClearNetwork()
componentPositioner1.BeginAssemblyConstraints()
constrain1 = componentPositioner1.CreateConstraint()
Dim Edgeonparent As Object = Nothing
Dim P1 As Point3d
If UserSelectEdge("Select edge to attach Hardware", Edgeonparent, P1) = Selection.Response.Cancel Then
Return
End If
Dim edge1 As Edge = Edgeonparent
Dim componentConstraint1 As Positioning.ComponentConstraint = CType(constrain1, Positioning.ComponentConstraint)
componentConstraint1.ConstraintType = Positioning.Constraint.Type.Concentric
constraintReference1 = componentConstraint1.CreateConstraintReference(component2, edge1, False, False, False)
Dim EdgeonHardware As Object = Nothing
Dim P2 As Point3d
If UserSelectEdge("Select edge on Hardware to constrain", EdgeonHardware, P2) = Selection.Response.Cancel Then
Return
End If
Dim edge2 As Edge = EdgeonHardware
' Dim edge2 As Edge = CType(component1.FindObject("PROTO#.Features|REVOLVED(2)|EDGE * [CURVE 5 0] * [CURVE 6 0] {(0.0475,0.0822724133595,-0.048)(-0.095,0,-0.048)(0.0475,-0.0822724133595,-0.048) REVOLVED(2)}"), Edge)
Dim constraintReference2 As Positioning.ConstraintReference
constraintReference2 = componentConstraint1.CreateConstraintReference(component1, edge2, False, False, False)
constrain1.GetConstraintStatus()

End Sub

Function UserSelectEdge(ByVal prompt As String, ByRef selObj As TaggedObject, ByRef selPoint As Point3d) As Selection.Response

'Allow user to interactively select an edge

Dim title As String = "Select an edge"
Dim includeFeatures As Boolean = False
Dim keepHighlighted As Boolean = False
Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
Dim selectionMask_array(6) As Selection.MaskTriple

'Set the selection criteria to any edge
'TODO: Add point on surface
selectionMask_array(0).Type = UFConstants.UF_solid_type
selectionMask_array(0).Subtype = UFConstants.UF_UI_SEL_FEATURE_ANY_EDGE
selectionMask_array(0).SolidBodySubtype = UFConstants.UF_UI_SEL_FEATURE_ANY_EDGE

selectionMask_array(1).Type = UFConstants.UF_line_type
selectionMask_array(1).Subtype = UFConstants.UF_all_subtype

selectionMask_array(2).Type = UFConstants.UF_circle_type
selectionMask_array(2).Subtype = UFConstants.UF_all_subtype

selectionMask_array(3).Type = UFConstants.UF_conic_type
selectionMask_array(3).Subtype = UFConstants.UF_all_subtype

selectionMask_array(4).Type = UFConstants.UF_spline_type
selectionMask_array(4).Subtype = UFConstants.UF_all_subtype

selectionMask_array(5).Type = UFConstants.UF_solid_silhouette_type
selectionMask_array(5).Subtype = UFConstants.UF_all_subtype

selectionMask_array(6).Type = UFConstants.UF_section_edge_type
selectionMask_array(6).Subtype = UFConstants.UF_all_subtype

'This line allows the user to select from any view:
ufs.Ui.SetCursorView(0)

Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
title, scope, selAction, _
includeFeatures, keepHighlighted, selectionMask_array, _
selObj, selPoint)
If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
Return Selection.Response.Ok
Else
Return Selection.Response.Cancel
End If

End Function
Function UserSelectScreenPos(ByVal prompt As String, ByRef selPoint As Point3d) As Selection.DialogResponse
'Allow user to interactively select a screen position
Dim view As NXOpen.View = Nothing
Return theUI.SelectionManager.SelectScreenPosition(prompt, view, selPoint)
End Function

Function SelectComponent(ByVal prompt As String, ByRef selObj As NXObject) As Selection.Response

Dim title As String = "Select a component"
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_component_type
.Subtype = UFConstants.UF_all_subtype
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

End Module

_
Partial Class UserSymbolForm
Inherits System.Windows.Forms.Form

Public Sub New(ByVal session As Session, ByVal ui As UI)
MyBase.New()
Dim theSession As Session = session
Dim theUI As UI = ui

'This call is required by the Windows Form Designer.
InitializeComponent()

'Add any initialization after the InitializeComponent() call
Me.Button1.Text = "Ok"
Me.BringToFront()

End Sub

Public Function Getthehardwareno(ByRef Partno As String) As Boolean
If Me.DialogResult = Windows.Forms.DialogResult.OK Then
Partno = Me.ComboBox4.Text
End If
Return True
End Function

'Form overrides dispose to clean up the component list.
_
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub

'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
_
Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.ComboBox2 = New System.Windows.Forms.ComboBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.ComboBox3 = New System.Windows.Forms.ComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Button3 = New System.Windows.Forms.Button()
Me.ComboBox4 = New System.Windows.Forms.ComboBox()
Me.Button4 = New System.Windows.Forms.Button()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Button1
'
Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Button1.Location = New System.Drawing.Point(28, 253)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 0
Me.Button1.Text = "Ok"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Button2.Location = New System.Drawing.Point(191, 253)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 1
Me.Button2.Text = "Cancel"
Me.Button2.UseVisualStyleBackColor = True
'
'ComboBox1
'
Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Items.AddRange(New Object() {"SCREWS", "INSERTS", "WASHERS", "RIVETS"})
Me.ComboBox1.Location = New System.Drawing.Point(25, 25)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(156, 21)
Me.ComboBox1.TabIndex = 2
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(22, 9)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(81, 13)
Me.Label1.TabIndex = 3
Me.Label1.Text = "Select category"
'
'PictureBox1
'
Me.PictureBox1.Location = New System.Drawing.Point(210, 47)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(200, 179)
Me.PictureBox1.TabIndex = 4
Me.PictureBox1.TabStop = False
' Me.PictureBox1.Image = Image.FromFile("C:\Users\Joe\Desktop\Study\Images\IntialImage.Jpg")
Me.PictureBox1.Image = Image.FromFile("C:\Users\Joe\Desktop\Study\Images\IntialImage.Jpg")
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(223, 25)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(94, 13)
Me.Label2.TabIndex = 5
Me.Label2.Text = "Hardware Preview"
'
'ComboBox2
'
Me.ComboBox2.FormattingEnabled = True
Me.ComboBox2.Location = New System.Drawing.Point(25, 77)
Me.ComboBox2.Name = "ComboBox2"
Me.ComboBox2.Size = New System.Drawing.Size(156, 21)
Me.ComboBox2.TabIndex = 6
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(22, 58)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(97, 13)
Me.Label3.TabIndex = 7
Me.Label3.Text = "Select Subcategoy"
'
'ComboBox3
'
Me.ComboBox3.FormattingEnabled = True
Me.ComboBox3.Location = New System.Drawing.Point(25, 139)
Me.ComboBox3.Name = "ComboBox3"
Me.ComboBox3.Size = New System.Drawing.Size(156, 21)
Me.ComboBox3.TabIndex = 8
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(22, 110)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(86, 13)
Me.Label4.TabIndex = 9
Me.Label4.Text = "Select Hardware"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(27, 178)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(60, 13)
Me.Label5.TabIndex = 10
Me.Label5.Text = "Select Size"
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(272, 253)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(75, 23)
Me.Button3.TabIndex = 11
Me.Button3.Text = "Help"
Me.Button3.UseVisualStyleBackColor = True
'
'ComboBox4
'
Me.ComboBox4.FormattingEnabled = True
Me.ComboBox4.Location = New System.Drawing.Point(30, 205)
Me.ComboBox4.Name = "ComboBox4"
Me.ComboBox4.Size = New System.Drawing.Size(151, 21)
Me.ComboBox4.TabIndex = 12
'
'Button4
'
Me.Button4.Location = New System.Drawing.Point(110, 253)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(75, 23)
Me.Button4.TabIndex = 13
Me.Button4.Text = "Apply"
Me.Button4.UseVisualStyleBackColor = True
'
'UserSymbolForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(428, 298)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.ComboBox4)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.ComboBox3)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.ComboBox2)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.ComboBox1)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Name = "UserSymbolForm"
Me.Text = "Hardware Selection"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()

End Sub
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents ComboBox3 As System.Windows.Forms.ComboBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents ComboBox4 As System.Windows.Forms.ComboBox
Friend WithEvents Button4 As System.Windows.Forms.Button

Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

Dim Screwslist() As String = {"HEXHEAD", "CSK"}
Dim Insertslist() As String = {"ADD Inserts TYPE HERE", "C"}
Dim Helicoilslist() As String = {"ADD Helicoils TYPE HERE", "C"}
Dim Rivetslist() As String = {"ADD Rivets TYPE HERE", "C"}

ComboBox2.Items.Clear()
If ComboBox1.SelectedIndex = 0 Then
ComboBox2.Items.AddRange(Screwslist)
ElseIf ComboBox1.SelectedIndex = 1 Then
ComboBox2.Items.AddRange(Insertslist)
ElseIf ComboBox1.SelectedIndex = 2 Then
ComboBox2.Items.AddRange(Helicoilslist)
ElseIf ComboBox1.SelectedIndex = 3 Then
ComboBox2.Items.AddRange(Rivetslist)
End If

End Sub

Dim hexhead() As String = {"NAS1801-3", "NAS1801-3"}
Dim CSK() As String = {"ADD SCREWS TYPE HERE", "C"}

Private Sub ComboBox2_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged

ComboBox3.Items.Clear()
If ComboBox2.SelectedIndex = 0 Then
ComboBox3.Items.AddRange(hexhead)
ElseIf ComboBox2.SelectedIndex = 1 Then
ComboBox3.Items.AddRange(CSK)
End If
End Sub

Private Sub ComboBox3_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged

Dim NAS1801length() As String = {"NAS1801-3-6/3", "NAS1801-3-10/3"}
Dim CSK1() As String = {"ADD SCREWS length HERE", "C"}

ComboBox4.Items.Clear()
If ComboBox3.SelectedIndex = 0 Then
PictureBox1.Image = Image.FromFile("C:\Users\Joe\Desktop\Study\Images\" & hexhead(0) & ".jpg")
ComboBox4.Items.AddRange(NAS1801length)
ElseIf ComboBox3.SelectedIndex = 1 Then
ComboBox4.Items.AddRange(CSK1)
PictureBox1.ImageLocation = "C:\Users\Joe\Desktop\Study\Images\" & hexhead(1) & "jpg"
End If
End Sub
Private Sub ComboBox4_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged

End Sub

Private Sub PictureBox1_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox1.Click
PictureBox1.ImageLocation = "C:\Users\Joe\Desktop\Study\Images\"
End Sub
End Class

Make sure that the following line was copied correctly (it is the one that declares the "components" variable):

Private components As System.ComponentModel.IContainer

It may have been a copy & paste error. I'd suggest creating a new file in notepad and then copy & paste all the code from the post above into the new text file. Save the text file with a ".vb" extension and run the code from the journal replay tool.

My first suggestion, and I think the easiest to implement, is to save the image in a common network location. The code that you currently have only works on your computer, because the image location given is on the local "C:\" drive. When you run the journal, the image shows up as expected because the image file is saved on your local C drive. When I run the journal, it looks for the image in my local C drive, but cannot find it as it is not saved there (the image is only on your computer). If we both have access to a network drive (let's call it the "T:\" drive), then the image could be saved to a location such as "T:\images\pic1.jpg" and the journal could reference this location. In this case, the image would show up as expected for both of us because we both have access to the T drive and the image is saved there. Note that this would work best if your coworkers only have "read-only" access to the folder where the image is saved ("T:\images" in the example); so they cannot modify or delete the image file.