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