[DonVik]

Всем доброго времени суток.

Ситуация такая - я на Делфи пишу программу, которая автоматом должна в Акаде 2002 оторвать вид (amviewout). Пользуюсь SendComand для задания этого действия, при этом ставлю в 0 filedia и cmddia чтоб все проходило "без участия пользователя", т.е. пользователю нужно только выбрать что отрывать, а все остальное должна делать программа.

Но дело в том что после посылки команды программа не останавливается, чтоб подождать когда пользователь выберет что отрывать, а продолжает работать дальше и вылетает с ошибкой ибо пользователь ничего не выбрал.

Так вот вопрос: как подождать завершения команды, или как лучше организовать автоматический отрыв вида в другой файл (имя которого и путь генерирует программа)? Может прописать макрос в котором будет отрыв, а потом его запускать, тогда какие события (если они есть) нужно юзать.

[VVA]

LISP. Программное завершение команды
***Добавлено***
Не заметил что вопрос Delphi, но SendCommand может посылать в Автокад и LISP выражения

[DonVik]

Спасибо Владимир. CMDACTIVE обязательно попробую.
НАсчет ЛиспВыражений эт я знал, только не знал какая переменная показывает состояние команды. Теперь знаю )

[DonVik]

А еще не подскажете ли почему происходит ошибка "Вызов отклонен" при выполнении такого кода на Делфи:

Код:

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

 acaddocument.SendCommand('amviewout'#13'o'#13'v'#13);
 while AcadDocument1.GetVariable('CMDACTIVE')<>0 do;

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

Перед именами команд и опциями надо ставить знак "_"

[DonVik]

Перед именами команд и опциями надо ставить знак "_"

Хм. Ошибка не вылезает. Теперь буду разбираться с CMDACTIVE.
Пока не очень понятно что она возвращает.

В общем пока спасибо. Если будут вопросы еще напишу.

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

AutoCAD -> F1 -> Системная переменная CMDACTIVE

[Sleekka]

Не с SendCommand такой фокус не прокатывает - только случайно.