Se puede crear capas nuevas y asignarles propiedades de color y tipo de línea. Todas las capas individuales forman parte de la colección Layers. Para crear un capa nueva y añadirla a la colección de capas, utilice el método Add.
El nombre de las capas se les asigna al crearlas. Si después de crear una capa desea cambiar su nombre, utilice la propiedad Name. Los nombres de capa pueden constar de un total de 31 caracteres y contener letras, números y los signos especiales de dólar ($), guión (–) y subrayado (_), pero no pueden contener espacios en blanco.
Para obtener más información acerca de la creación de capas, véase “Creación y denominación de capas” en el Manual del usuario.
Para crear una capa nueva, asignarle el color rojo y agregarle un objeto
El código del ejemplo siguiente crea un círculo y una capa nueva. Se asigna el color rojo a la nueva capa. El círculo se asigna a la capa y su color cambia en consecuencia.
Sub Ch4_NewLayer()
' Create a circle
Dim circleObj As AcadCircle
Dim center(0 To 2) As Double
Dim radius As Double
center(0) = 2: center(1) = 2: center(2) = 0
radius = 1
Set circleObj = ThisDrawing.ModelSpace. _
AddCircle(center, radius)
' Create a color object
Dim col As New AcadAcCmColor
col.ColorMethod = AutoCAD.acColorMethodForeground
' Set the layer to the color
Dim layColor As AcadAcCmColor
Set layColor =
AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.17")
Call layColor.SetRGB(122, 199, 25)
ThisDrawing.ActiveLayer.TrueColor = layColor
col.ColorMethod = AutoCAD.acColorMethodByLayer
' Assign the circle the color "ByLayer" so
' that the circle will automatically pick
' up the color of the layer on which it resides
circleObj.Color = acByLayer
circleObj.Update
End Sub