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. © 2001- Menhirs NV - All rights reserved.