FontFileMap Example

Using Programming Languages other than VBA

Sub Example_FontFileMap()
	' This example returns the current setting of
	' FontFileMap. It then changes the value, and finally
	' it resets the value back to the original setting.

	Dim preferences As AcadPreferences
	Dim currFontFileMap As String
	Dim newFontFileMap As String

	Set preferences = ThisDrawing.Application.preferences

	' Retrieve the current FontFileMap value
	currFontFileMap = preferences.Files.FontFileMap
	MsgBox "The current value for FontFileMap is " & currFontFileMap, vbInformation, "FontFileMap Example"

	' Change the value for FontFileMap
	newFontFileMap = "TestFontFileMap.fmp"
	preferences.Files.FontFileMap = newFontFileMap
	MsgBox "The new value for FontFileMap is " & newFontFileMap, vbInformation, "FontFileMap Example"

	' Reset FontFileMap to its original value
	preferences.Files.FontFileMap = currFontFileMap
	MsgBox "The FontFileMap value is reset to " & currFontFileMap, vbInformation, "FontFileMap Example"
End Sub