[===AAA===]

Всем привет!

Как в АКАД-2002 получить список открытых (в настоящий
момент) в текущем сеансе документов? Я знаю только такой
способ:

(vl-load-com)
(setq a_app (vlax-get-acad-object))
(setq docs (vla-get-documents a_app))
(setq kol-vo (vla-get-Count docs))

и дальше "ручками" получение списка из

(vla-get-FullName (vla-item docs i))

Но он мне не нравится громозкостью и необходимостью
(vl-load-com). Может быть, для этого есть готовая
функция, ну, скажем, в DOSLib ?

[{Smirnoff}]

И хочется тебе сторонний Arx подключать, делая кстати проверку на версию AutoCAD, перетаскивать его вместе с лиспом, проверять его нахождения на путях поддержки? А это тоже займёт несколько строчек кода. Всё по моему довольно компактно:

Код:

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

(defun GetDocsNames(/ docCol outLst)
  (vl-load-com)
  (setq docCol(vla-get-Documents(vlax-get-acad-object))
	outLst '()); end setq
  (vlax-for doc docCol
    (setq outLst(append outLst(list(vla-get-FullName doc))))
    ); end vlax-for
  ); end of GetDocsNames

Мне кажется что сторонними библиотеками надо пользоватся когда без них ничего не получается. По порядковому номеру кстати ничего вытаскивать не надо, для коллекций существует цикл VLAX-FOR который и так перебирает все элементы.

[Лентяй]

AAA,
Пользуйся программой DwgStrip от DotSoft.com'а, и будет тебе щасте, ибо узришь вкладки типа Layouts всех открытых файлов.