Sub Example_PlotLogFilePath()
'Отметьте: Измените путь на существующую папку в вашей системе.
	
    Dim MyPreference As IAcadPreferencesFiles2
    Set MyPreference = AcadApplication.Preferences.Files
    MyPreference.PlotLogFilePath = "C:\Plots"
	
End Sub