Refresh all TC attributes by journal

[cschnei]

Hello,
I am trying to refresh all TC attributes like "File -> Properties - Reload Atrributes from Teamcenter" with a journal file. Recording the journal does not work. So I am trying this code but with no success. I am allways getting errors.

Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.PDM

Module NXJournal

Sub Main

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

Dim displayPart As Part = theSession.Parts.Display

Dim part1 As PDM.PdmPart
'part1 = workPart

Dim databaseAttributeManager1 As PDM.DatabaseAttributeManager
databaseAttributeManager1 = part1.NewDatabaseAttributeManager()
DatabaseAttributeManager1.LoadAttributes(true)


End Sub
End Module

Thanks in advanced for any help.
Carsten

 

[cschnei]

I solver it by me own, just a little mistake. If someone else needs it, this is my solution:

Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.PDM

Module NXJournal



Sub Main

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

Dim displayPart As Part = theSession.Parts.Display


Dim databaseAttributeManager1 As PDM.DatabaseAttributeManager
	databaseAttributeManager1 = workpart.PDMPart.NewDatabaseAttributeManager()
	DatabaseAttributeManager1.LoadAttributes(true)


End Sub
End Module

Best regrads
Carsten