Sub Example_ToolPalettePath()
	'Этот пример изменяет путь палитры инструмента и затем 
            'устанавливает в оригинальную строку

	Dim pref As AutoCAD.AcadPreferencesFiles
	Set pref = AcadApplication.Preferences.Files

	Dim defToolPalettePath As String
	Dim changedToolPalettePath As String

	defToolPalettePath = pref.ToolPalettePath
	MsgBox "Текущий путь палитры инструмента " & defToolPalettePath

	pref.ToolPalettePath = "c:\winnt;c:\temp"
	changedToolPalettePath = pref.ToolPalettePath
	MsgBox "Измененный путь палитры инструмента " & changedToolPalettePath

	pref.ToolPalettePath = defToolPalettePath
End Sub