[maximiliam]

Как программно на VBA узнать текст последней команды autocada

Делаю программу (работает в фоновом режиме)
Пользователь указывает текст на чертеже
либо вводит в командной строке и нажимает ентер (т.е. дает команду)

осталось реализовать только чтение строки последней команды

помогите пожалуйста

[Boxa]

Поищи в справке "AcadDocument_EndCommand"

Код:

[Выделить все]

Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
On Error Resume Next
    'MsgBox CommandName
    If (CommandName = "MLEADER") Then 
        Dim acOdj As AcadObject
        Set acOdj = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)
        With acOdj
            If .ObjectName = "AcDbMLeader" Then 
                .Layer = "Текст"
                .color = 256 '"acByLayer"
                .Lineweight = acLnWtByLayer
                .Linetype = "ByLayer"
                .ScaleFactor = macshtab
            End If
        End With
    End If
End Sub

[maximiliam]

Это конечно хорошо, а другим способом нельзя?
данные хранятся типа вжурнале

[Boxa]

Тогда посмотри в справке в разделе Методы
методы начинающиеся с "Bigin........" и с "End........."
Выбери себе нужное.
Других способов на VB не знаю.

[Кулик Алексей aka kpblc]

А если проверять последний созданный примитив?

[maximiliam]

Методы мне не подходят, ибо у меня оно как промт определяется
последний созданный примитив проверять не получится, ибо они вообще не создаются
Решил проблему через sendmessage и wm_gettext