AltFontFile Property (ActiveX)

Specifies the location of the font file to use if AutoCAD cannot locate the original font and an alternate font is not specified in the font mapping file.

Supported platforms: Windows only

Signature

VBA:

object.AltFontFile

object

Type: PreferencesFiles

The object this property applies to.

Property Value

Read-only: No

Type: String

The alternate font file.

Remarks

No additional remarks.

Examples

VBA:

Sub Example_AltFontFile()
    ' This example returns the current setting of
    ' AltFontFile. It then changes the value, and finally
    ' it resets the value back to the original setting.
    
    Dim preferences As AcadPreferences
    Dim currAltFontFile As String
    Dim newAltFontFile As String
    
    Set preferences = ThisDrawing.Application.preferences
    
    ' Retrieve the current AltFontFile value
    currAltFontFile = preferences.Files.AltFontFile
    MsgBox "The current value for AltFontFile is " & currAltFontFile, vbInformation, "AltFontFile Example"
    
    ' Change the value for AltFontFile
    newAltFontFile = "C:/AutoCAD/Fonts/gothice.shx"
    preferences.Files.AltFontFile = newAltFontFile
    MsgBox "The new value for AltFontFile is " & newAltFontFile, vbInformation, "AltFontFile Example"
    
    ' Reset AltFontFile to its original value
    preferences.Files.AltFontFile = currAltFontFile
    MsgBox "The AltFontFile value is reset to " & currAltFontFile, vbInformation, "AltFontFile Example"
 End Sub

Visual LISP:

(vl-load-com)
(defun c:Example_AltFontFile()
    ;; This example returns the current setting of
    ;; AltFontFile. It then changes the value, and finally
    ;; it resets the value back to the original setting.
    (setq acadObj (vlax-get-acad-object))
    (setq preferences (vla-get-Preferences acadObj))
    (setq files (vla-get-Files preferences))
      
    ;; Retrieve the current AltFontFile value
    (setq currAltFontFile (vla-get-AltFontFile files))
    (alert (strcat "The current value for AltFontFile is " currAltFontFile))
    
    ;; Change the value for AltFontFile
    (setq newAltFontFile "C:/AutoCAD/Fonts/gothice.shx")
    (vla-put-AltFontFile files newAltFontFile)
    (alert (strcat "The new value for AltFontFile is " newAltFontFile))
    
    ;; Reset AltFontFile to its original value
    (vla-put-AltFontFile files currAltFontFile)
    (alert (strcat "The AltFontFile value is reset to " currAltFontFile))
)