Sub Example_Rename()
    'Этот пример создает словарь и добавляет выбранный объект к этому
    ' словарю. Затем переименовывает объект в словаре.
    
    Dim dictObj As AcadDictionary
    Set dictObj = ThisDrawing.Dictionaries.Add("TEST_DICTIONARY")
    
    'Загрузите приложение ObjectARX, которое определяет выбранный объект.
    'Отметьте: приложение, перечисленное здесь не существует и вызовет
    'ошибку когда выполнено. Измените имя приложения на путь и имя вашего
    'приложения ObjectARX.
    ThisDrawing.Application.LoadArx ("MyARXApp.dll")
    
    'Создайте выбранный объект в словаре
    Dim keyName As String
    Dim className As String
    Dim customObj As AcadObject
    
    keyName = "OBJ1"
    className = "CAsdkDictObject"
    
    Set customObj = dictObj.AddObject(keyName, className)
    
    'Переименуйте объект
    dictObj.Rename keyName, "NewKeyName"
    
End Sub

Public Sub Example_RenameLayerSettings()
    'Этот пример переименовывает ряд сохраненных установок слоя от "ColorLinetype" в "OldColorLinetype."
	
    Dim oLSM As AcadLayerStateManager
	
    'Обратитесь к объекту LayerStateManager.
    Set oLSM = ThisDrawing.Application. _
       GetInterfaceObject("AutoCAD.AcadLayerStateManager.16")
	   
    'Свяжите базу данных текущего рисунка с объектом LayerStateManager.
    oLSM.SetDatabase ThisDrawing.Database
	
    'Переименуйте сохраненные установки слоя.
    oLSM.Rename "ColorLinetype", "OldColorLinetype"
End Sub