Cambio de la capa de un objeto

AutoCAD ActiveX

 
Cambio de la capa 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