День добрый.
Подскажите, пожалуйста, что делать, если GetObject не видит уже запущенный процесс и постоянно запускает новую копию программы? Двойной щелчок в проводнике ведёт себя так же, несмотря на настроенную ассоциацию dwg. SDI=0.
Может Вам прописать версию NanoCAD конкретно:
On Error Resume Next
Set acadApp = GetObject(, "nanoCAD.Application.25.0")
On Error GoTo 0
День добрый.
Подскажите, пожалуйста, что делать, если GetObject не видит уже запущенный процесс и постоянно запускает новую копию программы? Двойной щелчок в проводнике ведёт себя так же, несмотря на настроенную ассоциацию dwg. SDI=0.
запусти это скрипт при ОДНОМ запущенном нанокаде
что напишет?
register-nc.7z (945 байтов)
Из Наны попробовал - ничего не произошло. Запустил из экселя, заменив Echo на MsgBox
Может Вам прописать версию NanoCAD конкретно:
On Error Resume NextSet acadApp = GetObject(, "nanoCAD.Application.25.0")On Error GoTo 0
Не помогло. При первом запуске цепляет запущенный экземпляр, при последующих - открывает новые 
А так (правда это у меня в Excel):
On Error Resume Next
'получить запущенный нанокад
Set app = GetObject(, “nanoCAD.Application.25.0”)
'если нет ни одного запущенного приложения Нанокад, получаем ошибку
If Err.Number > 0 Then
Err.Clear
'создаем новый экземпляр нанокад
Set app = CreateObject(“nanoCAD.Application.25.0”)
'проверяем, что экземпляр нанокад создан
If Err.Number > 0 Then
Err.Clear
'если экземпляр нанокад не был создан, сообщить и выход
MsgBox (“Экземпляр приложения ‘NanoCAD’ не был создан.”)
Exit Sub
End If
End If
Из Наны попробовал - ничего не произошло. Запустил из экселя, заменив Echo на MsgBox
т.е. цепляется к нано?
а в следующий раз?
Разобрался.
У меня была строка:
Set app = GetObject(“”, “nanoCAD.Application.25.0”)
Убрал первый аргумент (пустые кавычки) и всё заработало как надо. А строку скопировал отсюда:
https://habr.com/ru/articles/238867/
Коллеги, благодарю за отзывчивость!
Разобрался.
У меня была строка:
Set app = GetObject(“”, “nanoCAD.Application.25.0”)Убрал первый аргумент (пустые кавычки) и всё заработало как надо. А строку скопировал отсюда:
https://habr.com/ru/articles/238867/Коллеги, благодарю за отзывчивость!
в след раз к вопросу код прикладывай
так то тебе несколько раз правильный коннект написали((
в след раз к вопросу код прикладывай
так то тебе несколько раз правильный коннект написали((
Согласен, исправлюсь. Странно, что у Руденко код с кавычками 
Согласен, исправлюсь. Странно, что у Руденко код с кавычками
Емнип апи менялось