Информационный портал для профессионалов в области САПР
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форумы CADUser → Программирование → LISP → Инталлятор программ
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Такая ситуация:
Есть коплект программ на автолиспе. Расположен в отдельной папке.
Чтобы эти проги стали доступны Акаду, нужно их папку прописать в
Options-Files-Support File Search Path
Вопрос:
Как это сделать не руками, а автоматически - написав прогу-инсталлятор на автолиспе?
Копирование в Support не годится - сами программы должны остаться жить в своей папке.
Помогите, плиз.
Проживание программ в отдельной папке - совершенно верное решение.
Прописать путь поиска Автокада к этой папке можно даже на Автолиспе. Примерно так:
(setq AcadPath (getenv "ACAD"))
(setq AcadPath (strcat "C:\\MyProgramm;" AcadPath))
(setenv "ACAD" AcadPath)
Теперь можно убедиться, что путь к программе прописан в Options-Files-Support File Search Path, причем на первом месте.
Но это очень примитивно. Если делать ИНСТАЛЛЯТОР, то все манипуляции должны проделываться до запуска Автокада, то есть не из Lisp. Да и Автокадов на машине может быть несколько. Здесь нужна специальная внешняя программа. Она должна много уметь, в том числе находить Автокады, выбирать нужный. И прописать путь в реестр для соответствующего профиля выбранного Автокада.
Спасибо!
Как все просто оказывается.
Но внешнюю прогу-инталлер я писать не собираюсь - у меня слишком локальная задача, чтобы делать излишние навороты.
Проинсталлировать из-под Автолиспа - вполне достаточно.
Да-да, я тоже скажу спасибо...
> ShaggyDoc
а есть ли иформация о других переменных доступных getent, кроме MaxArray описанной в HELPe. Если есть то пожалуйста где это можно найти.
Способов узнать несколько, например:
экспортировать текущий профиль пользователя в файл, открыть его в текстовом редакторе и найти слова General и ACAD.
> Pilot
Для ACAD2000 и выше, можно:
(vl-load-com)
(setq pref_obj (vla-get-Files (vla-get-Preferences (vlax-get-acad-object))))
(setq old_support (vla-get-SupportPath pref_obj))
; В old_support записываются существующие пути поддержки
........
(vla-put-SupportPath pref_obj new_support)
; Изменяет пути поддержки
> Сергей
(3.10.2002 в 14:25:44)
Хороший список переменных окружения см. на
Спасибо большое Александр (3.10.2002 в 14:58:12)
и ShaggyDoc воспользовался и тем и другим.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форумы CADUser → Программирование → LISP → Инталлятор программ
Форум работает на PunBB, при поддержке Informer Technologies, Inc
