Private Sub Delete_Example()
' This example creates a Layer named by the user.
' It then deletes the layer.
Dim newLayer As AcadLayer
Dim lName As String
lName = InputBox("Type a layer name")
' Create the new layer
Set newLayer = ThisDrawing.Layers.Add(lName)
MsgBox "Layer " & newLayer.Name & " has been added."
' Delete the layer
lName = newLayer.Name
newLayer.Delete
MsgBox "Layer " & lName & " has been deleted."
End Sub
| Bricscad™ is commercialized by Bricsys NV. Bricsys NV and Vondle NV are fully owned subsidiaries of Menhirs NV. © 2001- Menhirs NV - All rights reserved. |