Sub Example_Application()
    ' Этот пример создает линию и затем использует
    ' свойство Application, чтобы возвратить имя приложения.
    Dim lineObj As AcadLine
    Dim startPoint(0 To 2) As Double
    Dim endPoint(0 To 2) As Double
    Dim myApp As AcadApplication
    
    ' Создайте новую ссылку линии
    startPoint(0) = 0: startPoint(1) = 0: startPoint(2) = 0
    endPoint(0) = 2: endPoint(1) = 2: endPoint(2) = 0
    Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
    lineObj.Update

    ' Возвратите приложение для объекта
    Set myApp = lineObj.Application
    
    ' Отобразите название приложения
    MsgBox "Имя приложения: " & myApp.name, vbInformation, "Application Пример"
End Sub