Trabajar con capas
Trabajar con capas
Creación y denominación de capas
Se puede iterar en las colecciones Layers y Linetypes para encontrar todas las capas y tipos de línea del dibujo.
Iteración en la colección de capas
El siguiente código efectúa iteraciones en la colección Layers para obtener los nombres de todas las capas del dibujo. Los nombres se muestran en un cuadro de mensajes.
Sub Ch4_IteratingLayers()
Dim layerNames As String
Dim entry As AcadLayer
layerNames = ""
For Each entry In ThisDrawing.Layers
layerNames = layerNames + entry.Name + vbCrLf
Next
MsgBox "The layers in this drawing are: " + _
vbCrLf + layerNames
End Sub