Asignación de tipos de letra

previous page next page

Creación y modificación de estilos de texto

Utilización de los estilos de texto

Tipos de letra TrueType

Manual del desarrollador de ActiveX y VBA > Creación y edición de entidades de AutoCAD > Adición de texto a dibujos > Utilización de los estilos de texto >

Asignación de tipos de letra

Los tipos de letra definen las formas de los caracteres de texto que constituyen los juegos de caracteres. Un tipo de letra puede ser utilizado en más de un estilo. Para asignar un tipo de letra a un estilo de texto, utilice la propiedad FontFile del objeto TextStyle. Puede asignar un tipo de letra compilado (SHX) propio de AutoCAD al estilo de texto, especificando el archivo de tipo de letra que lo contenga.

Establecimiento de los tipos de letra del texto

En este ejemplo se obtienen los valores de tipo de letra del estilo de texto activo y se cambia a la familia de tipos “PlayBill.” Después establece el nuevo tipo de letra mediante el método SetFont. Para ver cómo afecta el cambio de tipo de letra al texto, añada un objeto Mtext o Text al dibujo actual antes de ejecutar el ejemplo. Recuerde que, si el sistema no dispone del tipo de letra PlayBill, debe sustituirlo por algún tipo que tenga instalado su sistema; de lo contrario, el código de ejemplo no funcionará.

Sub Ch4_UpdateTextFont()

          MsgBox ("Look at the text now...")
                Dim typeFace As String
          Dim SavetypeFace As String
          Dim Bold As Boolean
          Dim Italic As Boolean
          Dim charSet As Long
          Dim PitchandFamily As Long
                ' Get the current settings to fill in the
          ' default values for the SetFont method
          ThisDrawing.ActiveTextStyle.GetFont typeFace, _
                       Bold, Italic, charSet, PitchandFamily
                ' Change the typeface for the font
          SavetypeFace = typeFace
          typeFace = "PlayBill"
          ThisDrawing.ActiveTextStyle.SetFont typeFace, _
                      Bold, Italic, charSet, PitchandFamily
          ThisDrawing.Regen acActiveViewport
          MsgBox ("Now see how it looks after changing the font...")
                'Restore the original typeface
          ThisDrawing.ActiveTextStyle.SetFont SavetypeFace, _
                      Bold, Italic, charSet, PitchandFamily
          ThisDrawing.Regen acActiveViewport
      End Sub

previous page start next page