CustomDictionary Example |
Using Programming Languages other than VBA
Sub Example_CustomDictionary() ' This example returns the current setting of ' CustomDictionary. It then changes the value, and finally ' it resets the value back to the original setting. Dim preferences As AcadPreferences Dim currCustomDictionary As String Dim newCustomDictionary As String Set preferences = ThisDrawing.Application.preferences ' Retrieve the current CustomDictionary value currCustomDictionary = preferences.Files.CustomDictionary MsgBox "The current value for CustomDictionary is " & currCustomDictionary, vbInformation, "CustomDictionary Example" ' Change the value for CustomDictionary newCustomDictionary = "TestCustomDictionary.cus" preferences.Files.CustomDictionary = newCustomDictionary MsgBox "The new value for CustomDictionary is " & newCustomDictionary, vbInformation, "CustomDictionary Example" ' Reset CustomDictionary to its original value preferences.Files.CustomDictionary = currCustomDictionary MsgBox "The CustomDictionary value is reset to " & currCustomDictionary, vbInformation, "CustomDictionary Example" End Sub
Comments? |