[COLOR=blue]Option[/color] [COLOR=blue]Strict[/color] [COLOR=blue]Off[/color]
[COLOR=blue]Imports[/color] System
[COLOR=blue]Imports[/color] NXOpen
[COLOR=blue]Imports[/color] NXOpen.UF
[COLOR=blue]Module[/color] Module1
[COLOR=blue]Sub[/color] Main()
[COLOR=blue]Dim[/color] theSession [COLOR=blue]As[/color] Session [COLOR=blue]=[/color] Session.GetSession()
[COLOR=blue]Dim[/color] ufs [COLOR=blue]As[/color] UFSession [COLOR=blue]=[/color] UFSession.GetUFSession()
[COLOR=blue]Dim[/color] lw [COLOR=blue]As[/color] ListingWindow [COLOR=blue]=[/color] theSession.ListingWindow
lw.Open()
[COLOR=green]'update all parts lists[/color]
[COLOR=green]'ufs.Plist.UpdateAllPlists()[/color]
[COLOR=green]'alternate method, useful if there are multiple parts lists but you only want to update certain ones[/color]
[COLOR=blue]Dim[/color] myPListTags() [COLOR=blue]As[/color] Tag [COLOR=blue]=[/color] [COLOR=blue]Nothing[/color]
[COLOR=blue]Dim[/color] numberOfPlists [COLOR=blue]As[/color] [COLOR=blue]Integer[/color]
[COLOR=green]'return array of tags of all parts lists in file[/color]
ufs.Plist.AskTags(myPListTags, numberOfPlists)
lw.WriteLine("Number [COLOR=blue]of[/color] Parts Lists: " [COLOR=blue]&[/color] numberOfPlists)
[COLOR=blue]For[/color] [COLOR=blue]Each[/color] listTag [COLOR=blue]As[/color] Tag [COLOR=blue]In[/color] myPListTags
lw.WriteLine(" Tag: " [COLOR=blue]&[/color] listTag.ToString)
ufs.Plist.Update(listTag)
[COLOR=blue]Next[/color]
lw.Close()
End [COLOR=blue]Sub[/color]
[COLOR=blue]Public[/color] [COLOR=blue]Function[/color] GetUnloadOption(ByVal dummy [COLOR=blue]As[/color] [COLOR=blue]String[/color]) [COLOR=blue]As[/color] [COLOR=blue]Integer[/color]
[COLOR=green]'Unloads the image when the NX session terminates[/color]
GetUnloadOption [COLOR=blue]=[/color] NXOpen.Session.LibraryUnloadOption.AtTermination
End [COLOR=blue]Function[/color]
End [COLOR=blue]Module[/color]