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

Собственно вопрос-то в этом и есть. Запускается лисп (неважно, каким образом, но, как правило, через _.appload). Жизненно необходимо получить путь, по которому хранится запущенный лисп. Это вообще возможно?

[Лентяй]

Что, собственно говоря, хранится? Если сам LISP-файл, то он никуда не девается, его можно даже редактировать. А информация о загруженных ранее файлах хранится нна вкладке "History" того же окна "appload", так что их можн оттуда загружать по-новой.

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

Не, мне надо, загрузив такой лисп:

Код:

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

(defun start()
;; <Что-то делаю>
)
(start)

в support path прописать путь, по которому он находится. Прописывать надо во время выполнения. (findfile "prog.lsp") возвращает nil.

[Лентяй]

Опять не понял. Некомпилированный lsp-файл никуда не девается, так что его путь можно просто прописать. Или требуется, чтобы программа нашла сама себя?

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

Ага. И прописала путь поддержки (но это уж сам сделаю, не вопрос).

[Лентяй]

А кофе в койку? :?

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

Лучше в чашке.

[Лентяй]

Ежели серьезно, то чой-то у меня ACAD сегодня глючит - открываться не хочет. Попробую завтра на работе, если только кто не догадается, пока я сплю.

[AY]

Как на счет DOSLIB?

dos_lisplist -------------------------------------------------------------------------------- Returns a list of loaded AutoLISP/Visual LISP files. Syntax (dos_lisplist [T]) Parameters T If specified, fully qualified paths are returned. Otherwise, just the filenames are returned. Returns A list of string identifying the loaded LISP files if successful. nil on error. Example Command: (dos_lisplist) ("acetutil.fas" "acetauto.LSP" "acettest.fas" "dwfout.lsp" "acad2000.FAS" "acad2000doc.FAS" "acad.mnl" "acetmain.mnl") Command: (dos_lisplist t) ("C:\\Program Files\\AutoCAD 2002\\express\\acetutil.fas" "C:\\Program Files\\AutoCAD 2002\\express\\acetauto.LSP" "C:\\Program Files\\AutoCAD 2002\\support\\acettest.fas" "C:\\Program Files\\AutoCAD 2002\\support\\legacy\\dwfout\\dwfout.lsp" "C:\\Program Files\\AutoCAD 2002\\support\\acad2000.FAS" "C:\\Program Files\\AutoCAD 2002\\support\\acad2000doc.FAS" "C:\\Program Files\\AutoCAD 2002\\Support\\acad.mnl" "C:\\Program Files\\AutoCAD 2002\\express\\acetmain.mnl")

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

> AY : не катит. Сделал лисп

Код:

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

(defun test()
  (princ (dos_lisplist))
  (princ)
  )

Записал его как d:\temp_lisp.lsp, загрузил. Выполнение (test) дает

Код:

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

(acetutil.fas acetauto.LSP acettest.fas acad2005.FAS acad2005doc.FAS acad.mnl acetmain.mnl)

И все! Т.е. мой лиспик там в принципе не участвует. Такое ощущение, что выдается список только автозагружаемых lsp и fas файлов (те, которые "бледные" в appload). Не более.

[AY]

>kpblc
Повторил твой пример - никаких проблем все показывает.

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

На всякий случай - ACAD 2005 Eng + SP1, DOSLib 6.1. Мимо. ACAD 2006 Eng, DOSLib 6.1. Результат - нулевой.

[AY]

Я проверял в такой ситуации:

Код:

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

Command: (dos_version)
"6.1.4"

Command: acadver

ACADVER = "16.1s (LMS Tech)" (read only)

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

у меня:

Код:

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

(dos_version)
"6.1.5"
(vlax-product-key)
"Software\\Autodesk\\AutoCAD\\R16.1\\ACAD-301:409"

acadver мало что дает. Она и на LT такая же, как на полном.

[AY]

Ну и у меня так же:

Код:

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

Command: (vlax-product-key)
"Software\\Autodesk\\AutoCAD\\R16.1\\ACAD-301:409"

Только, вроде, SP1 у меня не стоит - разве это в версии не должно отразиться?

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

> AY : плевать, я нашел решение! Ура тебе и ура мне. Функция (dos_search "test_lisp.lsp") вернула путь в момент. Все-таки имя лиспа лично я менять точно не буду, так что решения достаточно на данный момент.
---
Добавлено: полный оффтоп.
Гы-гы-гы
Мало того, что проблема решена, так еще и количество постов прикольное...

[AY]

(dos_search "test_lisp.lsp") не очень надежно - файлов с таким именем может быть несколько, а если может, то рано или поздно случится.

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

Ну тут дело в том, что у меня один лисп - один файл. Поэтому повторения исключены.

[Pilot]

А так не устраивает? Если нужен только путь без имени файла, то его можно отрезать.

Код:

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

(setq dir (findfile "filename.ext"))

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

Если файл не находится по путям доступа, то (findfile "filename.ext") вернет nil. Что, ессно, не устраивает.