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

Re: Проблема с GetString

> Alexys
Идея неплохая, но не верна. :)
Специально написал внешнее приложение (exe-файл) на C++:

void UseObjectDBX()
{
  HRESULT hr = NOERROR;
  CLSID   clsid;
  AutoCAD::IAcadApplicationPtr    m_iApp;
  AutoCAD::IAcadDocumentPtr       m_iDoc;
  AutoCAD::IAcadUtilityPtr        m_iUtil;
  // Поиск регистрации AutoCAD 2006
  hr = ::CLSIDFromProgID(L"AutoCAD.Application.16.2", &clsid);
  AfxMessageBox("1");
  if (SUCCEEDED(hr))
  {
    bool flag_quit = true;
    if(m_iApp.GetActiveObject(clsid) == S_OK) {
      m_iDoc = m_iApp->ActiveDocument;
      m_iUtil = m_iDoc->Utility;
      _bstr_t str = m_iUtil->GetString(0,_bstr_t("\nВведите строку: "));
      m_iUtil->Prompt(_bstr_t("\nВведена строка: ")+str);
    }
  }
  else
  {
    AfxMessageBox("AutoCAD.Application.16.2 is not registered!");
  }
}

Работает! :)

  • Alexys
  • Восстановленный участник
  • На форуме с 11 августа 2006г.
  • Сообщений: 63
  • Спасибо: 0

Re: Проблема с GetString

Тогда наверное все дело с этим \n.
Что такое \n , vb.. Александр, распишите подробнее.
Я написал в getstring('\nВвведите число')
он у меня \n как текст интерпретирует

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

Re: Проблема с GetString

> Alexys
В delphi? Наверное: #13+'введите число:' (с учетом того что в своей жизни не написал ни одной строки на delphi - могу ошибаться).

  • Alexys
  • Восстановленный участник
  • На форуме с 11 августа 2006г.
  • Сообщений: 63
  • Спасибо: 0

Re: Проблема с GetString

Я это уже сам догадался проверить согласно соответствующиму ответу Александра на форуме
нет не катит,
но раскочегарка идет согласно моему message выше

> Alexys