Delete all contents in Layer

You can use the .GetAllObjectsOnLayer() method to get all the objects on a particular layer; this method combined with the existing code will allow you to delete everything on a given layer.

The journal below will attempt to delete all the objects on layer 16; change this to your desired layer before running the journal. Depending on your NX settings (specifically those in Modeling -> General -> Delete and suppress), the journal may not delete objects that are used as parents of features, or it may delete child objects on layer(s) other than the one specified.





Option Strict Off
Imports System
Imports NXOpen

Module Module16

Sub Main()

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

'&&&&& layer number to delete objects from
Const layerToDelete As Integer = 16

If displayPart Is Nothing Then
'no part to work on
Exit Sub
End If

Dim markId1 As Session.UndoMarkId
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Delete")

Dim notifyOnDelete1 As Boolean
notifyOnDelete1 = theSession.Preferences.Modeling.NotifyOnDelete

theSession.UpdateManager.ClearErrorList()

Dim nErrs1 As Integer
nErrs1 = theSession.UpdateManager.AddToDeleteList(workPart.Layers.GetAllObjectsOnLayer(layerToDelete))

Dim nErrs2 As Integer
nErrs2 = theSession.UpdateManager.DoUpdate(markId1)

End Sub

Public Function GetUnloadOption(ByVal dummy As String) As Integer

'Unloads the image when the NX session terminates
GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination

End Function

End Module