RenameProfile Example |
Using Programming Languages other than VBA
Sub Example_RenameProfile() ' This example renames an existing profile. ' You can see the renamed profile under Options/Profiles ' ' *Note: This example relies on the default profile "<<Unnamed Profile>>". ' If this profile has already been renamed or removed, be sure to change the ' name of the SourceProfile to one that currently exists. Dim ACADPref As AcadPreferencesProfiles Dim SourceProfile As String, DestinationProfile As String ' Get the profiles preferences object Set ACADPref = ThisDrawing.Application.preferences.Profiles ' Rename the default profile On Error GoTo ERRORTRAP SourceProfile = "<<Unnamed Profile>>" DestinationProfile = "NEW_PROFILE_NAME" ACADPref.RenameProfile SourceProfile, DestinationProfile MsgBox "We have just renamed the profile " & SourceProfile & " to " & DestinationProfile Exit Sub
ERRORTRAP: If Err.Description <> "" Then MsgBox "The default profile '" & SourceProfile & "' cannot be found, please use a different source profile." End If End Sub
Comments? |