Sub Example_ColorBookPath()
        ' Этот пример изменяет путь цветовой книги и затем устанавливает
        ' его на первоначальное значение

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

	Dim defCBPath As String
	Dim changedCBPath As String

	defCBPath = pref.ColorBookPath
	MsgBox "Текущий путь цветовой книги " & defCBPath

	pref.ColorBookPath = "c:\winnt;c:\temp"
	changedCBPath = pref.ColorBookPath
	MsgBox "Измененный путь цветовой книги " & changedCBPath

	pref.ColorBookPath = defCBPath

End Sub