Sub Name_Example()
' This example creates a new layer. It then changes the name of that layer.
Dim layerObj As AcadLayer
Set layerObj = ThisDrawing.Layers.Add("NewLayer")
Dim sLayerName As String
sLayerName = layerObj.Name
MsgBox "A new layer was created with the name: " & sLayerName
layerObj.Name = "TEST"
sLayerName = layerObj.Name
MsgBox "The new name of the layer is: " & layerObj.Name
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. |