|
||
| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
12.05.2004, 15:33 | #1 | |
Создание CD c личными настройками
Проектировщик ВК. LISP-любитель.
Москва
Регистрация: 15.12.2003
Сообщений: 1,190
|
||
Просмотров: 1974
|
|
||||
AutoCAD/AutoLISP Регистрация: 27.08.2003
Seattle/USA
Сообщений: 1,133
|
Я так поступаю уже не первый год, только в моем случае я пользую место в
ликальной сети драйв Н: и такой вот лисп для автоматической и быстрой установки профиля и меню. Я тут его немного подредактировал для общего пользования с CD. подразумевается что D:\MYSTUFF содержит меню MYSTUFF.MNU, MYSTUFF.MNS, MYSTUFF.MNL и все необходимые файлы. ACAD.PGP лучще не трогать, а все "одноклеточные" комманды делать лисп макрос и добавить их в MYSTUFF.MNL, для простоты и большей автономности. Сохранить весь код как PROJPROF.LSP (vl-load-com) (setq acadobject (vlax-get-Acad-Object)) (setq acadprefs (vla-get-preferences acadobject)) (setq acadprofiles (vla-get-profiles acadprefs)) (vlax-dump-object acadprofiles T) ;;====================================================== (setq ACAD1 ";D:\\MYSTUFF") (setq mname "D:\\MYSTUFF\\MYSTUFF.mnu") (setq mmname "P15=+mystuff.POP15") ;;======================================================= (defun crojprof () (vla-put-ActiveProfile acadProfiles "<<Unnamed Profile>>") (setq ACAD2 (getenv "ACAD")) (setq ACAD3 (strcat acad2 ACAD1)) (setq prname (getvar "cprofile")) (vlax-invoke-method acadProfiles 'CopyProfile prname "MYSTUFF") (vla-put-ActiveProfile acadProfiles "MYSTUFF") (setenv "ACAD" ACAD3) (command "_.menuload" mname) (menucmd mmname) (princ) ) |
|||