[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, Содержимого папок. Приходилось сталкиваться с этим явлением, когда без помощи админа невозможно ни удалить ни добавить файл в папке.