Информационный портал для профессионалов в области САПР
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форумы CADUser → Программирование → ObjectARX → Выполнение методов ARX COM-сервера из VB
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Привет всем!
Создал модуль ARX как сервер COM.
Все работает, методы отрабатывают, но только если их вызывать из автокадовского VBA.
Из обычного VB при вызове метода выдается ошибка Automation Error.
Есть ли возможность заставить выполняться ARX COM-сервер из обычного VB?
Спасибо.
По-моему, arx-приложения могут вызываться и выполняться только внутри AutoCAD'a. Если надо использовать в другом месте, наверное, придется делать обычный СОМ.
> Леонид
Можно попробовать "обычный VB" скомпилировать в .dll-файл и подсоединить к VBA-коду... Но зачем такие сложности?
> LeonidSN
VBA отпадает, так как глючит, к сожалению.
Но зачем такие сложности?
Надо найти способ передавать данные и управлять ARX-приложением из ехе-шника, сделанного в VB
Тогда, думаю, надо получать указатель на объект AutoCADa, его документ и выполнять arx в контексте документа.
> kpblc
Похоже придется довольствоваться передачей функций, что-то вроде:
acap.ActiveDocument.SendCommand "(c:func args)"
Даже получается несколько проще, чем с COM возиться :)
> Леонид
А arx-файл (который COM-сервер) загружен в AutoCAD?
> Александр Ривилис
Конечно.
Если не загружен, по идее, .arx файл должен работать как обычная комовская .dll... хотя не пробовал проверить
Продолжение здесь :)
https://www.caduser.ru/forum/topic29586.html
Из обычного VB при вызове метода выдается ошибка Automation Error.
Какая именно ошибка? И как идет обращение к COM-серверу? Кусочек кода.
Проект ARX с поддержкой COM создаю в визарде, добавляю класс AcSpy, добавляю в него метод
STDMETHODIMP CAcSpy::doIt(BSTR strName)
{
char buff [128];
WideCharToMultiByte (CP_ACP, 0, strName, -1, buff, 128, 0, 0);
MessageBox (0, buff, "", MB_OK);
return S_OK;
}Создаю проект в VB 6.0, подключаю в референсах ARX, код следующий:
Dim perem As New AcSpy perem.doIt "Simple message"
При проходе второй строчки выдает сообщение
Run-time error '-2147024770 (807007e)':
Automation error
Когда делаю тоже самое в акадовском VBA,
все отрабатывает без проблем.
> Леонид
Моя интуиция подсказывает, что нужно использовать acad.GetInterfaceObject(...) вместо new AcSpy
Работает!!!
Dim a As AcSpy
Dim acad As AcadApplication
Set acad = GetObject(, "AutoCAD.Application")
Set a = acad.GetInterfaceObject("AcadSpy.AcSpy")
asd.doIt "simple message"Александр, просто нет слов...
Спасибо! :)
А так интересно работает?
Dim a As Object
Set a = CreateObject("AcadSpy.AcSpy")
asd.doIt "simple message"> BP
Нет, та же ошибка.
По видимому, на этот объект надо выходить только через AcadApplication.
> Леонид
Очень интересно. Спасибо, будем знать.
Ошибочка..
не asd конечно :)
a.doIt "simple message"
> Леонид
> Леонид
:) Значит интуиция не подвела. А то что объект нужно "взять" через AcadApplication - это очевидно. Иначе он создастся "внутри" VB-приложения, а не внутри AutoCAD.
> Леонид
Извиняюсь за любопытство
можете прислать работающий кусочек для примера как это делается?
Буду весьма благодарен
Кстати, удалось даже комовские события заставить работать вместе с реакторами. То есть, получается полноценное управление с обратной связью.
> ROMA
Скоро кину ссылку для скачивания этого проекта, скорее всего в понедельник вечером.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форумы CADUser → Программирование → ObjectARX → Выполнение методов ARX COM-сервера из VB
Форум работает на PunBB, при поддержке Informer Technologies, Inc
