Asignación de capas, colores y tipos de línea a objetos
Asignación de capas, colores y tipos de línea a objetos
Cambio del color de un objeto
Al crear un objeto y asignarle propiedades de capa, color y tipo de línea, puede cambiar la capa del objeto. Este cambio resulta útil si se ha creado por error un objeto en una capa equivocada o si más tarde se decide cambiar la organización de capas.
Para cambiar la capa de un objeto, utilice la propiedad Layer del objeto. Esta propiedad utiliza como entrada el nombre de la capa.
Traslado de un objeto a otra capa
En este ejemplo se crea un círculo en la capa activa y, a continuación, se crea una capa nueva llamada “ABC”. A continuación, desplaza el círculo a la nueva capa.
Sub Ch4_MoveObjectNewLayer()
' 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 new layer called "ABC"
Dim layerObj As AcadLayer
Set layerObj = ThisDrawing.Layers.Add("ABC")
' Assign the circle to the "ABC" layer
circleObj.Layer = "ABC"
circleObj.Update
End Sub