[trushev]

Суть вопроса: как в AutoCad 2016 обойти отсутствие в путях поиска по умолчанию текущего каталога?

Наименование темы схоже с закрытой: Адаптация lisp-приложения под AutoCAD 2010 от 18.08.2010.
Ничего иного не нашел.

Есть около сотни lisp программ (расчетных и параметрического вычерчивания) с одинаковыми именами файлов поддержки и с системой пуска изначально примененной под R12:
"...\acad.exe" "...\*.dwg" /b "...\*.scr" /nologo, где "...\acad.exe" - запуск AutoCad с загрузкой "...\*.dwg" - файла прототипа и /b "...\*.scr" -пакета, запускающего lisp; /nologo - без заставки AutoCad.

Такой пуск позволяет работать с файлом, где уже установлена значительная часть настроек (системные переменные, слои, шрифты, типы линий, необходимые блоки и тп). Каталог с файлом прототипа является текущим, и при размещении в нем вспомогательных файлов снимался вопрос поиска файлов поддержки для версий от R12 по AutoCad 2015.
Пример программы: http://forum.dwg.ru/showthread.php?t=125737

Возможные пути решения проблемы:
1. Указать в путях поиска файлов поддержки каталог с программой.
Приемлемо только для одной программы. Имена файлов поддержки разных программ совпадают и, при указании нескольких путей, нет ни какой гарантии что загрузятся нужные файлы.

2. В программах прописать полные имена файлов поддержки.
Существенный объем переработки.
Каждая программа будет жестко привязана к своему каталогу.

3. Указать в путях поиска файлов поддержки каталоги с программами, файлам поддержки дать уникальные имена.
Существенный объем переработки.

4. Как еще можно решить проблему?

[Кулик Алексей aka kpblc]

А кто-то мешает создать свою и внести ее в общий перечень?

[trushev]

Вариант уже рассматривался:

Сообщение от trushev Возможные пути решения проблемы: 1. Указать в путях поиска файлов поддержки каталог с программой. Приемлемо только для одной программы. Имена файлов поддержки разных программ совпадают и, при указании нескольких путей, нет ни какой гарантии что загрузятся нужные файлы.

или я чего-то не догоняю.

[ShaggyDoc]

Сообщение от Кулик Алексей aka kpblc А кто-то мешает создать свою и внести ее в общий перечень?

Причем эта "своя" должна быть не где попало, и не в корне диска, а там, где должна быть в Windows.

Для пользовательских настроек программ это {localappdata}\имя программы или {userappdata}\имя программы. Вот там можно хранить что угодно - доступ пользователю есть всегда. Но значения {localappdata} и {userappdata} должны определяться программно - это "пространство имен" Windows. В каждой версии Windows они могут быть свои.

Вот тогда программа будет работать везде и всегда.

[Кулик Алексей aka kpblc]

trushev, для твоего "примера" программы лично я вижу только один вариант развития. Полная переработка.

[Alan]

Сообщение от Кулик Алексей aka kpblc для твоего "примера" программы лично я вижу только один вариант развития. Полная переработка.

Ну зачем ты его так напугал! Приложенный топикстартёром "фрагмент оформленный в самостоятельную программу"
я бы причесал в прожку за пару часов.

Сообщение от ShaggyDoc Вот тогда программа будет работать везде и всегда.

Но я в отпуск хочу.

[trushev]

Сообщение от Alan Но я в отпуск хочу

Alan, я не против. Возьмем таймаут на некоторое время.
Однако без костыля предложенного VVA в #9, очень сомневаюсь что будет работать на кнопке. Надо чем-то жертвовать.
На следующей неделе обещают поставить AutoCad 2016, можно будет поэксперементировать.

[Alan]

Сообщение от trushev Однако без костыля предложенного VVA в #9, очень сомневаюсь что будет работать на кнопке.

Совершенно спокойно будет.
А вот без теории, изложенной в п.23 уважаемым ShaggyDoc, работать не желательно.

[ShaggyDoc]

Сообщение от trushev Однако без костыля предложенного VVA в #9, очень сомневаюсь что будет работать на кнопке. Надо чем-то жертвовать.

Это не "костыль", а элементарная вежливость - твоя программа не должна никак влиять на другие и на "голый" AutoCAD. Однако, прежде чем запустить этот "костыль", его надо загрузить. Т.е. AutoCAD должен заранее знать, откуда загружать.

Вот для решения подобных вопросов и придуманы профили. Имеете профиль для своей программы, в свойствах профиля записываете всё, что требуется (в том числе пути поиска) для своей программы. И делаете ярлык для запуска AutoCAD с именем профиля в командной строке. Запись профиля в реестр можно сделать из reg-файла, редактируя его вручную для разных версий Windows. Это можно сделать и без программирования.

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

[trushev]

Сообщение от ShaggyDoc Это не "костыль", а элементарная вежливость - твоя программа не должна никак влиять на другие и на "голый" AutoCAD. Однако, прежде чем запустить этот "костыль", его надо загрузить. Т.е. AutoCAD должен заранее знать, откуда загружать.

Прошу прощения за неудачное слово. Имелось ввиду дополнение программы функциями формирующими и удаляющими пути поиска вспомогательных файлов.

Сообщение от ShaggyDoc Вот для решения подобных вопросов и придуманы профили. Имеете профиль для своей программы, в свойствах профиля записываете всё, что требуется (в том числе пути поиска) для своей программы. И делаете ярлык для запуска AutoCAD с именем профиля в командной строке. Запись профиля в реестр можно сделать из reg-файла, редактируя его вручную для разных версий Windows. Это можно сделать и без программирования.

Спасибо за разжевование пояснения. Теперь понятен путь решения проблемы.

Никогда не работал с кнопками. Несложно скомпоновать функции под кнопку, перенеся вспомогательные в тело основной. При запуске с кнопки будут ли действовать пути поиска из профиля?

[ShaggyDoc]

Сообщение от trushev При запуске с кнопки будут ли действовать пути поиска из профиля?

Неважно каким способом запущена лисп-функция. Если в текущем профиле есть требуемые пути - они и будут использоваться.
Пути поиска записаны в реестре в ветке, наподобие:
HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R17.1\ACAD-6001:409\Profiles\ruCAD\General

В ключе ACAD в виде строки с разделителем ; и перечислены все пути, например:

E:\ruCAD\Install\LocalAppData\ru\CAD-2008\AppData\AutoCAD\R17.1\;E:\ruCAD\Install\LocalAppData\ru\CAD-2008\AppData\AutoCAD\;C:\Acad\AutoCAD 2008\support;C:\Acad\AutoCAD 2008\fonts;C:\Acad\AutoCAD 2008\help;C:\Acad\AutoCAD 2008\Express;C:\Acad\AutoCAD 2008\support\color;

Свой путь надо подставлять в начало, тогда он и будет обрабатываться в первую очередь. Проще всего из REGEDIT экспортировать существующие настройки в reg-файл, а потом откорректировать, как надо. Например

Код:

[Выделить все]

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R17.1\ACAD-6001:409\Profiles\ruCAD\General]
"ACAD"="E:\\ruCAD\\Install\\LocalAppData\\ru\\CAD-2008\\AppData\\AutoCAD\\R17.1\\;E:\\ruCAD\\Install\\LocalAppData\\ru\\CAD-2008\\AppData\\AutoCAD\\;C:\\Acad\\AutoCAD 2008\\support;C:\\Acad\\AutoCAD 2008\\fonts;C:\\Acad\\AutoCAD 2008\\help;C:\\Acad\\AutoCAD 2008\\Express;C:\\Acad\\AutoCAD 2008\\support\\color;"

Выделено жирным "мои пути". В других профилях их нет и программы и настройки недоступны Автокаду.
"Выполнив" этот файл получите новые настройки, причем изменится только переменная ACAD. Причем это будет сделано только для текущего пользователя и не надо спрашивать администратора, т.к. ветка HKEY_CURRENT_USER всегда доступна для записи текущему пользователю Windows.

А "текущий каталог" - очень скользкое понятие в Windows, это всем не обязательно каталог чертежа. Потому и вопросы были сразу.

[trushev]

Offtop: Ненавижу пятницы. Всегда по пятницам начинается аврал.

[trushev]

Ура! Нашел. Спасибо gomer, http://forum.dwg.ru/showthread.php?t=128781

(strcat (getvar 'dwgprefix) "имя файла")

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

Сообщение от trushev Повторюсь с главным вопросом: как в AutoCad 2016 обойти отсутствие в путях поиска по умолчанию текущего каталога?

https://knowledge.autodesk.com/suppo...F9430-htm.html

[trushev]

Александр Наумович, весьма польщен Вашим вниманием.
Подвожу итог способов решения проблемы с наименьшими затратами в порядке поступления:
1. В пакете загружающем lisp заменить (load "имя файла") на (load (strcat (getvar 'dwgprefix) "имя файла"))
Не понял почему, но после этого находятся и DCL и вспомогательные текстовые файлы.
2. В строку запуска программы с рабочего стола добавить ключ /s с путем к файлам поддержки Заменяет ранее установленные пути.
3. От Александр Ривилис, установить LEGACYCODESEARCH = 1.

[gomer]

Сообщение от trushev С подачи gomer, в пакете загружающем lisp заменить (load "имя файла") на (load (strcat (getvar 'dwgprefix) "имя файла"))

только не нужно меня тут приплетать... и таким вообще не пользуюсь и никому не рекомендую

[trushev]

Сообщение от ShaggyDoc И совсем изящно будет если сделать некую программу-стартер, которая будет и профиль создавать, и файл автозагрузки генерировать и удалять все это после выхода.

В предложенном примере аналогичное решение инженерным методом. Никто не мешает скопировать файл пуск.lnk на рабочий стол, нарядить его в любую пиктограмму и обозвать как понравиться.
Командная строка файла пуск.lnk:
"C:\Program Files\Autodesk\AutoCAD 2014\acad.exe" - запуск автокада
"C:\LSP_WIN\VODOPROPUSK\vd.dwg" - загрузка чертежа прототипа
/b "c:\lsp_win\VODOPROPUSK\vd" - активация пакета
Пакет (load "vd") загружает лисп.
По завершению работы автокад закрывается очищая память от себя и прочего хлама.

А вот с кнопкой совсем запутался.
Макрос на кнопку: ^C^C(if (not c:vp_gid) (load ".../appdata/local/vd.lsp"));vp_gid;

Сообщение от Alan Совершенно спокойно будет.

Не получается добиться корректной работы. При запуске с кнопки не находит файлы readme.txt (клавиша "Инструкция") и spravka.txt (справочной информации)

[trushev]

Сообщение от trushev Не получается добиться корректной работы. При запуске с кнопки не находит файлы readme.txt (клавиша "Инструкция") и spravka.txt (справочной информации)

Нашел решение: При открытии файла имя файла должно быть с функцией findfile.