Не срабатывает SendCommand

[Дмитрий]

Здравствуйте!
Формирую команду на экспорт в ПДФ. Если ставлю "\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.  

   

[Александр Ривилис]

1) Какое предупреждение? Нужен скрин чтобы понять о чем идет речь.
2) Попробуй заменить "\n" на " " (пробел)
3) Команды и опции используй английские с подчеркиванием
4) Имя файла должно быть в двойных кавычках и замени "\\" на "/"
5) Меняй системные переменные не при помощи pApp->ActiveDocument->SendCommand, а при помощи pApp->ActiveDocument->SetVariable

[Дмитрий]

Это когда я не добавляю в конце \n, устанавливаю курсор в командную строку и нажимаю Enter, при этом выходные файлы формируются.


А в этом случае добавляю \n, команда проходит автоматически, но появляется это предупреждение и результирующего файла нет.


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

Переменные выставляются, проверял, имя файла тоже верно задано, т.к. в первом случае всё срабатывает, а имя там тоже самое.

[Дмитрий]

Вот нашёл нечто подобное на 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

[Александр Ривилис]

Я так понимаю мне нужно сделать:
Код: [Выделить]

SendKeys "{ENTER}", True

Попробуй. Во всяком случае это будет полная эмуляция того, что ты делаешь вручную.

[Дмитрий]

Да, помогло. В итоге заработал этот код:

Код - C++ [Выбрать]

1.           pApp->ActiveDocument->SendCommand(_bstr_t(acad_command));
2.           keybd_event(VK_RETURN ,0x9C, 0, 0);

Спасибо за помощь)

[Дмитрий]

К сожалению радость была преждевременна. Срабатывает только если фокус перед вызовом keybd_event установить в окне автокада (сделать его активным). Вопрос актуален(((

[Александр Ривилис]

Срабатывает только если фокус перед вызовом keybd_event установить в окне автокада (сделать его активным)

И в чем проблема? Я вообще не понял задачу. Это вообще ObjectARX приложение или внешний exe-файл, который через ActiveX/COM управляет AutoCAD?

[Александр Ривилис]

Код - C++ [Выбрать]

1. ::SetFocus(adsw_acadMainWnd());

или

Код - C++ [Выбрать]

1. ::SetFocus(adsw_acadDocWnd());

Это если ObjectARX приложение.

[Дмитрий]

Это внешнее приложение, запускающее автокад с arx-модулем, формирующим чертежи, которые должны быть сохранены в JPEG (предварительно в PDF, т.к. экспорт в JPEG напрямую из автокада даёт очень плохую картинку). Внешнее потому что запуск происходит по Web.

[Александр Ривилис]

Т.е. код, который ты показал - это часть arx-модуля? Если да, то зачем SendCommand, если можно спокойно использовать acedCommand/acedCommandS/acedCommandC, или даже вообще acplPublishExecute, как показано здесь: http://adn-cis.org/forum/index.php?topic=859.msg3633#msg3633
Кстати, предложенный мной метод с ::SetFocus помог?

[Дмитрий]

Нет. Тот код который я показывал выше - 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);

Всё работает, но когда открыт рабочий стол учётной записи под которой запускается автокад, пока наверно будет так работать.

[Александр Ривилис]

Только сегодня обратил внимание, что Вы ответили. Видимо не пришло оповещение.
Вообще-то всё можно сделать на порядок проще. Через SendCommand вы запускаете ToTop. Так всуньте в ToTop запуск -EXPORT, только не через SendCommand, а через acedCommand. И вообще всё логику работы засуньте в arx-файл.

[Дмитрий]

Попробовал в 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"))- эффект тот же.

[Александр Ривилис]

Мягко говоря странно.

[Дмитрий]

Что в сухом остатке: Это вызов команды из внешней 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, иногда ни одного).

[Александр Ривилис]

Ну как минимум здесь лишний пробел:

Код - C++ [Выбрать]

1. pApp->ActiveDocument->SendCommand(_bstr_t("ToTop \n"));

Поэтому вообще работать не должно.

[Дмитрий]

Исправил, пробел убрал. С ошибкой автокад падать перестал, но опять всё вернулось к тому с чего всё началось: появляется сообщение о предупреждении, но самого предупреждения нет(((

[Александр Ривилис]

Предлагаю вернутся к тому, что я предлагал раньше, а именно использовать вместо команды -EXPORT функцию acplPublishExecute:
http://adn-cis.org/forum/index.php?topic=859.msg3633#msg3633

[Александр Ривилис]

Кстати, а попробуй у себя в arx-файле добавить в On_kInitAppMsg вызов:

Код - C++ [Выбрать]

1. acedArxLoad(_T("AcPublish.arx"));