How to Identify empty drawing sheets

Submitted by 218156 on Thu, 12/16/2021 - 01:49
Forums: 
Journaling / NXOpen API

Hi,

Can you please let me know how to Identify empty drawing sheets

Thanks

NXJournaling - Fri, 12/17/2021 - 13:15

There's probably a better way, but this is the code that I've been using:

Private Function IsSheetEmpty(ByVal theSheet As Drawings.DrawingSheet) As Boolean

theSheet.Open()
Dim sheetTag As NXOpen.Tag = theSheet.View.Tag
Dim sheetObj As NXOpen.Tag = NXOpen.Tag.Null
_theUfSession.View.CycleObjects(sheetTag, UFView.CycleObjectsEnum.VisibleObjects, sheetObj)
If (sheetObj = NXOpen.Tag.Null) And (theSheet.GetDraftingViews.Length = 0) Then
Return True
End If

Return False

End Function

218156 - Mon, 12/20/2021 - 02:42

Thanks For your reply,

I changed your code as below, It is not working, I am using NX11, can you please let me know what is the issue?

Imports System
Imports NXOpen
Imports NXOpen.UF

Module NXJournal

Public theSession As Session = Session.GetSession()
Public workpart As Part = theSession.Parts.Work
Public theUFSession As UFSession = UFSession.GetUFSession

Sub Main (ByVal args() As String)

For Each theSheet as Drawings.DrawingSheet In workPart.DrawingSheets
theSheet.Open()

Dim sheetTag As NXOpen.Tag = theSheet.View.Tag
Dim sheetObj As NXOpen.Tag = NXOpen.Tag.Null
theUfSession.View.CycleObjects(sheetTag, UFView.CycleObjectsEnum.VisibleObjects, sheetObj)
If (sheetObj = NXOpen.Tag.Null) And (theSheet.GetDraftingViews.Length = 0) Then
MsgBox(theSheet.Name())
End If
Next

End Sub
End Module

NXJournaling - Mon, 12/20/2021 - 07:09

The code works for me. Perhaps we have different ideas of the definition of a "blank" sheet. My code looks for a sheet with nothing on it (no title block, no borders, no views, no dimensions, no notes, nothing).

218156 - Mon, 12/20/2021 - 19:48

Thanks for reply, I will check