Asignación de tipos de letra

AutoCAD ActiveX

 
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