[alex-63]

Господа, программирующие на AutoLispe подскажите функцию возвращающую, загруженные приложения (arx dbx lsp vlx fas etc)
аналог команды _appload где можно было бы узнать с какой директории загрузилось приложение. Меня интересует vlx приложение.

alex-63

[Дима_]

В дополнение сказанному hwd - я вижу только одно "разумное" дополнение автолиспа - которое сделать сможет только автодекс - т.к. ни какой встроенный функционал такого не может - сделать интерфейс с Net (наподобие как в свое время добавили возможность работать с com объектами), вот это "реально" будет интересно - а всякие библиотеки примочки реализующие отдельные API это дело бессмысленное и бесконечное. Ну а если они еще и сам лисп "облагородят" (замыкания, макросы, отложенные вычисления, классы (хотя если сделать предыдущие вещи они (классы) будут нужны только для "приходящих" из ООП) и прочие "современные" фишки (хотя разрабатывались они 50-30 лет назад)) - то это вобще будет настоящий праздник (по крайней мере лично для меня).

[Pastor]

...я вижу только одно "разумное" дополнение автолиспа - которое сделать сможет только автодекс - т.к. ни какой встроенный функционал такого не может - сделать интерфейс с Net (наподобие как в свое время добавили возможность работать с com объектами),..

Совершенно реально написать .NET приложение к AutoCAD (назовем его NetCoupler.dll), экспортирующее в документ следующие лисп-функции:
1. (nc-get-object "путь_к_сборке" "полное_имя_класса") - создает объект указанного класса и возвращает дескриптор (например целочисленный).
2. (nc-invoke-method дескриптор "имя_метода" список_аргументов)
3. (nc-get-property дескриптор "свойство") - возвращает атомарное значение.
4. (nc-set-property дескриптор "свойство" значение) - устанавливает атомарное значение.
5. (nc-release-object дескриптор) - уничтожает объект.
Ограничения будут касаться только типов передаваемых и возвращаемых параметров - строки, целые числа, действительные числа и логические T и nil.

[Дима_]

Offtop: Да простит меня автор топика
То Пастор - все верно но есть одно существенное НО - которое перечеркивает всю красоту Вашего предложения (которое действительно вполне возможно написать + "конверторы" типов) - загрузите Вы, например System.Windows.Forms - "нарисуете" что угодно - а как на "кнопочку" действие повесите? лямбду (функцию) передать текущая модель не позволяет - только в виде строки - то есть надо парсинг лиспа СВОЙ писать (ну или тупо отправить его как есть в командную строку), но здесь велика вероятность что автокад просто в "удачный" момент вылетит (т.к. не поддерживает многопоточности), в vl придумали чудо называемое "реакторами" - которые работают ТОЛЬКО сами с собой - ни с какими "внешними" объектами - то есть по сути придеться целиком новый лисп писать - а в чем тогда смысл - проще готовый взять. Без помощи автодеска (своими силами) возможно только запуск функции без аргументов (ну или с фиксированными - что одно и тоже) - чтобы она сама "внешние" данные читала и исходя из них что-то делала - мне "такой хокей не нужен" - я быстрей на C# (никому не в обиду - это мои личные тараканы и предпочтения - язык хороший - с каждым годом все "человечней" становится и дальше от С уходит) буду писать чем на таком "недолиспе".

[alex-63]

Интересное решение предлагает господин из manusoft
Автоматический загрузчик AutoLisp
http://www.manusoft.com/resources/ar...ndloadvlx.html
LspLoad.arx переименовываем в наш проект .vlx
и тогда функция
(GetPathOfXXXXX) ГДЕ XXXXX - базовое имя модуля.

и вызвав ::GetModuleFileName( _hdllInstance, szPath, MAX_PATH );
Мы получаем что хотели.
Все гениальное просто.

[Pastor]

Не понимаю всех этих сложностей, если можно просто в файл acaddoc.lsp поместить набор инструкций для загрузки требуемых VLX-файлов.
Файл acaddoc.lsp кладется в некоторую директорию - общий корень для всех подгружаемых приложений. Корневой каталог любого приложения является непосредственным подкаталогом общего корневого каталога. Путь к общему корневому каталогу регистрируется в качестве пути поддержки AutoCAD (один единственный; то, о чем писал hwd в посте №17).
Тогда каждая инструкция загрузки vlx-модуля будет выглядеть следующим образом:

Код:

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

;;; Файл acaddoc.lsp
;;; Инструкции загрузки файлов приложений:
(load (strcat (vl-filename-directory (findfile "acaddoc.lsp")) "\\" "Корневой_каталог_приложения\\путь\\имя_файла.vlx")))

Тогда из кода vlx-файла узнать его собственное местоположение можно так:

Код:

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

(setq loadedfrom (findfile "Корневой_каталог_приложения\\путь\\имя_файла.vlx"))

Данный подход требует определенной дисциплины. А именно, не грузить что попало откуда попало, а организовать все подгружаемые приложения в систему каталогов: общий корневой каталог во главе и корневые каталоги приложений на следующем (нижележащем) уровне. Кстати файлы не обязательно должны быть vlx. Можно и lsp, и fas.

Offtop:
Для Дима_.
Речь не идет о использовании объектов любых классов из любых сборок.
Речь идет об использовании объектов классов, спроектированных для нужд лисп-приложений под AutoCAD и находящихся с соответствующих (самодельных ) сборках. Например, это может быть класс, реализующий нечто напоминающее AJAX и доставляющее с удаленных серверов lisp-код в виде текста (взгляд на AutoCAD, как на специализированный браузер, умеющий интерпретировать LISP-"разметку", имеет право на жизнь. Ему [автокаду] только надо помочь делать http-запросы GET и POST...) Или класс, реализующий некое модальное диалоговое окно (похожее на XML-меню от ShaggyDoc).
Эти сборки могут не использовать библиотеки AcMgd.dll и AcDbMgd.dll, т.е. гарантированно быть пригодными для любых современных и будущих версий AutoCAD. А могут и ссылаться на указанные библиотеки, и тем самым, ничем не отличаться от "штатных" .NET приложений для AutoCAD за исключением механизма их загрузки/использования.

[alex-63]

Для того чтобы использовать findfile необходимо добавить папку с AutoLisp ом в Support File Search Path
это хорошо когда у вас небольшой один проект где Lisp файлы в одном месте.

Но когда количество увеличивается возникают проблемы. Наверное даже есть ограничение на Support File Search Patch
Замечал что добавляешь пути к <Support File ... > а в следующий сеанс часть путей пропало.
Решение предложенное господином Mansur Mamkin ым очень красивое и изящное :
1. При установки своего приложения Autolisp имея заглушку arx можно создать автоматический загрузчик не вмешиваясь в acaddoc.lsp или acad.lsp
причем загружаются не только файлы в текущей директории а все вложенные файлы.
2. имеем доступ к файлам и ресурсам программы не используя findfile тк имеет некоторое неудобство выше указанное.

Кстати Мансур Мамкин припоминается написал функция для autoLisp вызов функции из любой DLL с произвольным количеством и произвольными типами данных. Достойная библиотечная функция увеличивающая возможности AutoLIspa.

[hwd]

Сообщение от alex-63 Для того чтобы использовать findfile необходимо добавить папку с AutoLisp ом в Support File Search Path это хорошо когда у вас небольшой один проект где Lisp файлы в одном месте. Но когда количество увеличивается возникают проблемы. Наверное даже есть ограничение на Support File Search Patch Замечал что добавляешь пути к <Support File ... > а в следующий сеанс часть путей пропало.

Я так понял - ты "на своей волне" и не читаешь то, что тебе пишут... Если ты нас всё-таки "почитываешь" - ещё раз вдумчиво прочти #17...

[alex-63]

И при установке прикладывать Вашу инструкции кому и куда устанавливать программу.

[hwd]

Сообщение от alex-63 И при установке прикладывать Вашу инструкции кому и куда устанавливать программу.

Это не поможет. Программа изначально должна быть написана с учётом этих требований. Т.о. либо проблемные лиспы в ведро, либо садиться править их дабы они соответствовал обозначенным требованиям. Нет волшебной таблетки, которая существующий го*нокод во мгновение превратит в нормальный - это сразу нужно было писать грамотно, а не откладывать рефакторинг на потом....

Я у своих пользователей убиваю такой шлак, даже не берусь его изучать/править, т.к. проще самому решение написать, чем за кем-то подчищать его хвосты (ещё и не факт, что написанные без ошибок).

[Дима_]

Сообщение от hwd Я у своих пользователей убиваю такой шлак, даже не берусь его изучать/править, т.к. проще самому решение написать, чем за кем-то подчищать его хвосты (ещё и не факт, что написанные без ошибок).

Offtop: Боюсь это не только Ваша "проблемма" ИХМО 90% лисптописателей считают "свои" стандарты самыми правильными - и старательно изобретают велосипеды - по моему порядка здесь никогда не будет по причине "мультипрагмидности" (причем каждая в отдельности реализованна серединка-на-половинку) языка и как следствие - огромному диапазону уровней программирования (начиная с командных методов и до...)

[Vov.Ka]

какого уровня и объема вы (все) пишете приложения, что бы реально заморачиваться такой фигней?

[hwd]

Сообщение от Vov.Ka какого уровня и объема вы (все) пишете приложения, что бы реально заморачиваться такой фигней?

кто "вы" и какой "фигней"?