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

 

Comments?