I have written something to search out title blocks (in 8.5 and 10) and then I try to check which ones it is storing by using getcell to get the first cell in the title block and print it. It doesn't seem to be accessible though, which is weird. Is it because it doesn't see a titleblock as a table or am I doing something wrong. Here is my code. Please help if you can.
Option Strict Off Imports System Imports System.Collections.Generic Imports NXOpen Imports NXOpen.UF Imports NXOpen.Drawings Imports NXOpenUI Imports NXOpen.Utilities Imports NXOpen.Annotations Module NXJournal Sub Main (ByVal args() As String) Dim theSession As Session = Session.GetSession() Dim theUISession As UI = UI.GetUI Dim theUfSession As UFSession = UFSession.GetUFSession() Dim workPart As Part = theSession.Parts.Work Dim lw As ListingWindow = theSession.ListingWindow Dim tmpTitleBlock As NXOpen.Tag = NXOpen.Tag.Null Dim tmpTitleBlockObj as displayableObject Dim myTitleBlocks As New List(Of Tag) Dim NxType As Integer Dim NxSubtype As Integer Do theUfSession.Obj.CycleObjsInPart(workPart.Tag, UFConstants.UF_tabular_note_type, tmpTitleBlock) If tmpTitleBlock <> NXOpen.Tag.Null Then theUfSession.Obj.AskTypeAndSubtype(tmpTitleBlock, NxType, NxSubtype) If NxSubtype = UFConstants.UF_draft_title_block_subtype try tmpTitleBlockObj = NXOpen.Utilities.NXObjectManager.Get(tmpTitleBlock) Dim cellText As String = "" cellText = GetCell(tmpTitleBlock, 0, 0) If workPart.Layers.GetState(tmpTitleBlockObj.Layer) <> Layer.State.Hidden Then lw.WriteLine("The table being stored Contains " & cellText) myTitleBlocks.Add(tmpTitleBlock) End If catch nxexc as nxexception ‘msgbox(nxexc.message) end try End If End If Loop Until tmpTitleBlock = NXOpen.Tag.Null End Sub End Module