Utilice el método Save para guardar un conjunto de parámetros de capa de un dibujo. El método Save acepta dos parámetros. El primer parámetro consiste en una cadena con el nombre de los parámetros de capa que se deben guardar. El segundo parámetro identifica las propiedades de capa que desean utilizarse. Utilice las constantes de la siguiente tabla para identificar propiedades de capa.
Las constantes pueden añadirse juntas para precisar varias propiedades.
Si intenta guardar parámetros de capa con un nombre que ya existe, aparece un error. Para poder reutilizar un nombre, es necesario suprimir o cambiar de nombre los parámetros de capa guardados ya existentes.
Guardado de los parámetros de color y tipo de línea de una capa
El siguiente código guarda los parámetros de color y tipo de línea de la capa actual bajo el nombre ColorLinetype.
Sub Ch4_SaveLayerColorAndLinetype()
Dim oLSM As AcadLayerStateManager
' Access the LayerStateManager object
Set oLSM = ThisDrawing.Application. _
GetInterfaceObject("AutoCAD.AcadLayerStateManager.17")' Associate the current drawing database with LayerStateManager
oLSM.SetDatabase ThisDrawing.Database
oLSM.Save "ColorLinetype", acLsColor + acLsLineType
End Sub
Cambio de nombre de un parámetro de capa guardado
El siguiente código cambia el nombre de los parámetros de capa ColorLinetype por el nombre OldColorLinetype.
Sub Ch4_RenameLayerSettings()
Dim oLSM As AcadLayerStateManager
Set oLSM = ThisDrawing.Application. _
GetInterfaceObject("AutoCAD.AcadLayerStateManager.17")oLSM.SetDatabase ThisDrawing.Database
oLSM.Rename "ColorLinetype", "OldColorLinetype"
End Sub
Supresión de un parámetro de capa guardado
El siguiente código suprime los parámetros de capa que se guardaron bajo el nombre ColorLinetype.
Sub Ch4_DeleteColorAndLinetype()
Dim oLSM As AcadLayerStateManager
Set oLSM = ThisDrawing.Application. _
GetInterfaceObject("AutoCAD.AcadLayerStateManager.17")oLSM.SetDatabase ThisDrawing.Database
oLSM.Delete "ColorLinetype"
End Sub