Cambio del tipo de línea de un objeto

previous page next page

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

Manual del desarrollador de ActiveX y VBA > Creación y edición de entidades de AutoCAD > Uso de capas, colores y tipos de línea > Asignación de capas, colores y tipos de línea a objetos >

Cambio del tipo de línea de un objeto

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

previous page start next page