Sub Example_QNewTemplateFile()
	 'Этот пример использует MyTemplate.dwt файл, чтобы установить 
         'шаблон значения по умолчанию для команды QNEW. 
	 'Вы должны изменить пример, чтобы использовать файл шаблона на
         'вашем компьютере.

	Dim MyTemplate As IAcadPreferencesFiles2
	Set MyTemplate = AcadApplication.Preferences.Files
	MyTemplate.QNewTemplateFile = "C:\MainTemplate.dwt"

End Sub