ResetProfile Example |
Using Programming Languages other than VBA
Sub Example_ResetProfile() ' This example resets a profile to the default values. ' NOTE: A dummy profile name is used so that your existing ' profiles are not changed. Dim preferences As AcadPreferences Dim strProfileToReset As String Set preferences = ThisDrawing.Application.preferences ' Specify the profile to delete. strProfileToReset = "TestProfile" ' Delete the profile ' The call will fail if "TestProfile" does not exist On Error GoTo Error preferences.Profiles.ResetProfile strProfileToReset Exit Sub
Error: MsgBox "ResetProfile of " & strProfileToReset & " failed. " & Err.Description, , "ResetProfile Example" End Sub
Comments? |