Sub Example_AutomaticPlotLog()
            ' Этот пример устанавливает диалоговое окно AutoCAD Свойства,
            ' Автоматически Сохранять Файл регистрации Печати и Публикации к Истине.

	Dim MyPreference As IAcadPreferencesOutput2
	Set MyPreference = AcadApplication.Preferences.Output
	MyPreference.AutomaticPlotLog = True

End Sub