W!36754

Are you wanting to link attribute values into text notes?
What version of NX are you using? The way attributes are handled changed a bit in NX8.

Here is a code sample from GTAC, does it do something similar to what you are looking for?

'Document Information
'
' Document ID: nx_api4708
' Date: Jan-31-2013
' Product: NX
' Submit By: Amy Webster
' API Type: NXOpen
' Language Ext: vb

Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.UF

Module NXJournal

Dim theSession As Session = Session.GetSession()
Dim theUFSession As UFSession = UFSession.GetUFSession()

Sub Echo(ByVal output As String)
theSession.ListingWindow.Open()
theSession.ListingWindow.WriteLine(output)
theSession.LogFile.WriteLine(output)
End Sub

Sub Main(ByVal args As String())

Dim workPart As Part = theSession.Parts.Work

' The AssociativeText class is new in NX8
Dim translator As Annotations.AssociativeText = workPart.Annotations.CreateAssociativeText()

Dim status As Integer = Nothing
Dim isOn As String = Nothing
Dim trans_text As String = Nothing

For Each aNote As Annotations.Note In workPart.Notes
Echo(aNote.ToString)

theUFSession.View.AskViewDependentStatus(aNote.Tag, status, isOn)
If status = 1 Then
Echo(" resides on: " + isOn.Split("@")(0))
End If

Echo(" text is: ")
For Each text_line As String In aNote.GetText()
trans_text = translator.GetEvaluatedText(aNote, text_line)
If String.Compare(trans_text, text_line) = 0 Then
Echo(" " & text_line)
Else
Echo(" " & text_line & " => " & trans_text)
End If
Next
Next

End Sub

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

End Module