TextEditor Example

Using Programming Languages other than VBA

Sub Example_TextEditor()
	' This example returns the current setting of
	' TextEditor. It then changes the value, and finally
	' it resets the value back to the original setting.

	Dim preferences As AcadPreferences
	Dim currTextEditor As String
	Dim newTextEditor As String

	Set preferences = ThisDrawing.Application.preferences

	' Retrieve the current TextEditor value
	currTextEditor = preferences.Files.TextEditor
	MsgBox "The current value for TextEditor is " & currTextEditor, vbInformation, "TextEditor Example"

	' Change the value for TextEditor
	newTextEditor = "TestTextEditor"
	preferences.Files.TextEditor = newTextEditor
	MsgBox "The new value for TextEditor is " & newTextEditor, vbInformation, "TextEditor Example"

	' Reset TextEditor to its original value
	preferences.Files.TextEditor = currTextEditor
	MsgBox "The TextEditor value is reset to " & currTextEditor, vbInformation, "TextEditor Example"
End Sub

 

   Comments?