Sub Example_ListARX()
    ' Этот пример получает все загруженные приложения ObjectARX
    
    ' Получите список приложений
    Dim appList As Variant
    appList = ThisDrawing.Application.ListArx
    
    ' Выполните итерации через список, и отобразите названия.
    If VarType(appList) <> vbEmpty Then
        Dim I As Integer
        For I = LBound(appList) To UBound(appList)
            MsgBox "ObjectARX application name: " & appList(I)
        Next
    Else
        MsgBox "No ObjectARX applications present."
    End If
    
End Sub