Creaci髇 y denominaci髇 de capas
From AutoCAD ActiveX
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 objectDim col As New AcadAcCmColorcol.ColorMethod = AutoCAD.acColorMethodForeground' Set the layer to the colorDim layColor As AcadAcCmColorSet layColor =AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.17")Call layColor.SetRGB(122, 199, 25)ThisDrawing.ActiveLayer.TrueColor = layColorcol.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 residescircleObj.Color = acByLayercircleObj.UpdateEnd Sub