[nikе]

Сделал я COM сервер на C#.
Проверил его работу через VB script. Метод запустился успешно:
Dim Orbit
Set Orbit = CreateObject("ComNet.TestComponent")
Orbit.About

Потом в Bricscad 10 попробовал:
(setq ObjComNet (vlax-create-object "ComNet.TestComponent"))
(vlax-invoke-method ObjComNet 'About) - тоже на ура все работало.

А вот почему-то в AutoCAD (ну и в Gstarcad) vla-объект образуется, но приложение не видит его методов и свойств. Сталкивался кто с таким нежеланием честно работать с NET COM сервером?????? Есть ли решение этой проблемы?

[gomer]

Не знаю как сейчас... Но раньше брикскад категорически отказывался регистрировать ком-библиотеки... поэтому я и забил на все это дело однажды...

[nikе]

Ну мне тоже нравится оформлять программы как внешние exe приложения, запуская их из Bricscad функцией типа dos_exewait. В качестве аргументов внешнему приложению можно передавать параметры командной строки, но чего-то у меня не на всех компьютерах с параметрами командной строки запускались внешние приложения, обратно результат работы можно передать через COM модель, или файл.
Но все же работа с COM сервером выглядит естественнее, тем более Bricscad поддерживает vlax-create-object с девятой версии.

[gomer]

Сообщение от nikе у мне тоже нравится оформлять программы как внешние exe приложения, запуская их из Bricscad функцией типа dos_exewait

А разве на классик работает doslib?

[nikе]

На классик такое работает:
; intWindowStyle — целое число — вид появляющегося окна. Допустимые значения:
; 0 — Скрывает окно и активизирует другое окно;
; 1 — Активизирует и отображает окно. Если окно свернуто или развернуто,
; система восстанавливает его в исходных размерах и позиции. Этот
; флаг нужно указывать, когда окно отображается вперые;
; 2 — Активизирует окно и отображает его в свернутом виде;
; 3 — Активизирует окно и отображает его на весь экран;
; 4 — Отображает окно в его последних размерах и позиции. Активное окно
; остается активным;
; 5 — Активизирует окно и отображает его в текущих размерах и позиции;
; 6 — Свертывает указанное окно и активизирует следующее окно в Z-порядке;
; 7 — Отображает окно в свернутом виде. Активное окно остается активным;
; 8 — Отображает окно в его текущем состоянии. Активное окно остается активным;
; 9 — Активизирует и отображает окно. Если окно свернуто или развернуто,
; система восстанавливает его в исходных размерах и позиции. Этот
; флаг нужно указывать при восстановлении свернутого окна;
; 10 — Наследует состояние окна от программы, запустившей приложение

(defun run_and_wait (strCommand / WScript_obj)
; strCommand — строка с командой, которую надо выполнить, включая аргументы;
; например: "notepad.exe \"c:\\My Folder\\tmp.txt\""
; Возвращает либо 0, либо <%catch-all-apply-error%>, либо nil.
(vl-load-com)
(if (setq WScript_obj (vlax-get-or-create-object "WScript.Shell"))
(vl-catch-all-apply 'vlax-invoke-method (list WScript_obj "Run" strCommand 1 :vlax-true))
);if
);defun

;(run_and_wait "notepad.exe \"c:\\1.txt\"")