• На форуме с 18 апреля 2012г.
  • Сообщений: 2
  • Спасибо: 0

Тема: Возможно ли получить результат выполнения SendCommand.

В общем случае задача следующая. С помощью Delphi запустить на выполнение команду AutoCAD, результат выполнения вернуть обратно приложению на Delphi.

AcadApp.ActiveDocument.SendCommand('(+ 1 1)'+#13);

Возможно ли такое в принципе, т.е. можно ли считывать из COM модели AutoCAD то что находится в command line output AutoCAD?

  • Откуда: Украина / Киев
  • На форуме с 15 апреля 2005г.
  • Сообщений: 8,666
  • Спасибо: 158

Re: Возможно ли получить результат выполнения SendCommand.

Федор Александров пишет:

Возможно ли такое в принципе, т.е. можно ли считывать из COM модели AutoCAD то что находится в command line output AutoCAD?

Нет.

  • На форуме с 18 апреля 2012г.
  • Сообщений: 2
  • Спасибо: 0

Re: Возможно ли получить результат выполнения SendCommand.

Реализовал то, что было нужно следующим образом (с помощью пользовательских переменных):

AcadApp.ActiveDocument.SendCommand('(load "C:\\1lisp\\test")'+#13);
AcadApp.ActiveDocument.SendCommand('(AX:GETTAGTEXT STRING doc "GOSTFORM" "FILE_NAME")'+#13);
pt := AcadApp.ActiveDocument.GetVariable('USERS1');
ListBox1.Items.Add(pt);

p.s. Вообще стояла задача считывания атрибутов, мною было реализовано считывание, но из-за модели COM AutoCAD приходилось считывать все объекты ModelSpace или PaperSpace затем перебирать, определять атрибуты, считывание файла с 15000 элементов готового чертежа занимало порядка 15-20 секунд. Поэтому решил воспользоваться Lisp, такой способ гораздо быстрее.