[===AAA===]

Всем добрый день.

Есть сеанс Автокада, в котором открыто несколько файлов. Пусть это будут:

Файл-1.dwg
Файл-2.dwg
Файл-44.dwg
Файл-ABC.dwg

И мы находимся (т.е. он "текущий") в одном из них. Скажем, в Файл-44.dwg.

Нужно - на LISP'е - получить список этих файлов в виде

("Файл-1.dwg" "Файл-2.dwg" "Файл-44.dwg" "Файл-ABC.dwg")

и сделать так, чтобы текущим стал любой выбранный из этого списка.
Видимо, начать нужно с чего-то навроде

(setq spisok (vla-get-documents (vlax-get-acad-object)))

а вот дальше что?

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

Нечто типа (пишу с телефона!):
(vlax-for doc (vla-get-documents (vlax-get-acad-object))
(princ (strcat "\n" (vl-filename doc))))
Код естественно не проверял.

[===AAA===]

Да мне и надо-то "нечто типа" vl-filename, только работающее не с текстовым полем,
а с коллекцией (точнее, элементом коллекции). Что это за функция то?

Тут даже можно пойти путём

(vlax-map-collection (vla-get-documents (vlax-get-acad-object)) 'функция)

осталось только выдрать путь+имя из имеющихся в семействе объектов типа:

#<VLA-OBJECT IAcadDocument 000002b03947ad58>

Чем?

[Vladimir_Sergeevich]

Сообщение от ===AAA=== осталось только выдрать путь+имя из имеющихся в семействе объектов типа: #<VLA-OBJECT IAcadDocument 000002b03947ad58> Чем?

vla-get-Path
vla-get-Name
vla-get-FullName
vlax-dump-object в помощь...

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

Сообщение от ===AAA=== Да мне и надо-то "нечто типа" vl-filename, только работающее не с текстовым полем, а с коллекцией (точнее, элементом коллекции). Что это за функция то? Тут даже можно пойти путём (vlax-map-collection (vla-get-documents (vlax-get-acad-object)) 'функция) осталось только выдрать путь+имя из имеющихся в семействе объектов типа: #<VLA-OBJECT IAcadDocument 000002b03947ad58> Чем?

vlax-dump-object

[Эдуард]

Привет.
Как-то так на скорую руку.

Код:

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

 
(defun listdoc (/ doccol)
  (setq doccol (vla-get-documents (vlax-get-acad-object)))

  (fulldoc doccol
	   (1- (vla-get-count doccol))
  )
)


(defun fulldoc (dcol rep)
  (if (>= rep 0)
    (cons (vla-get-fullname (vla-item dcol rep))
	  (fulldoc dcol (1- rep))
    )

  )
)