[maratovich]

Собственно вопрос в заголовке, чем теперь дать команду ESCAPE ?

[gomer]

а зачем делать эскейп?

[maratovich]

А вдруг пользователь забыл прервать свою команду и нажал макрос. Да и так на всякий случай - очистка комстроки. Так чем заменить то ?

[VVA]

Сообщение от maratovich нажал макрос.

Если нажал и макрос, то смотри Использование в макросах специальных управляющих символов

[maratovich]

Сообщение от VVA Если нажал и макрос, то смотри Использование в макросах специальных управляющих символов

Спасибо конешна, но не то.
Нужно программно нажать ескейп.

[VVA]

гугл дает ссылки на такие варианты
http://forums.augi.com/showthread.ph...l=1#post931694
http://forums.augi.com/showthread.ph...l=1#post124495

[maratovich]

Сообщение от VVA гугл дает ссылки на такие варианты

Собственно в первом варианте и есть теперь проблема, а второй уже не работает с 2009.
Но и на том спасибо, всё больше убеждаюсь что решения нет.

[Boxa]

Сообщение от maratovich А вдруг пользователь забыл прервать свою команду и нажал макрос.

запретить прозрачное исполнение команды (Command Flags)

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

А разве в VBA такое есть?

[VVA]

А если послать через Sentcommand lisp выражение

Код:

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

(while (> (getvar 'CMDACTIVE) 0) (command))

Что-то типа

Код:

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

thisdrawing.sendcommand "(while (> (getvar 'CMDACTIVE) 0) (command))" & vbcr

или

Код:

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

thisdrawing.sendcommand "(while (> (getvar \"CMDACTIVE\") 0) (command))\n"

----- добавлено через ~18 мин. -----

Сообщение от maratovich всё больше убеждаюсь что решения нет

Похоже на то. Из этой темы

Hi Jeff, I do not find a way to know if the previous SendCommand was cancelled using Escape key. As Norman said, you will have less control over the functionality if a series of commands are being sent to complete a task. Coding the functionality using AutoCAD .Net API or ObjectARX C++ API is a better option

[Boxa]

Сообщение от Кулик Алексей aka kpblc А разве в VBA такое есть?

а слово VBA, появилось только в твоем сообщении =о)
Хотя уже настолько привык к .NET, что про VBA уже и забыл...

Код:

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

'Contains the AutoCAD Type Library
Imports Autodesk.AutoCAD.Interop
'Contains the AutoCAD/ObjectDBX Type Library
Imports Autodesk.AutoCAD.Interop.Common

Public Class AdskCommands
    Public ReadOnly Property ThisDrawing() As  _
    AcadDocument
        Get
            Return Autodesk.AutoCAD. _
            ApplicationServices.Application. _
            DocumentManager.MdiActiveDocument. _
            AcadDocument
        End Get
    End Property

    <Autodesk.AutoCAD.Runtime.CommandMethod("myroutine")> _
    Public Sub myRoutine()
        ThisDrawing.Utility.Prompt("Hello World from .NET")
    End Sub
End Class

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

Насколько я помню, ThisDrawing "по дефолту" доступно только в VBA. В .Net для этого используются другие механизмы.

[Boxa]

Я же сознался, что забыл про VBA =o)
И увидев ThisDrawing.SendCommand Chr(27) подумал именно про VB.NET, в варианте использования COM.
Кстати, код приведенный мной, это из "DevTV VBA To VBdotNet Migration Basics", самый первый пример.

[baksconstructor]

Сообщение от Кулик Алексей aka kpblc Насколько я помню, ThisDrawing "по дефолту" доступно только в VBA.

Нет, в VB6 по полной работает.

Сообщение от Кулик Алексей aka kpblc В .Net для этого используются другие механизмы.

А это интересно, подскажите как, мне тоже пригодится.

Сообщение от Boxa в варианте использования COM.

И как через СОМ прервать ком строку ?

У меня тоже часто чёнить не сработает в ком строке и висит запрос ввода правильной команды, а если потом послать свою нужную через СОМ, то "висящая" говорит что команда не верна. Как очистить комстроку, хотябы из API ?

[Boxa]

Сообщение от baksconstructor И как через СОМ прервать ком строку ? У меня тоже часто чёнить не сработает в ком строке и висит запрос ввода правильной команды, а если потом послать свою нужную через СОМ, то "висящая" говорит что команда не верна. Как очистить комстроку, хотябы из API ?

<Autodesk.AutoCAD.Runtime.CommandMethod("myroutine")> это строка создания своей команды, в том числе эта строка может содержать флаги, запрещающие прозрачное исполнение. Ничего отменять не нужно, во время исполнения этой команды, никакая другая просто не запустится...

ИМХО, тут все с ног на голову поставлено, вместо того, что бы написать корректную команду(программу) , которая нормально закончит работать и не зависнет, Вы пытаетесь из другой программы послав ESC прервать ее выполнение. Тут кто то чешет левое ухо правой ногой...

[Do$]

Сообщение от Boxa запрещающие прозрачное исполнение

Прозрачное выполнение ЭТОЙ команды, или ДРУГОЙ при выполнении этой? Мне всегда казалось, что первое.

[Boxa]

Do$, у автора топика, есть программа, которая зависает. Из стороннего макроса ей посылают ESC, для завершения и для начала нормальной работы макроса. Вот для этого макроса я и предлагаю установить флаг CommandFlags.Modal , что бы если среда (автокад) не готова, то он просто не запускался.

ЗЫ.
Кстати, а почему не вызывать макрос через "^C^C_line " если так уж хочется послать ESC?

ЗЗЫ.
Справка по флагам тут: https://sites.google.com/site/bushma...delenie-komand

[maratovich]

Сообщение от Boxa Do$, у автора топика, есть программа, которая зависает. Из стороннего макроса ей посылают ESC, для завершения и для начала нормальной работы макроса. Вот для этого макроса я и предлагаю установить флаг CommandFlags.Modal , что бы если среда (автокад) не готова, то он просто не запускался.

Ну практически так, только наоборот.
Есть пользователь который выбрал команду Размер, указал одну точку, а вместо указания второй запускает макрос (vba, VB6), естественно Автокад не адекватно понимает команды макроса т.к. ожидает получения второй точки размера. Тут нам надо перед запуском макроса послать ескейп Автокаду чтобы прервать выполнение размера, а потом уже делать свои дела.
Раньше всегда перед запуском макроса посылал ThisDrawing.SendCommand Chr(27) и всё работало, а теперь пользователь приходит с квадратными глазами и говорит - "чёто где то ни того, ээээ".
Boxa спасибо, но пишу на VB6, работает СОМ , а он команды .Net не воспринимает.

[Boxa]

Сообщение от maratovich Есть пользователь который выбрал команду Размер, указал одну точку, а вместо указания второй запускает макрос (vba, VB6), естественно Автокад не адекватно понимает команды макроса т.к. ожидает получения второй точки размера.

А если так запускать макрос?
^C^C-vbarun "D:/1.dvb"!ThisDrawing.ddd

ЗЫ. Проверил на 2014 акаде, простановка размера прерывается и начинает исполнятся макрос.
ЗЗЫ. После ddd пробел

[maratovich]

Сообщение от Boxa А если так запускать макрос? ^C^C-vbarun "D:/1.dvb"!ThisDrawing.ddd

Согласен, это работает, а вот как быть с СОМ не ясно.