Выбор группы файлов

А чем dos_getdir и dos_dir не подходит?

excellent

Нашёл с конфы ещё вариант типа:

(setq PATH "c:\\Program Files\\AutoCAD 2000i")
(command "shell" (strcat "dir \"" PATH "\" > " (strcat "\"" PATH "\\files.txt\"")))

опосля прочитать files.txt
Но, только толку от этого и от vl-directory-files нет без графического интерфейса выбора папки :(

getfiled не даёт выбирать группу файлов.
Поэтому только DOS_GETFILEM или вариант DMS
(dos_dir (strcat (dos_getdir "Select a folder") "*.dwg") 1)

> Эдуард
А если папочка ещё пуста, тогда как?

Подниму старую тему, ибо она стала для меня актуальной.
Вопрос сформулирую несколько иначе, чем в топике: как дать пользователю возможность указать папку с использованием Windows-подобного интерфейса? (примерно как в функции getfiled).
Как я понял из предыдущего обсуждения - стандартными средствами LISP - никак (vl-directory-files не предлагать по причине отсутствия визуальности). Только DOSLib? Или есть еще какие-нибудь варианты?
______________
Удачи.

> kos
Все, что нельзя сделать "вижуального" в Visual LISP, можно реализовать двумя путями:
1. Сделать собственную библиотеку функций, наподобие  DOSLib с использованием ObjectARX.
Недостатки известны - надо уметь работать в VC++ и с ObjectARX. И такая библиотека будет привязана к версиям AutoCAD и продуктов Microsoft.
2. Использовать COM-технологии. В этом случае можно писать в любой среде, поддерживающей COM (VC, Delphi, VB - да хоть на чем). Созданные объекты не будут зависеть от версий AutoCAD и компиляторов и могут использоваться и вне AutoCAD. Написать такие приложения может и человек, вообще не знакомый с AutoCAD. А в LISP для них будут только функции вызова.
Подробно и с исходниками эти технологии описаны в книге "САПР на базе AutoCAD - как это делается". Выбор папки - это очень простой частный случай.
Возможно также использование чужих COM-объектов из других программ и библиотек, но это ненадежно, да их надо еще разыскать.

> serzh
БО-О-Ольшое спасибо. Именно то, что нужно.
ЗЫ: а поиском я эту тему почему-то не откопал, хотя getfiled в аргументах поиска задавал...
______________
Удачи.

Насчет
https://www.caduser.ru/forum/topic20307.html
Зайдите на
http://discussion.autodesk.com/
(придется за"login"иться)
и введите для поиска хотя бы "BrowseforFolder",
массу интересного найдете.

Может это подойдет:
(код не мой)

(defun BrowseFolder ( / ShlObj Folder FldObj OutVal)
  (vl-load-com)
  (setq
    ShlObj (vla-getInterfaceObject
       (vlax-get-acad-object)
       "Shell.Application"
     )
    Folder (vlax-invoke-method ShlObj 'BrowseForFolder 0 "" 0)
  )
  (vlax-release-object ShlObj)
  (if Folder
    (progn
      (setq
  FldObj (vlax-get-property Folder 'Self)
  OutVal (vlax-get-property FldObj 'Path)
      )
      (vlax-release-object Folder)
      (vlax-release-object FldObj)
      OutVal
    )
  )
)

> Евгений Елпанов
Я б с радостью, да комп с инетом ни-ка-кой.
Рекомендую относиться с пониманием.