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? |