Sub Example_DefaultPlotToFilePath()
'Отметьте: Измените путь на допустимую папку в вашей системе.
	
    Dim MyPreference As IAcadPreferencesOutput2
    Set MyPreference = AcadApplication.Preferences.Output
    MyPreference.DefaultPlotToFilePath = "C:\Plots"
	

End Sub