Private Sub Delete_Example()

     ' This example creates a Layer named by the user.

     ' It then deletes the layer.

     Dim newLayer As IntelliCAD.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

UserCoordSystem Object  | UserCoordSystem Members