CADopia - Delete method

Deletes a specified object, such as a drawing entity or a block, layer, or linetype.

Syntax

object.Delete

Delete method example

Private Sub Delete_Example()

     ' This example creates a Layer named by the user.

     ' It then deletes the layer.

     Dim newLayer As CADopia.Layer

     Dim lName As String

     lName = InputBox("Type a layer name")

     ' Create the new layer

     Set newLayer = ThisDocument.Layers.Add(lName)

     MsgBox "Layer " & newLayer.Name & " has been added."

     ' Delete the layer

     newLayer.Delete

     MsgBox "Layer " & newLayer.Name & " has been deleted."

End Sub