Activación y desactivación de capas

AutoCAD ActiveX

 
Activación y desactivación de capas
 
 
 

Las capas desactivadas se regeneran con el dibujo, pero no se visualizan ni trazan. Al desactivarlas, se evita tener que regenerar el dibujo cada vez que se reutiliza una capa. Al activar una capa que se ha desactivado, AutoCAD vuelve a dibujar los objetos de esa capa.

Para activar y desactivar capas, utilice la propiedad LayerOn. Si le asigna el valor TRUE, la capa se activa. Si le asigna el valor FALSE, la capa se desactiva.

Desactivación de una capa

Este ejemplo crea una capa nueva, le añade un círculo y la desactiva para que el círculo no esté visible.

Sub Ch4_LayerInvisible()
    ' 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
      
    ' Turn off layer "ABC"
    layerObj.LayerOn = False
    ThisDrawing.Regen acActiveViewport
End Sub