[Mozgunov]

Добрый день. Скажите если функция наподобие getfiled, которая разрешала бы множественный выбор и возвращала список путей. Спасибо.

[Boxa]

А ЯП какой?

[Mozgunov]

autolisp

[Do$]

Что нужно выбирать? Папки? Файлы? В одной или разных папках? Я вообще смутно представляю как это "функция наподобие getfiled, которая разрешала бы множественный выбор и возвращала список путей". В какой-то известной программе есть такое, чтобы посмотреть?

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

Диалог открытия файла в MS Word, кажется, позволяет выбрать несколько файлов с зажатым Ctrl.

[VVA]

Get Files Dialog от Lee Mac?

[Mozgunov]

Сообщение от Do$ Что нужно выбирать? Папки? Файлы? В одной или разных папках? Я вообще смутно представляю как это "функция наподобие getfiled, которая разрешала бы множественный выбор и возвращала список путей". В какой-то известной программе есть такое, чтобы посмотреть?

Файлы нужно выделять. Есть такое. Даже в Autocad с зажатым Ctrl можно выделять. Спасибо. Вопрос отпал. Я прикрутил к лиспу exe форму, которая и формирует список файлов. Потом дожидаюсь пока закроется форма и использую этот список.


Спасибо. Видел это. У меня что-то не работает. Незнаю что неправильно делаю. А не подскажите что такое "LM"в этой строчке?

Код:

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

 defun LM:getfiles

Это из Get Files Dialog от Lee Mac

[Do$]

Сообщение от Кулик Алексей aka kpblc Диалог открытия файла в MS Word, кажется, позволяет выбрать несколько файлов с зажатым Ctrl.

Сообщение от Mozgunov Есть такое. Даже в Autocad с зажатым Ctrl можно выделять.

Ну надо же

----- добавлено через ~2 мин. -----

Сообщение от Mozgunov А не подскажите что такое "LM"в этой строчке?

Это префикс с инициалами автора, чтобы было понятно кто автор и уменьшить шанс конфликта имен.

[gomer]

попробуй

Код:

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

  (dos_getfilem "Select a file" "C:\\Program Files\\Autocad 2010\\" "Drawing files (*.dwg)|*.dwg|All files (*.*)|*.*||")

[ShaggyDoc]

Скажите если функция наподобие getfiled, которая разрешала бы множественный выбор и возвращала список путей

В штатном AutoLisp - нет. Надо или пользоваться сторонними библиотеками, например DOSLib (dos_getfilem ...) или написать свою функцию. Можно в виде COM-сервера, можно в виде EXE. В последнем случае понадобится функция для запуска EXE в "модальном" режиме, которой в штатном AutoLISP также нет. И для нее придется или стороннюю библиотеку использовать или писать свою. Уж на совсем худой конец - ждать закрытия формы или появления где-то результатов.

[Mozgunov]

gomer, ShaggyDoc, спасибо. Я через форму сделал exe (на худой конец). А где взять библиотеку DOSLib?

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

В гугле посмотри. Или в яндексе.

[Mozgunov]

Кулик Алексей aka kpblc, Понял.Посмотрю. А не подскажите почему динамический блок не могу удалить? Удалил вхождения блока. А сами блоки не удаляются. Выдаёт ошибку

Код:

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

 ; ошибка: Ошибка Automation. На объект имеется ссылка

Как эти ссылки удалить можно?

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

Вообще-то "один вопрос = одна тема"... Ищи вхождения - на листах, в других блоках...

[gomer]

Сообщение от Mozgunov где взять библиотеку DOSLib

http://www.en.na.mcneel.com/doslib.htm

[kolya161]

Топорный метод получения списка с полным путем к файлам. Путь к папке копируем из проводника.

Код:

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

 
(vl-load-com)
(defun c:binder	()			

  (setq path (getstring "\nУкажите путь к папке: "))
  (setq filelist (vl-directory-files path "*.dwg" 1))

  )
  (setq listLength (length filelist))	
  (setq i 0)				

  (while (< i (- listLength 1))
    (setq fullpath (strcat path "\\" (nth i filelist)));
    
     )					; end while

)					;end defun

[Mozgunov]

Спасибо. Нужно было именно выбрать некоторые файлы из определенной папки. Без манипуляций с перетаскиваниями файлов из папки в папку.