LoadAcadLspInAllDocuments Example

Using Programming Languages other than VBA

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

	Dim preferences As AcadPreferences
	Dim currLoadAcadLspInAllDocuments As Boolean

	Set preferences = ThisDrawing.Application.preferences

	' Retrieve the current LoadAcadLspInAllDocuments value
	currLoadAcadLspInAllDocuments = preferences.System.LoadAcadLspInAllDocuments
	MsgBox "The current value for LoadAcadLspInAllDocuments is " & preferences.System.LoadAcadLspInAllDocuments, vbInformation, "LoadAcadLspInAllDocuments Example"

	' Change the value for LoadAcadLspInAllDocuments
	preferences.System.LoadAcadLspInAllDocuments = Not (currLoadAcadLspInAllDocuments)
	MsgBox "The new value for LoadAcadLspInAllDocuments is " & preferences.System.LoadAcadLspInAllDocuments, vbInformation, "LoadAcadLspInAllDocuments Example"

	' Reset LoadAcadLspInAllDocuments to its original value
	preferences.System.LoadAcadLspInAllDocuments = currLoadAcadLspInAllDocuments
	MsgBox "The LoadAcadLspInAllDocuments value is reset to " & preferences.System.LoadAcadLspInAllDocuments, vbInformation, "LoadAcadLspInAllDocuments Example"
End Sub

 

   Comments?