[Ева]

Доброе утро! Подскажите, пожалуйста, в какой системной переменной или с помощью какой команды можно отследить путь к последнему открытому файлу?
(setq put "d:\\ "); для начала
(setq blname(getfiled "Выбор файла" put "dwg" 0))
Необходимо в переменную put передавать значение пути для последнего открытого файла. Как этот путь можно узнать?

[Profan]

Последний открытый файл - на экране в текущий момент.

[Ева]

Profan, открыт чертеж, в который программно можно вставить блоки. Моя программа открывает окно выбора файла, вставляет нужный блок и заканчивает работу. При следующем запуске программы необходимо, чтобы окно выбора файла отобразило именно ту папку, из которой был вставлен последний блок. Этот путь надо присвоить переменной put. Вот я и пытаюсь выяснить как можно найти этот путь.

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

(vl-filename-directory blname) попробуй

[VVA]

Ева,
1. Можно сохранить в реестр, потом читать оттуда
2. Сохранять и читать из acad.cfg файла (см. функции setcfg getcfg)

[Ева]

Кулик Алексей aka kpblc, спасибо, уже сама нашла эту функцию)
VVA, думаю проще будет просто выделить путь из полного имени файла.

[Елпанов Евгений]

Сообщение от Ева VVA, думаю проще будет просто выделить путь из полного имени файла.

Только для этого чертежа.
А для следующего, будет опять "d:\\ ", а можно последний использовавшийся путь...

как пример:

Код:

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

(if (setq blname (getfiled "Выбор файла"
                           (cond ((getenv "put"))
                                 ((setenv "put" "d:/"))
                           ) ;_  cond
                           "dwg"
                           0
                 ) ;_  getfiled
    ) ;_  setq
 (setenv "put" (strcat (vl-filename-directory blname) "\\"))
)

[baaba]

У меня не получается -(( подскажите, как сделать?

Код:

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

 (if (eq fn nil)
	(setq fn (getfiled "Select a spreadsheet file" "c:/work/lisp/test/" "xls" 8))
	(setq fn (getfiled "Select a spreadsheet file" (vl-filename-directory (findfile fn)) "xls" 8))
)