AltFontFile property example

Sub AltFontFile_Example()
    Dim myPrefs As AcadPreferences
    Dim myFontFile As String
    Set myPrefs = ThisDrawing.Application.preferences
    myFontFile = myPrefs.Files.AltFontFile
    MsgBox "The alternate font file is: " & myFontFile
End Sub
Bricscad™ is commercialized by Bricsys NV. Bricsys NV and Vondle NV are fully owned subsidiaries of Menhirs NV. Copyright © 2001- Menhirs NV - All rights reserved.