nx journal: PartsList and TableSection

[MANox]

Hello EveryOne,

I need information about PartsLists in my workpart - which one have enable AutomaticUpdate (and which have dissable).
For table it's easy - p.ex.:

        For Each section As Annotations.TableSection In workPart.Annotations.TableSections
            Dim objects1(0) As NXOpen.DisplayableObject
            objects1(0) = section
            Dim tableEditSettingsBuilder1 As NXOpen.Annotations.TableEditSettingsBuilder = Nothing
            Try
                tableEditSettingsBuilder1 = workPart.SettingsManager.CreateTableEditSettingsBuilder(objects1)
                tableEditSettingsBuilder1.TableSection.ApplyToAllSections = True
                lw.WriteFullline(section.Tag & "    " & tableEditSettingsBuilder1.PartsList.AutomaticUpdate)
                Dim nXObject1 As NXOpen.NXObject = Nothing
                nXObject1 = tableEditSettingsBuilder1.Commit()
                tableEditSettingsBuilder1.Destroy()
            Catch
            End Try
        Next

Teoretical, Partslist is kind of Table, and when I record journal for change AutomaticUpdate program select it's automaticly like TableSection.
But when I try select all partslists programicaly, I can't select section of them.

Maybe sombody can help with this?
(it's not nessesery for me, but a little useful).

Best regards

MANok
NX2027
TC14

 

[cowski]

https://nxjournaling.com/comment/3805#comment-3805

The code in the link above uses the Plist.AskTags function to get the tags of the parts lists. The code only returns the first good parts list found, but could easily be modified to return multiple parts lists.

www.nxjournaling.com

 

[MANox]

Thank cowski for help.


I insert part of code for checking automatic update status of all partslists, and writing its to dictionary, and changing to FALSE.

      Dim tableStatusDictionary As New Dictionary(Of Annotations.TableSection, Boolean)

        Dim pListTags() As Tag = Nothing
        Dim numPartsLists As Integer
        Dim partListTable As New List(Of Annotations.Table)
        ufs.Plist.AskTags(pListTags, numPartsLists)

        For Each tempTag As Tag In pListTags
            Dim myPlist As Annotations.Table = Utilities.NXObjectManager.Get(tempTag)
            If myPlist.Layer = 0 Then
                Continue For
            Else
                partListTable.Add(myPlist)
            End If
        Next


        For Each table1 As Annotations.Table In partListTable
            For Each tabSection As Annotations.TableSection In workPart.Annotations.TableSections
                Dim tempTableTag As Tag
                ufs.Tabnot.AskTabularNoteOfSection(tabSection.Tag, tempTableTag)
                If tempTableTag = table1.Tag Then
                    Dim objects1(0) As NXOpen.DisplayableObject
                    objects1(0) = tabSection
                    Dim tableEditSettingsBuilder1 As NXOpen.Annotations.TableEditSettingsBuilder = Nothing
                    tableEditSettingsBuilder1 = workPart.SettingsManager.CreateTableEditSettingsBuilder(objects1)
                    tableStatusDictionary.Add(tabSection, tableEditSettingsBuilder1.PartsList.AutomaticUpdate)
                    tableEditSettingsBuilder1.PartsList.AutomaticUpdate = False
                    Dim nXObject1 As NXOpen.NXObject = Nothing
                    nXObject1 = tableEditSettingsBuilder1.Commit()
                    tableEditSettingsBuilder1.Destroy()
                End If
            Next
        Next

and back to start status after end work with partslists:

        For Each tableSection1 As Annotations.TableSection In tableStatusDictionary.Keys

            Dim objects1(0) As NXOpen.DisplayableObject
            objects1(0) = tableSection1
            Dim tableEditSettingsBuilder1 As NXOpen.Annotations.TableEditSettingsBuilder = Nothing
            tableEditSettingsBuilder1 = workPart.SettingsManager.CreateTableEditSettingsBuilder(objects1)
            tableEditSettingsBuilder1.TableSection.ApplyToAllSections = True
            tableEditSettingsBuilder1.PartsList.AutomaticUpdate = tableStatusDictionary.Item(tableSection1)
            Dim nXObject1 As NXOpen.NXObject = Nothing
            nXObject1 = tableEditSettingsBuilder1.Commit()
            tableEditSettingsBuilder1.Destroy()
        Next

Maybe it's be useful for someone.
Or someone write its better.

Best regards

MANok
NX2027
TC14