Filling with date on titleblock selected cell

[javaxp]

Hi,

I'm trying to write a journal to fullfill the Date on a titleblock selected cell. So, the user selects first a cell, and running the journal, the selected cell is filled with the current Date.

My trouble is to get the Table instead of the TableSection.

By now this is my current code:

Imports System
Imports NXOpen
Imports NXOpen.UF

Module blank_all_tabular_notes

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

    Public lw As ListingWindow = theSession.ListingWindow



    Public Sub Main(ByVal args As String())

        lw.Open()

        Dim numsel As Integer = theUI.SelectionManager.GetNumSelectedObjects()
        Dim selobj As NXObject

        Dim myTable As Annotations.TableSection
        Dim myCell As DisplayableObject

        Dim regDate As Date = Date.Now()
        Dim strDate As String = regDate.ToString("dd\/MM\/yyyy")

        Dim j As Integer
        For j = 0 To numsel - 1

            selobj = theUI.SelectionManager.GetSelectedObject(j)


            If selobj.GetType.ToString = "NXOpen.Annotations.TableSection" Then


                myTable = selobj

            End If

            If selobj.GetType.ToString = "NXOpen.DisplayableObject" Then

                myCell = selobj

            End If

            lw.WriteFullline(strDate)



        Next



        myTable.EditCellText(myCell, todaysdate)



    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function

End Module

I will apreciate any help.

Javier

NX 12.0.2.9 MP14

 

[jerry1423]

NX has a built-in feature to add the date to a title block.
As far as I can tell there is no need for any kind of code.

https://www.eng-tips.com/viewthread.cfm?qid=314995

Jerry J.
UGV5-NX1899

 

[cowski]

If you have a TableSection and want the parent tabular note, you can use the UF function: .AskTabularNoteOfSection.

www.nxjournaling.com

 

[javaxp]

Hi,

jerry1423, I've tried as Ucgenyazilim proposal (

https://community.sw.siemens.com/s/...e-creation-date-on-a-drawing-in-title-block),

but the Date is updating every day the drawing is open. Also, I want to insert the username...

cowsky, Tomorrow I'll try your solution...


Thanks both for your support.

Javier

NX 12.0.2.9 MP14

 

[javaxp]

Hi,

I finally got the journal working.
The user need to select a cell from a table and then run the journal. It fullfills the selected cell with the UserName (or the current date).

Here is the code if someone want to use it.

Regards,

Javier

Imports System
Imports NXOpen
Imports NXOpen.UF

Module fill_tabular_notes

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

    Dim theUfSession As UFSession = UFSession.GetUFSession()

    Public lw As ListingWindow = theSession.ListingWindow



    Public Sub Main(ByVal args As String())

        lw.Open()

        Dim numsel As Integer = theUI.SelectionManager.GetNumSelectedObjects()
        Dim selobj As NXObject

        Dim myTableSection As Annotations.TableSection
        Dim myCell As DisplayableObject
        Dim myTable As Annotations.Table
        Dim myTableTag As Tag

        Dim regDate As Date = Date.Now()
        Dim strDate As String = regDate.ToString("dd\/MM\/yyyy")

        Dim j As Integer
        For j = 0 To numsel - 1

            selobj = theUI.SelectionManager.GetSelectedObject(j)


            If selobj.GetType.ToString = "NXOpen.Annotations.TableSection" Then


                myTableSection = selobj


            End If


            If selobj.GetType.ToString = "NXOpen.DisplayableObject" Then

                myCell = selobj


            End If




        Next




        theUfSession.Tabnot.AskTabularNoteOfSection(myTableSection.Tag, myTableTag)

        myTable = NXOpen.Utilities.NXObjectManager.Get(myTableTag)



        '____________Fills selected cell with current date____________

        'myTable.EditCellText(myCell, strDate)


        '____________Fills selected cell with current username____________

        myTable.EditCellText(myCell, Environment.UserName)


    End Sub



    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function

End Module

NX 12.0.2.9 MP14