Cambio del color de un objeto
Asignación de capas, colores y tipos de línea a objetos
Almacenamiento y restablecimiento de parámetros de capas
Por defecto, los objetos utilizan el tipo de línea de la capa en la que se crean. Para cambiar el tipo de línea de un objeto, utilice la propiedad Linetype del objeto. Esta propiedad utiliza como entrada el nombre del tipo de línea que se desea asignar al objeto.
NotaPara poder asignar un tipo de línea a un objeto, el tipo de línea debe encontrarse cargado en el dibujo actual. Para cargar un tipo de línea en el dibujo, utilice el método Load.
Para obtener más información acerca de los tipos de línea, véase “Introducción a los tipos de líneas” en el Manual del usuario.
Cambio del tipo de línea de un círculo
Este ejemplo crea un círculo. A continuación, se intenta cargar el tipo de línea “CENTER” del archivo acad.lin. Si este tipo de línea ya existe, o si el archivo no existe, se muestra un mensaje. Por último, se establece el tipo de línea del círculo en “CENTER.”.
Sub Ch4_ChangeCircleLinetype()
On Error Resume Next
' 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)
Dim linetypeName As String
linetypeName = "CENTER"
' Carga el tipo de línea "CENTER" desde el archivo acad.lin
ThisDrawing.Linetypes.Load linetypeName, "acad.lin"
If Err.Description <> "" Then MsgBox Err.Description
' Assign the circle the linetype "CENTER"
circleObj.Linetype = "CENTER"
circleObj.Update
End Sub