[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. Как еще можно решить проблему?

[Alan]

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

Так и хочется отправить в тему "Поиск исполнителей"
По ссылке сходил, глянул.
Хорошо gomer сказал

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

ИМХО. Тут надо просто превратить набор ЛИСП"ов в удобоваримую программку.
P.S. Сам взяться не могу, отбываю в отпуск.

[trushev]

Сообщение от Alan Сам взяться

Не благодарный это труд. Не в этом вопрос. Фирма переходит на AutoCad 2016 и возникают проблемы с многолетними наработками.
Повторюсь с главным вопросом: как в AutoCad 2016 обойти отсутствие в путях поиска по умолчанию текущего каталога?
Впрочем на мой век хватит. На горизонте завершение трудовой деятельности, а больше эти наработки никому не нужны.

[Do$]

Прочитал, но до конца так и не понял. Что значит текущий каталог? Папка, в которой находится открываемый чертеж? Что нужно загружать? Сперва я подумал, что речь идет о лиспах, но потом увидел, что имеются в виду какие-то "файлы поддержки". Что такое "файл прототипа"?
В общем, нужны пояснения. Видео, картинки или очень подробное описание в наиболее общепринятой терминологии.

[Alan]

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

IMHO. Нельзя
А что мешает добавить необходимый каталог в пути поиска и сохранить в профиле? Профиль - ключевое слово!
Всё равно используется "уникальный", т.е. самодельный ярлык.

Что есть в твоём/вашем понимании текущий каталог?
Каталог с открытым чертежом/файлом Автокада или папка/каталог окна свойств ярлыка программы?
Смотрим ХЕЛП

Путь поиска библиотек Поиск вспомогательных файлов осуществляется в соответствии с установленным путем поиска библиотек, т.е. в следующем порядке: Текущая папка. Как правило, она задается в поле “Рабочий каталог” окна свойств ярлыка программы. Папка, в которой находится текущий файл чертежа. Папки, перечисленные при задании пути доступа в команде НАСТРОЙКА. (См. раздел Укажите "Пути поиска" и "Местоположения файлов" в Руководстве пользователя.) Папка, в которой находятся программные файлы AutoCAD. В зависимости от установок среды, имена двух или более папок из приведенной последовательности могут совпадать. Если файл не находится ни в одной из папок, просматриваемых при поиске, необходимо задавать его полное имя (включая путь), чтобы AutoCAD мог найти его. ................. Структура папок AutoCAD использует иерархическую структуру папок. Рекомендуется хранить дополнительные файлы (например, приложения на языке AutoLISP и файлы настройки) отдельно от программных и вспомогательных файлов AutoCAD. Это упрощает разрешение возможных конфликтов и дает возможность обновлять версии приложений, не воздействуя на другие приложения.

Чтобы там не говорили в ХЕЛПЕ, главное - Путь к тому что ты ищешь д.б. описан!
Ну и запуск программы решается более простым способом, а не vd.scr
Каким образом?
Это следующая проблема, обычно решаемая при переводе ЛИСП-текстов в ЛИСП-программку.
Описано в литературе и обсуждалось неоднократно.
ИМХО Не правильно открывать файл "C:\LSP_WIN\GIDROLOG.IYA\VODOPROPUSK\vd.dwg", начинать работу надо с чертежа-прототипа,
например, так в комстроке запуска /t "C:\LSP_WIN\GIDROLOG.IYA\VODOPROPUSK\vd.dwT"

[Владимир_М]

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

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

Сообщение от trushev На горизонте завершение трудовой деятельности, а больше эти наработки никому не нужны

А вот торопиться не надо на счет "не нужны"...

Если Вам они были нужны, то найдется и другие, кому они необходимы, Вы ж не единственный в стране специалист в данной области!
И вообще, мне кажется, самое плодотворное время будет как раз на пенсии!!! Это сейчас ни на что не хватает времени!

Извините, пока собирался с мыслями, Alan уже все прописал более развернуто

[Profan]

Возможно, "текущий каталог" - это рабочая папка в свойствах ярлыка. Например, для AutoCAD 2014 это
"C:\Program Files\Autodesk\AutoCAD 2014\UserDataCache\"

[Psyakrev]

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

У вас уже и так есть жесткая привязка к конкретной папки в ярлыке, так что серьезной переработки не избежать.

Как вариант можно прописать в пути поддержки "C:\\LSP_WIN", в scr и lsp изменить во все load добавить относительный путь до нужного файла.

Код:

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

 
(setq dlg (load_dialog "GIDROLOG.IYA\\VODOPROPUSK\\vd.dcl"))

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

[VVA]

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

программно добавлять к supportpaths каталог с программой при старте и удалять по завершении Add & Remove Support File Search Paths

[trushev]

Спасибо всем за проявленное внимание и терпение.
Offtop: Моя терминология оставляет желать лучшего. Программировать начал не от хорошей жизни в лихие 90-е, когда квалифицированного программиста было практически не сыскать, а молодежь переквалифицировалась в челноков.

Сообщение от Do$ Что значит текущий каталог?

Папка, в которой находится текущий файл чертежа. В ранних версиях AutoCad'а "Рабочий каталог" не задавался.
Прототип - устаревший термин, заменен на шаблон.

Сообщение от Alan ИМХО Не правильно открывать файл "C:\LSP_WIN\GIDROLOG.IYA\VODOPROPUSK\vd.dwg", начинать работу надо с чертежа-прототипа, например, так в комстроке запуска /t "C:\LSP_WIN\GIDROLOG.IYA\VODOPROPUSK\vd.dwT"

Пока петух не клевал острой потребности в замене не было. Но спасибо, совсем упустил это из виду.

Сообщение от VVA программно добавлять к supportpaths каталог с программой при старте и удалять по завершении

Вроде то что нужно. Надо попробовать. Кажется нечто подобное обсуждалось на форуме, не могу найти тему.

Offtop: PS Alan, Хорошего отдыха!

[Alan]

Сообщение от trushev Спасибо всем за проявленное внимание и терпение.

Пжл...
Один вопрос вдогонку.
Данная программа нужна для ЕДИНИЧНОГО расчёта в каком-то разовом чертеже или может применяться в разных чертежах?
Тогда меняется подход к запуску и завершению её работы.
Зачем например по кнопке ВЫХОД закрывать Автокад?

[trushev]

Сообщение от Alan Данная программа нужна для ЕДИНИЧНОГО расчёта в каком-то разовом чертеже или может применяться в разных чертежах?

Это фрагмент из программы параметрического вычерчивания профиля водоотвода. Предназначен для обоснования в записке глубины элементов водоотвода и примененного типа укрепления.
Результат работы программы вычерчивания во вложении.

[Alan]

Сообщение от trushev Это фрагмент из программы параметрического вычерчивания профиля водоотвода.

Зачем ТОГДА по кнопке ВЫХОД закрывать Автокад?
ИМХО. Самое правильное и простое решение всё-таки создать профиль с путями и запускать Автокад с этим профилем.
Вот пример инсталляции и запуска известно программы, в адаптации которой я тоже принимал посильное участие

Программа ПРОКАТ черчения сортамента Двутавры, швеллеры, уголки с выбором профиля из диалогового окна. Работает под Автокадом 2000-2006, английская или русская версии. procat.lsp - для плоского чертежа prcat3d.lsp - для объёмного изображения профилей Автор: Кондрат Василий. (С)2000г. ------------------------------------------------------------------------------------ Инсталяция (версия 2007г.): Папка Prokat с файлами копируется в любую папку, описанную в "Путях доступа к вспомогательным файлам" Автокада, например Support Автокада. Тогда это будет выглядеть так: "d:\Program Files\AutoCAD 2005\Support\prokat\" P.S. Папка должна быть именно под таким именем. Желающим адаптировать ПРОКАТ под себя рекомендуется посмотреть исходные тексты (файлы: procat.lsp prkt3d.lsp) ------------------------------------------------------------------------------------ Загрузка и пуск программы В Автокаде необходимо выполнить следующие действия: 1. Сервис-Приложения-Найти и Загрузить: procat.lsp или prcat3d.lsp 2. Набрать в командной строке: prokat или prkt3d, соответственно для плоского или объёмного изображения профилей P.S. Можно создать кнопку с макросом, например, такую: (if (= PROKAT nil) ( Load (findfile "prokat/prokat.lsp"))) PROKAT (if (= PRKT3D nil) ( Load (findfile "prokat/prcat3d.lsp"))) PRKT3D

"И не надо лохматить бабушку!" (с)Задорнов

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

Offtop:

Сообщение от Alan "И не надо лохматить бабушку!" (с)М.Жванецкий

А не Задорнов?

[Alan]

Сообщение от Кулик Алексей aka kpblc Offtop: А не Задорнов?

Обидел классика... Да, Задорнов

[trushev]

Каюсь. В данном случае автокад используется через одно место. Он нужен только для работы lisp'а. При двухмониторной системе после заполнения таблицы на соседнем мониторе потребность в программе отпадает.
PS

Сообщение от Alan например Support Автокада

Если есть допуск к системным папкам автокада.

----- добавлено через ~46 мин. -----
PS PS Наверное я не достаточно точно высказался: Это фрагмент оформленный в самостоятельную программу.

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

Что значит "если есть доступ к системным папкам"?

[trushev]

Сообщение от Кулик Алексей aka kpblc Что значит "если есть доступ к системным папкам"?

Правом на внесение изменений может обладать только сисадмин.

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

Правом на изменение чего? Папок (точнее, их содержимого)? Или их перечня?

[trushev]

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

[Кулик Алексей 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.