Need help ''ufs.Fltr.UpdateStructure'' to update the Part navigator ???

Hello,

I use NX9.0.3.4 and my program in VB .NET

I need help with a user function '' ufs.Fltr.UpdateStructure '

In my application, I modified the attributes several components in an assembly.

In my program, to run my function that applies attributed in everyone of the assembly of components, the user presses ''Apply''. So, after pressing ''Apply'' I would like the ''Part Nanigator'' to update you see them attributed to update.

I thought using the ''ufs.Fltr.UpdateStructure'', but I do not how to program it.

I looked for exmple on GTAC and I can not find anything with 'ufs.Fltr.UpdateStructure'.

Someone to help me or can you give me an example?

Thank you!
_____________________________________________________________________
Option Strict Off

Imports System.Drawing.Printing
Imports Microsoft.VisualBasic.FileSystem
Imports Microsoft.VisualBasic.CompilerServices
Imports Microsoft.Win32

Imports System
Imports Microsoft.VisualBasic
Imports System.IO
Imports System.IO.File
Imports System.Collections
Imports System.Collections.Generic
Imports System.Collections.ObjectModel
Imports System.Windows.Forms
Imports System.Environment
Imports System.Drawing

Imports NXOpen.Annotations
Imports NXOpen
Imports NXOpenUI
Imports NXOpen.UI
Imports NXOpen.UF
Imports NXOpen.Assemblies

Imports NXOpen.LoadOptions
Imports NXOpen.Utilities
Imports NXOpen.Drawings
_________________________________________________________________________
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
'- FONCTION "Walk" -
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
' Génère des actions à travers tout les composantes de l'assemblage.
Sub Walk(c As Component, level As Integer)
Dim children As Component() = c.GetChildren()
Dim child As Component
Dim PRT_BALLON_NUM As String = ""
Dim alreadyProcessed As Hashtable
Dim PartLoadStat As PartLoadStatus = Nothing

Try
KNT = KNT + 1
alreadyProcessed = New Hashtable

If TypeOf c.Prototype Is Part Then
Prototype = CType(c.Prototype, Part)

If CleListingWindowVal = True Then
LW.WriteLine("Debut Fonction Walk pour: " & Prototype.Leaf)
End If

If Not alreadyProcessed.Contains(Prototype.Leaf) And c.IsSuppressed = False Then

'Ajouter ce prototype à la hash table afin de ne pas le traiter à nouveau.
alreadyProcessed.Add(Prototype.Leaf, Prototype.Leaf)
Dim msgText1 As String
msgText1 = KNT.ToString & (New String(" "c, 1) & Prototype.FullPath)

If CleListingWindowVal = True Then
LW.WriteLine("No-" & msgText1.ToString)
End If

'Pour afficher la pièce.
Try
'TheSession.Parts.SetDisplay(Prototype, False, False, PartLoadStat)
Catch ExWalk001 As Exception
If CleListingWindowVal = True Then
LW.WriteLine("Error running application: " & ExWalk001.Message)
LW.WriteLine("Attempting to change Displayed Part to: " & Prototype.Leaf)
LW.WriteLine("Part Load Status = " & PartLoadStat.ToString)
End If
End Try
End If

AttribueAutoballonAction()
'UpdateStructure()

'* - * -* - * -* - * -* - * -* - * -* - * -* - * -* - ( DRYRUN )- * -* - * -* - * -* - * -* - * -* - * -* - * -* - * -* - * -* - * -* - * -* - * -

If Me.Txt_PrtAction.Text = "DryRun" And Attr_Prt_AutoBallonAction = "True" Then

DryRun()
'UpdateStructure()

ElseIf Me.Txt_PrtAction.Text = "DryRun" And Attr_Prt_AutoBallonAction = "False" Then

If CleListingWindowVal = True Then
LW.WriteLine("Debut Fonction DryRun")
LW.WriteLine(" DryRun = Impossible pour" & Prototype.Leaf)
LW.WriteLine("Fin Fonction DryRun pour: " & Prototype.Leaf)
End If

End If

'* - * -* - * -* - * -* - * -* - * -* - * -* - * -* - ( RAZ )- * -* - * -* - * -* - * -* - * -* - * -* - * -* - * -* - * -* - * -* - * -* - * -

If Me.Txt_PrtAction.Text = "Raz" And Attr_Prt_AutoBallonAction = "True" Then

Raz()

ElseIf Me.Txt_PrtAction.Text = "Raz" And Attr_Prt_AutoBallonAction = "False" Then

If CleListingWindowVal = True Then
LW.WriteLine("Debut Fonction RAZ")
LW.WriteLine(" Raz = Impossible pour" & Prototype.Leaf)
LW.WriteLine("Fin Fonction RAZ pour: " & Prototype.Leaf)
End If

End If

'* - * -* - * -* - * -* - * -* - * -* - * -* - * -*( AUTONUMBER SEUL. ) - * -* - * -* - * -* - * -* - * -* - * -* - * -* - * -* - * -* -

If Me.Txt_PrtAction.Text = "AutoNumberSeul" And Attr_Prt_AutoBallonAction = "True" Then

AutoNumberSeul()

ElseIf Me.Txt_PrtAction.Text = "AutoNumberSeul" And Attr_Prt_AutoBallonAction = "False" Then

If CleListingWindowVal = True Then
LW.WriteLine("Debut Fonction AutoNumberSeul")
LW.WriteLine(" L'attribue PRT_AUTOBALLON existe =" & Attr_Prt_AutoBallonExiste.ToString)
LW.WriteLine(" AutoNumberSeul = Impossible pour" & Prototype.Leaf)
LW.WriteLine("Fin Fonction AutoNumberSeul pour: " & Prototype.Leaf)
End If

End If

'* - * -* - * -* - * -* - * -* - * -* - * -* - * -*( POPULER SEUL. ) - * -* - * -* - * -* - * -* - * -* - * -* - * -* - * -* - * -* -

If Me.Txt_PrtAction.Text = "PopulerSeul" And Attr_Prt_AutoBallonAction = "True" Then

PopulerSeul()

ElseIf Me.Txt_PrtAction.Text = "PopulerSeul" And Attr_Prt_AutoBallonAction = "False" Then

If CleListingWindowVal = True Then
LW.WriteLine("Debut Fonction PopulerSeul")
LW.WriteLine(" PopulerSeul = Impossible pour" & Prototype.Leaf)
LW.WriteLine("Fin Fonction PopulerSeul pour: " & Prototype.Leaf)
End If

End If

'* - * -* - * -* - * -* - * -* - * -* - * -* - * -*( POPULER & AUTONUMBER ) - * -* - * -* - * -* - * -* - * -* - * -* - * -* - * -* - * -* -

If Me.Txt_PrtAction.Text = "PopulerEtAutoNumber" And Attr_Prt_AutoBallonAction = "True" And KNT_MainAssy = 1 Then

PopulerEtAutoNumber()

ElseIf Me.Txt_PrtAction.Text = "PopulerEtAutoNumber" And Attr_Prt_AutoBallonAction = "False" Then

If CleListingWindowVal = True Then
LW.WriteLine("Debut Fonction Populer Et AutoNumber")
LW.WriteLine(" PopulerEtAutoNumber = Impossible pour" & Prototype.Leaf)
LW.WriteLine("Fin Fonction Populer Et AutoNumber pour: " & Prototype.Leaf)
End If

End If
End If

If CleListingWindowVal = True Then
LW.WriteLine("Fin Fonction Walk pour: " & Prototype.Leaf)
LW.WriteLine("")
End If
Catch ExWalk002 As Exception

If CleListingWindowVal = True Then
LW.WriteLine(" Process = Erreur fonction Walk!")
End If

End Try

For Each child In children
'Update la structure d'un assemblage, pièces et attribues.
ufs.Fltr.UpdateStructure(Prototype.Tag)
Walk(child, level + 1)
Next
End Sub