[Krieger]

Здравствуйте.
Как программно настроить AutoCAD? А именно: добавить пути поддержки, путь к папке шаблона, путь к шаблону для Qnew, путь для tool palettes, автозагрузка прог. (файлом меню не пользуюсь).
Предполагаю, что все эта инфа храниться в реестре. Действия на новом компе такие: копируем все файлы на этот комп (или открыт доступ к ним по сетке) щелкаем файлик скрипта vbs и ву-а-ля. Мона так сделать? К примеру, я вроде нашел параметр, который отвечает за пути поддержки:

Код:

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

HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R16.2\ACAD-4001:409\Profiles\<<Unnamed Profile>>\General

параметр ACAD, там эти пути и прописаны через точку с запятой. Добавляю вручную путь, запускаю кад и новый путь благополучно в нем появился. Набрасал скрипт, при помощи его повторяю операцию, проверяю реестр - прописан. Запускаю кад - нема пути! Короче, кад сам мой путь удалил. То срабатывает, то нет. Кстати ExpresTools-а там нет, а после запуска када путь к нему появляется и исчезает по закрытии. У Expres-а как это сделано?
Чего не так делаю? Мож не туда лезу?

[Profan]

Конечно, не туда. Надо лезть в файл acad.msi.

[Krieger]

Сообщение от Profan Конечно, не туда. Надо лезть в файл acad.msi.

Это где?

~AutoCAD 2007

[_Andre_]

Все подобные настройки можно изменять через объектную модель автокада. Посмотрите справку по объектной модели.

например получить строку с путями достпуа к файлам поддержки можно так:

Код:

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

(vla-get-SupportPath  (vla-get-files (vla-get-Preferences (vlax-get-acad-object))))

Назначить новые пути поддержки так:

Код:

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

(vla-put-SupportPath  (vla-get-files (vla-get-Preferences (vlax-get-acad-object))) string_of_paths)

По аналогии изменяются и остальные параметры. Правда не уверен про toolpalettes.

Дабы быстро настроить автокад на новом компьютере, можно (как вариант) создать лисп функцию, в которой прописано изменение всех нужных настроек и запускать её на новом компьютере.

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

А также простым (setenv "ACAD")

[_Andre_]

Ну для путей поддержки то да =)) а для остальных не получиться, сам знаешь

[Profan]

В acad.msi можно все впихнуть: пути, файлы, меню, палитры и всякую дребедень. После этого установка с "дистрибутива" будет одинаковой для всех пользователей. Но вот раздолбать сам acad.msi - это, конечно, проблема.

[_Andre_]

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

[Krieger]

Сообщение от _Andre_ Правда не уверен про toolpalettes.

Код:

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

(vla-get-ToolPalettePath  (vla-get-files (vla-get-Preferences (vlax-get-acad-object))))

Пасиб, покапаю.

Сообщение от Profan В acad.msi можно все впихнуть: пути, файлы, меню, палитры и всякую дребедень. После этого установка с "дистрибутива" будет одинаковой для всех пользователей. Но вот раздолбать сам acad.msi - это, конечно, проблема.

Дошло че за msi - не, не катит.

И все-же, что-б не лезть в кад?

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

Нашел подобную тему (правда, на вражеском):
http://www.cadtutor.net/forum/showthread.php?t=2304

[_Andre_]

Ну в указанной ссылке тоже не оптимальное решение. Пользоваться скриптами *.scr как то не надежно, да и не все настройки с командной строки можно изменить.
Опять же toolpalettes =)

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

Я имел в виду применение там setenv - и откуда они их берут?

[_Andre_]

тогда в дополнение перечень переменных окружения :wink:

Код:

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

http://www.afralisp.net/lisp/enviro.htm

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

Спасибо

[Xara]

Сообщение от _Andre_ Правда не уверен про toolpalettes.

Я подключал палитры так: (спасибо Крысу, без него бы не разобрался)

Код:

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

 (command "_ToolPalettesClose")
 (if (not (wcmatch (strcase (vla-get-toolpalettepath (vla-get-files (vla-get-preferences (vlax-get-acad-object))))) (strcat "*" (strcase "\\My_Functions") "*")))
   (vla-put-toolpalettepath (vla-get-files (vla-get-preferences (vlax-get-acad-object))) (strcat (vla-get-toolpalettepath (vla-get-files (vla-get-preferences (vlax-get-acad-object)))) ";" "D:\\MY_FUNCTIONS\\PATHS\\PALETTES")))
 (command "_ToolPalettes")