ColorBookPath Example

Using Programming Languages other than VBA

Sub Example_ColorBookPath()
		'This example changes the color book path
		'and then sets it to its original string

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

		Dim defCBPath As String
		Dim changedCBPath As String

		defCBPath = pref.ColorBookPath
		MsgBox "The current color book path is " & defCBPath

		pref.ColorBookPath = "c:\winnt;c:\temp"
		changedCBPath = pref.ColorBookPath
		MsgBox "The changed color book path is " & changedCBPath

		pref.ColorBookPath = defCBPath

End Sub