[bimari]

Проблема: все лиспы после того как были appload'ены и Acad был закрыт и заново открыт, надо перезагружать заново... Не практично Что сделать, чтобы не возвращаться к этой однообразной процедуре?

[gest]

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

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

Поискать и использовать автозагрузчик. Один из вариантов: http://www.autocad.ru/cgi-bin/f1/board.cgi?t=19612AN

[Zouss]

варианты:
- если лисп повешен на кнопку или пункт меню - простенькая проверка типа

Код:

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

(if (not c:имякоманды) (load "путь к файлу"))
имякоманды

- можно все загрузки затолкать в acad.lsp или acaddoc.lsp в функцию S::startup, но почему-то у местных гуру данный способ энтузиазма не вызывает
- затолкать все лиспы в файл имядефолтногоменю.mnl и все будет загружаться при загрузке имядефолтногоменю.mnu, правда как в дветыщщишестом не знаю как дела обстоят, говорят там какой-то cui с меню
- в диалоговом окне load/unload applications есть группа под названием startup suite, где список автозагрузки вы можете настроить виЖуально

[favorite]

Может я чего то не понял, но так помойму appload
там contents -партфель и там их загружаешь, больше перезагружать не надо будет.

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

Но! Стоит поменять хоть один символ в полном имени файла, и все, кирдык, он не загрузится.

[Zouss]

аха, а эсть способы с этим кирдыком боротся?

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

ZZZ по ссылке сделал функцию, которая может искать все загружаемые файлы по определенному пути с учетом вложенных папок (хоть по всему диску, или по всем), формировать список из них и - вперед (load filename) и все. Перемещай, переобзывай, все что угодно делай
У меня все мои лиспы именно так и грузятся.

[Zouss]

сильно

грузятся всей мешпухой каждый раз?

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

Ага. Это лично мне (подчеркиваю - лично мне!) оказалось проще, чем в процессе работы постоянно отлавливать - загружена или нет та или иная функция. Путь прописывается при установке в реестр, лоадер читает его оттуда и вперед

[gest]

kpblc Не подскажешь возможно прописать в программу ZZZ путь к папке с приложениями, чтобы при старте када автоматически подгружались все приложения, без запуска функции. Т.е. полность автоматизировать процесс запуска.

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

Возможно. Если коротко, методика, честно слизанная с ruCAD'a и немного переделанная:
Делается инсталлер (с помощью того же InnoSetup), который прописывает в реестр в строго определенное место (к примеру, HKEY_LOCAL_MACHINE\Software\MyAdds_I_PUST_ONO_PODAVITSA) путь, куда установлены дополнения. Потом этот путь читается в том же самом mnl, к примеру, и подставляется для функции ZZZ.
Можно, используя AcadInstall, и автозагрузку прописать, но я в свое время отказался (возможно, не навсегда) от такого загрузчика и перевел все в mnl. Пока работает

[gest]

Спасибо, только создание инсталлятора для меня пока неподъемная задача.

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

Так там в принципе ничего сложного нет:
качаем innosetup с http://www.jrsoftware.org/isinfo.php (я дополнительно пользуюсь ISTools (http://www.istool.org/default.aspx/) - прибамбас для innosetup, делает скрипт установки в графическом режиме. После того, как закачаешь, подсунь такой пример ISTools'y:

Код:

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

[Setup]
SolidCompression=true
AppCopyright=МОЕ
AppName=Мои дополнение и пусть оно подавится
AppVerName=Нехай будет 1.1.165
VersionInfoVersion=1.1.165
PrivilegesRequired=admin
DefaultDirName={pf}\CADAdds
DefaultGroupName=CADAdds
ShowLanguageDialog=no
OutputBaseFilename=MyAdds
UninstallLogMode=overwrite
DisableFinishedPage=false
DisableReadyPage=true
UsePreviousTasks=true
UsePreviousGroup=true
AppendDefaultGroupName=true
WindowShowCaption=false
WindowStartMaximized=false
WindowResizable=false
LanguageDetectionMethod=locale
ShowTasksTreeLines=false
DisableStartupPrompt=false
;InfoBeforeFile=history.txt
InternalCompressLevel=ultra
[Files]
Source: lsp\_kpblc*.lsp; DestDir: {app}\lsp; Flags: recursesubdirs; Components: main
Source: dcl\*.DCL; DestDir: {app}\dcl; Flags: recursesubdirs; Components: main
Source: Menu\*.mnu; DestDir: {app}\menu; Components: main
Source: Menu\*.dll; DestDir: {app}\menu; Components: main; Flags: replacesameversion recursesubdirs
Source: Blocks\*.dwg; DestDir: {app}\blocks; Flags: recursesubdirs; Components: main
Source: arx\*.arx; DestDir: {app}\arx; Flags: recursesubdirs replacesameversion; Components: main
Source: *.shx; DestDir: {app}; Components: main
Source: tp2005\*.*; DestDir: {app}\tp2005; Components: tp2005; Flags: recursesubdirs
Source: Tp2005\*.*; DestDir: {app}\tp2006; Components: tp2006; Flags: recursesubdirs
Source: Menu\*.mnl; DestDir: {app}\menu; Components: main
Source: lsp\kpblc*.lsp; DestDir: {app}\lsp; Flags: recursesubdirs; Components: main
[Registry]
Root: HKLM; Subkey: SOFTWARE\CADAdds\CAD; ValueType: string; ValueName: RootDir; ValueData: {app}; Flags: uninsdeletekey; Components: main
Root: HKLM; Subkey: SOFTWARE\CADAdds\CAD; ValueType: string; ValueName: ToolPaletteDir16.1; ValueData: {app}\tp2005; Flags: uninsdeletekey
Root: HKLM; Subkey: SOFTWARE\CADAdds\CAD; ValueType: string; ValueName: ToolPaletteDir16.2; ValueData: {app}\tp2006; Flags: uninsdeletekey
Root: HKCU; Subkey: SOFTWARE\CADAdds\CAD; ValueType: string; ValueName: Ver; ValueData: 1.2.13; Flags: uninsdeletekey
[Components]
Name: Main; Description: Основная часть; Flags: fixed; Types: custom full compact
Name: tp2005; Description: Палитры инструментов 2005; Types: custom full
Name: tp2006; Description: Палитры инструментов 2006; Types: custom full

Только запускать не вздумай! Походи по закладкам, посмотри, что откуда и с какими правилами берется и засовывается. Все достаточно просто Скрипт пишется один раз и потом только множатся версии