Сообщество программистов Autodesk в СНГ

ADN Club => ObjectARX => Тема начата: Дмитрий от 28-07-2014, 14:46:44

Название: Не срабатывает SendCommand
Отправлено: Дмитрий от 28-07-2014, 14:46:44
Здравствуйте!
Формирую команду на экспорт в ПДФ. Если ставлю "\n" в конце команды (стрелкой показано) - команда выполняется, но выдаётся предупреждение в трее(правда если по нему щёлкнуть - пишет что ошибок нет), и файл не формируется. Если \n не ставить, а в командной строке самому нажать Enter - всё работает без предупреждений и файл формируется. Подскажите в чём дело, вторую неделю мучаюсь( Заранее спасибо.
Код - C++ [Выбрать]
  1.           /*Теперь будем сохранять в PDF а потом в JPEG(сразу в JPEG сохраняет очень плохо)*/
  2.           pApp->Documents->Open(_bstr_t(lpszFileName));
  3.  
  4.           pApp->ActiveDocument->SendCommand(_bstr_t("PROXYNOTICE 0\n")); // call the command
  5.  
  6.           pApp->ActiveDocument->SendCommand(_bstr_t("FILEDIA 0\n"));
  7.  
  8.           pApp->ActiveDocument->SendCommand(_bstr_t("BACKGROUNDPLOT 0\n"));
  9.  
  10.  
  11.           wchar_t acad_command[MAX_PATH];
  12.           wcscpy(acad_command , _T("-ЭКСПОРТ pdf Тек Нет "));
  13.  
  14.           wcsncat(acad_command , lpszFileName , wcslen(lpszFileName) - 3);
  15.  
  16.           wcscat(acad_command ,_T("pdf"));
  17.           wcscat(acad_command ,_T("\n"));  //<--------------------------------------------------------
  18.  
  19.           pApp->ActiveDocument->SendCommand(_bstr_t(acad_command));
  20.          // pApp->ActiveDocument->SendCommand("\x10\x13");
  21.  
  22.          pApp->ActiveDocument->Close();
  23.  
   
Название: Re: Не срабатывает SendCommand
Отправлено: Александр Ривилис от 29-07-2014, 19:37:51
1) Какое предупреждение? Нужен скрин чтобы понять о чем идет речь.
2) Попробуй заменить "\n" на " " (пробел)
3) Команды и опции используй английские с подчеркиванием
4) Имя файла должно быть в двойных кавычках и замени "\\" на "/"
5) Меняй системные переменные не при помощи pApp->ActiveDocument->SendCommand, а при помощи pApp->ActiveDocument->SetVariable
Название: Re: Не срабатывает SendCommand
Отправлено: Дмитрий от 29-07-2014, 23:43:23
Это когда я не добавляю в конце \n, устанавливаю курсор в командную строку и нажимаю Enter, при этом выходные файлы формируются.
(https://adn-cis.org/forum/proxy.php?request=http%3A%2F%2Fs18.postimg.org%2Foc3s5qnxh%2Fimage.jpg&hash=a0520dfa8301bcefe18cd168847a8036) (http://postimg.org/image/oc3s5qnxh/)

А в этом случае добавляю \n, команда проходит автоматически, но появляется это предупреждение и результирующего файла нет.
(https://adn-cis.org/forum/proxy.php?request=http%3A%2F%2Fs18.postimg.org%2Fr4wzpro9x%2Fimage.jpg&hash=69253ca064d7074e7d4837553048a3ae) (http://postimg.org/image/r4wzpro9x/)

Причем в "подробностях о публикации/печати" во втором случае никаких данных нет.

Переменные выставляются, проверял, имя файла тоже верно задано, т.к. в первом случае всё срабатывает, а имя там тоже самое.
Название: Re: Не срабатывает SendCommand
Отправлено: Дмитрий от 30-07-2014, 11:49:36
Вот нашёл нечто подобное на VBA
Код: [Выделить]
    DOC.SetVariable "FILEDIA", 0
    DOC.SetVariable "BACKGROUNDPLOT", 0

    DOC.SendCommand "-PUBLISH" & vbCr & dsd_dwf
    SendKeys "{ENTER}", True
   
    DOC.SendCommand "-PUBLISH" & vbCr & dsd_pdf
    SendKeys "{ENTER}", TrueЯ так понимаю мне нужно сделать: 
Код: [Выделить]
SendKeys "{ENTER}", True
Название: Re: Не срабатывает SendCommand
Отправлено: Александр Ривилис от 30-07-2014, 21:00:24
Цитата: Дмитрий от 30-07-2014, 11:49:36
Я так понимаю мне нужно сделать:
Код: [Выделить]

SendKeys "{ENTER}", True
Попробуй. Во всяком случае это будет полная эмуляция того, что ты делаешь вручную.
Название: Re: Не срабатывает SendCommand
Отправлено: Дмитрий от 31-07-2014, 09:28:47
Да, помогло. В итоге заработал этот код:
Код - C++ [Выбрать]
  1.           pApp->ActiveDocument->SendCommand(_bstr_t(acad_command));
  2.           keybd_event(VK_RETURN ,0x9C, 0, 0);

Спасибо за помощь)
Название: Re: Не срабатывает SendCommand
Отправлено: Дмитрий от 01-08-2014, 00:24:42
К сожалению радость была преждевременна. Срабатывает только если фокус перед вызовом keybd_event установить в окне автокада (сделать его активным). Вопрос актуален(((
Название: Re: Не срабатывает SendCommand
Отправлено: Александр Ривилис от 01-08-2014, 00:40:45
Цитата: Дмитрий от 01-08-2014, 00:24:42
Срабатывает только если фокус перед вызовом keybd_event установить в окне автокада (сделать его активным)
И в чем проблема? Я вообще не понял задачу. Это вообще ObjectARX приложение или внешний exe-файл, который через ActiveX/COM управляет AutoCAD?
Название: Re: Не срабатывает SendCommand
Отправлено: Александр Ривилис от 01-08-2014, 00:57:02
Код - C++ [Выбрать]
  1. ::SetFocus(adsw_acadMainWnd());
или
Код - C++ [Выбрать]
  1. ::SetFocus(adsw_acadDocWnd());
Это если ObjectARX приложение.
Название: Re: Не срабатывает SendCommand
Отправлено: Дмитрий от 01-08-2014, 08:19:57
Это внешнее приложение, запускающее автокад с arx-модулем, формирующим чертежи, которые должны быть сохранены в JPEG (предварительно в PDF, т.к. экспорт в JPEG напрямую из автокада даёт очень плохую картинку). Внешнее потому что запуск происходит по Web.
Название: Re: Не срабатывает SendCommand
Отправлено: Александр Ривилис от 01-08-2014, 19:07:33
Т.е. код, который ты показал - это часть arx-модуля? Если да, то зачем SendCommand, если можно спокойно использовать acedCommand/acedCommandS/acedCommandC, или даже вообще acplPublishExecute, как показано здесь: http://adn-cis.org/forum/index.php?topic=859.msg3633#msg3633
Кстати, предложенный мной метод с ::SetFocus помог?
Название: Re: Не срабатывает SendCommand
Отправлено: Дмитрий от 07-08-2014, 15:36:50
Нет. Тот код который я показывал выше - EXE-файл который управляет автокадом (а сам EXE вызывается Web-сервером). Сейчас добавил в arx-модуле команду с кодом
Код - C++ [Выбрать]
  1. void ToTop()
  2. {
  3.         ::SetFocus(adsw_acadMainWnd());
  4. }
и вызываю её в этом EXE перед экспортом
Код - C++ [Выбрать]
  1.           pApp->ActiveDocument->SendCommand(_bstr_t("ToTop \n"));
  2.           WAIT_ACAD;
  3.  
  4.           wchar_t acad_command[MAX_PATH];
  5.           wcscpy(acad_command , _T("-ЭКСПОРТ pdf Тек Нет "));
  6.  
  7.           wcsncat(acad_command , lpszFileName , wcslen(lpszFileName) - 3);
  8.           wcscat(acad_command ,_T("pdf "));
  9.  
  10.           pApp->ActiveDocument->SendCommand(_bstr_t(acad_command));
  11.           keybd_event(VK_RETURN ,0x9C, 0, 0);
Всё работает, но когда открыт рабочий стол учётной записи под которой запускается автокад, пока наверно будет так работать.
Название: Re: Не срабатывает SendCommand
Отправлено: Александр Ривилис от 24-08-2014, 02:00:34
Только сегодня обратил внимание, что Вы ответили. Видимо не пришло оповещение.
Вообще-то всё можно сделать на порядок проще. Через SendCommand вы запускаете ToTop. Так всуньте в ToTop запуск -EXPORT, только не через SendCommand, а через acedCommand. И вообще всё логику работы засуньте в arx-файл.
Название: Re: Не срабатывает SendCommand
Отправлено: Дмитрий от 24-08-2014, 22:58:34
Попробовал в ToTop вставить
Код: [Выделить]
acedCommand(RTSTR , _T("-ЭКСПОРТ") , RTSTR , _T("pdf") ,RTSTR ,  _T("Тек") ,RTSTR ,  _T("Нет") , RTSTR , _T("C:\\Obrab\\temp.pdf"), 0);Через раз автокад падает с ошибкой. Точнее будет: иногда срабатывает.
Пробовал так же:
Код: [Выделить]
acDocManager->sendStringToExecute(acDocManager->curDocument(), _T("-ЭКСПОРТ pdf Тек Нет C:\\Obrab\\temp.pdf\n"))- эффект тот же.
Название: Re: Не срабатывает SendCommand
Отправлено: Александр Ривилис от 25-08-2014, 01:12:21
Мягко говоря странно.
Название: Re: Не срабатывает SendCommand
Отправлено: Дмитрий от 25-08-2014, 09:54:24
Что в сухом остатке: Это вызов команды из внешней exe-программы

Код: [Выделить]
  /*Теперь будем сохранять в PDF а потом в JPEG(сразу в JPEG сохраняет очень плохо)*/
  pApp->Documents->Open(_bstr_t(lpszFileName));
  WAIT_ACAD;

  fputws (_T("Opening document "),errFile);
  fputws (lpszFileName,errFile);

  MessageBox(NULL , _T("1") , _T("DWGtoJpeg") , MB_OK);

  pApp->ActiveDocument->SendCommand(_bstr_t("ToTop \n"));
  WAIT_ACAD;
  MessageBox(NULL , _T("2") , _T("DWGtoJpeg") , MB_OK);

  pApp->ActiveDocument->Close();
  WAIT_ACAD;
          .
          .
          .
а это сама команда:
Код: [Выделить]
void ToTop()
{
        acedCommand(RTSTR , _T("-ЭКСПОРТ") , RTSTR , _T("pdf") ,RTSTR ,  _T("Тек") ,RTSTR ,  _T("Нет") , RTSTR , _T("C:\\Obrab\\temp.pdf"), 0);
}
Работает через раз (иногда один файл конвертируется, иногда 3, иногда ни одного).
Название: Re: Не срабатывает SendCommand
Отправлено: Александр Ривилис от 25-08-2014, 15:29:05
Ну как минимум здесь лишний пробел:
Код - C++ [Выбрать]
  1. pApp->ActiveDocument->SendCommand(_bstr_t("ToTop \n"));
Поэтому вообще работать не должно.
Название: Re: Не срабатывает SendCommand
Отправлено: Дмитрий от 25-08-2014, 15:49:06
Исправил, пробел убрал. С ошибкой автокад падать перестал, но опять всё вернулось к тому с чего всё началось: появляется сообщение о предупреждении, но самого предупреждения нет(((
Название: Re: Не срабатывает SendCommand
Отправлено: Александр Ривилис от 25-08-2014, 15:58:48
Предлагаю вернутся к тому, что я предлагал раньше, а именно использовать вместо команды -EXPORT функцию acplPublishExecute:
http://adn-cis.org/forum/index.php?topic=859.msg3633#msg3633
Название: Re: Не срабатывает SendCommand
Отправлено: Александр Ривилис от 25-08-2014, 16:00:23
Кстати, а попробуй у себя в arx-файле добавить в On_kInitAppMsg вызов:
Код - C++ [Выбрать]
  1. acedArxLoad(_T("AcPublish.arx"));