• alexbabichuk
  • Восстановленный участник
  • На форуме с 1 апреля 2004г.
  • Сообщений: 46
  • Спасибо: 0

Тема: Потеря контроля над ACADом

Даю команду из Delphi - ACADу напр. "укажи точку":
pt_End := AcadDoc.Utility.GetPoint(pt_Start, 'Укажи точку : ')
Все Ок! до тех пор пока в момент указания юзер не изменит
видовой экран (фоновые команды Pan, Zoom и т.д.).
Как с этим бороться.

  • GRF
  • Восстановленный участник
  • На форуме с 14 октября 2003г.
  • Сообщений: 292
  • Спасибо: 0

Re: Потеря контроля над ACADом

> alex
Эта тема хорошо обсуждалась здесь:
https://www.caduser.ru/forum/topic7328.html
Если коротко, то как и говорил ShaggyDoc - надо менять подход. Я попробовал с COM-сервером и все прекрасно получилось - никаких проблем ни с указанием точек, ни с какими интерактивными вещами, т.к. все  они реализовываются на LISP.

  • alexbabichuk
  • Восстановленный участник
  • На форуме с 1 апреля 2004г.
  • Сообщений: 46
  • Спасибо: 0

Re: Потеря контроля над ACADом

Спасибо. Класная ссылочка. Получил все ответы.

  • alexbabichuk
  • Восстановленный участник
  • На форуме с 1 апреля 2004г.
  • Сообщений: 46
  • Спасибо: 0

Re: Потеря контроля над ACADом

Но возникли новые вопросы. Задал в разделе Программтрование-разное.

  • alexbabichuk
  • Восстановленный участник
  • На форуме с 1 апреля 2004г.
  • Сообщений: 46
  • Спасибо: 0

Re: Потеря контроля над ACADом

Добрые люди подсказали. Безопасно ввести точку можно и чисто на Delphi.
Например так:

flag := true;
    while flag do begin
      try
        p01 := AcadDoc.Utility.GetPoint(, 'Укажи точку 1: ');
        flag := false;
      except
      end;
    end;
    flag := true;
    while flag do begin
      try
        p02 := AcadDoc.Utility.GetPoint(p01,'Укажи точку 2: ');
        flag := false;
      except
      end;
    end;

Теперь используй почти любые команды ACADа пока точку не укажешь из цикла не выйдет и прога не обвалится.