[Кочетков Андрей]

Помню была подобная тема - но не смог найти.
Вопрос: нужны все источники автозагрузки лисп-приложений в Автокад - файлы (типа acad.lsp), реестр и др.
Желательно с путями, ибо не могу найти )))
Спасибо!

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

Имеешь в виду пути поддержки?

[VVA]

Навскидку что помню:
1. acad.lsp
2. acaddoc.lsp
Есть ли они, можешь проверить, набрав (findfile "acad.lsp") и (findfile "acaddoc.lsp") в командной строке
3. Проверь портфель _appload ключики в реестре читай у Алексея LISP. Реестр. Запись своих приложений в автозагрузку
4. mnl файлы. Какие файлы подгружены можешь проверить с помющью _menuload.
5. Всякие бяки могут добавить себя в загрузку acad200X.lsp acad200Xdoc.lsp (для 2006 Када acad2006.lsp acad2006doc.lsp) Ищешь опять же по findfile.

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

[Zouss]

все верно, маленькое уточнение acad.lsp и acaddoc.lsp равно как и acad200#.lsp acaddoc200#.lsp загружаются из ближайшего директория - папка чертежа, если там ничего не найдется то поиск ведется в file support path до тех пор пока нужный файл не найдется, таким образом каждый из этих 4 мегафайлов будет загружен не более одного раза

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

> VVA: Ну прочитать теоретически имена файлов, которые автоматически загружаются, через реестр можно. Но вот то, что грузят они - уже почти нереально. Кроме того, насколько я понял из документации по ObjectARX, можно написать ARX приложение, которое все равно пропишется в автозагрузку, а будет оно там показываться или нет- еще неизвестно.

[Кочетков Андрей]

Вот в реестре то я и нашел эту заразу.
Спасибо всем громадное!

[Xara]

Я через реестр грузил так:
(в данном случае гружу приложение D:\My_Function\function.LSP - это лишь пример)

Код:

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

 
(vl-load-com)
(setq reg_path (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\Profiles\\" (vla-get-activeprofile (vla-get-profiles (vla-get-preferences (vlax-get-acad-object)))) "\\dialogs\\appload\\startup")
      cfgstart "D:\My_Function\function.LSP")
(if (not (member (vl-filename-base cfgstart) (vl-registry-descendents reg_path "startup")))
  (progn
    (vl-registry-write reg_path "StF_Startup" cfgstart)					; создаем свою автозагрузку
    (setq nm_regf (itoa (1+ (atoi (vl-registry-read reg_path "numstartup")))))		; считываем счетчик автозагрузок и сразу увеличиваем на 1
    (vl-registry-delete reg_path "numstartup")						; удаляем счетчик автозагрузок	
    (vl-registry-write reg_path "numstartup" nm_regf)					; создаем новый счетчик автозагрузок	
    )
  )

[hwd]

@Xara
Решил заново Америку открыть? Некропостер...

[Xara]

Сообщение от hwd @Xara Решил заново Америку открыть? Некропостер...

Та не, просто вдруг кому полезно будет
Да и я же не что-то сверх-оригинальное предложил, а вдруг кто наткнется, и кому-то это пригодится, у самого было такое несколько раз.