Sub Example_RegisteredApplications()
    ' Этот пример находит текущую коллекцию RegisteredApplications
    ' и добавляет новый RegisteredApplication к той коллекции.
    
    Dim RegAppColl As AcadRegisteredApplications
    Set RegAppColl = ThisDrawing.RegisteredApplications
    
    ' Создайте RegisteredApp по имени "TEST" в текущем рисунке
    Dim RegAppObj As AcadRegisteredApplication
    Set RegAppObj = RegAppColl.Add("TEST")
    MsgBox "Новое зарегистрированное приложение " & RegAppObj.name & " добавилено к коллекции RegisteredApplications.", vbInformation, "RegisteredApplications Пример"
End Sub