ToolPalettePath Example

Using Programming Languages other than VBA

Sub Example_ToolPalettePath()
		'This example changes the tool palette path
		'and then sets it to its original string

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

		Dim defToolPalettePath As String
		Dim changedToolPalettePath As String

		defToolPalettePath = pref.ToolPalettePath
		MsgBox "The current tool palette path is " & defToolPalettePath

		pref.ToolPalettePath = "c:\winnt;c:\temp"
		changedToolPalettePath = pref.ToolPalettePath
		MsgBox "The changed tool palette path is " & changedToolPalettePath

		pref.ToolPalettePath = defToolPalettePath
End Sub