Hi,
I was trying to extact the sheet name in which the notes resides.
Below Journal only extracting the Current sheet name. But my requirement is to extract all the sheet name in which note resides (Sh1,Sh2....).
-------------------------------------------------
Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.Drawings
Imports NXOpen.UF
Imports NXOpenUI
Imports NXOpen.Utilities
Imports NXOpen.Annotations
Module ChangeNoteWord
Sub Main()
Dim s As Session = Session.GetSession()
Dim dp As Part = s.Parts.Display
Dim nc As NoteCollection = dp.Notes
Dim lw As ListingWindow = s.ListingWindow
lw.Open()
Dim noteText() As String
Dim numLines As Integer = 0
For Each a_note As Note In nc
noteText = a_note.GetText()
numLines = noteText.Length
For i As Integer = 0 To numLines - 1
If noteText(i).Contains("510k") Then
lw.WriteLine("We found a 510 k")
lw.WriteLine(s.Parts.Work.DrawingSheets.CurrentDrawingSheet.Name)
End If
Next
Next
End Sub
End Module
------------------------------------------
What to change in the code above to get all the sheet names in which notes resides?
Kindly do the needful.........