[WhiteShark]

Вопрос в сабже.
vla-get-FileDependencies нормально пашет с текущим файлом, но вот с открытыми через интерфейс ODBX возвращает пустую коллекцию
Помогите кто нибудь подтвердить\опровергнуть.

Пример для облегчения набора букаф


(vlax-for item
(vla-get-FileDependencies
*doc*
)
(if (= (vla-get-Feature item) "Acad:XRef")
(princ (strcat (vla-get-FullFileName item) "\n"))
)
)

[roaa]

а что дает vlax-dump-object?

[Лиспер]

А расскажите сирому, что это вообще такое? Откуда берется, где назначается? Ну так, руками чтоб можно было посмотреть

[WhiteShark]

vlax-dump-object естественно даёт примерно такое

; IAcadFileDependencies: Интерфейс IAcadFileDependencies
; Property values:
; Application (RO) = Exception occurred
; Count (RO) = 0
; Methods supported:
; CreateEntry (4)
; IndexOf (2)
; Item (1)
; RemoveEntry (2)
; UpdateEntry (1)

[frostmourn]

WhiteShark, подтверждаю такое поведение. Сдаётся мне, это из той же оперы, что и невозможность доступа через ODBX к системным переменным...

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

Сообщение от frostmourn невозможность доступа через ODBX к системным переменным

Доступ существует. Решение показывали.

[WhiteShark]

А по поводу сабжа что скажешь, Алексей? Есть какое то решение?
frostmourn спасибо!

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

Я точно так же, как и Лиспер, не знаю - что такое FileDepedencies, где и зачем оно используется. Не сталкивался.
Поэтому создать файл с такими зависимостями я не могу и получить ненулевую коллекцию даже в текущем документе не получится.

[WhiteShark]

Посмотрите с Лиспером вот эту тему http://forum.dwg.ru/showthread.php?t=58225
Задача стоит через ODBX получить список загруженных внешних ссылок для папки с файлами

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

Даже если не работает - можно найти обходной путь. Пройтись по всем описаниям блоков в файле, и исключить те, у которых vla-get-isxref равно :vlax-false. Делов-то...

----- добавлено через ~2 мин. -----
Что-то типа такого:

Код:

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

 (vl-load-com)

(defun get-all-xref (doc / res)
  (if (not doc)
    (setq res (get-all-xref (vla-get-activedocument (vlax-get-acad-object))))
    (progn
      (vlax-for blk_def (vla-get-blocks doc)
        (if (equal (vla-get-isxref blk_def) :vlax-true)
          (setq res (cons blk_def res))
          ) ;_ end of if
        ) ;_ end of vlax-for
      res
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of defun

[WhiteShark]

Не совсем ты понял, Алексей. Не просто список хрефов, а список загруженных ссылок. То есть определить статус "Loaded\Unloaded". Да еще и "Overlay\Attachment". Да еще и через ODBX. Для обычно открытого файла решения известны. Для "косвенно" открытых пока не было.

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

Н-да, похоже, что никак. Поигрался - эффект нулевой (я говорю про лисп, если что )
Единственный вариант, который я вижу, занимает уйму времени и сил (получить перечень ссылок, пройтись по всем объектам всех блоков, получить вхождения этих ссылок; потом то же самое повторять для каждой ссылки... Удовольствие ниже среднего). У меня сейчас фантазии не хватает, чтобы придумать внятное решение. Сорри ;(

[Vov.Ka]

Сообщение от WhiteShark LISP. Работает ли vla-get-FileDependencies с файлами открытыми через ODBX?

на Autodesk Map 2005 работает

[WhiteShark]

Vov.Ka спасибо ) Но такой раритет всем ставить не вариант ))

Решение нашёл. Недокументированное правда.. но как говорится раз гора не идёт к Магомеду..

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

А конкретнее? Ну интересно же

[WhiteShark]

Ну раз Уважаемый просит.. ))

Код:

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

 
;;; xRefs state definition ODBX routine by WhiteShark (c) 2015
;;; *fhnd* - global output file descriptor 

(defun WS-xRefsList (*doc* / blks xRefBit blkdata State)
  (vl-load-com)
  (and
    *doc*
    *fhnd*
    (setq blks (vla-get-Blocks *doc*))
    (vlax-for item blks
      (if (eq (vla-get-IsXref item) :vlax-true)
	(progn
	  (if (= (logand
                  (setq xRefBit (cdr (assoc 70 (setq blkdata (entget (cdr (assoc 360 (entget (vlax-vla-object->ename item)))))))))
                  4)                  
                4)
	    (setq State (strcat
			  (if (= (logand xRefBit 8) 8)
			    "Overlay"
			    "Attachment"
			    )
			  (chr 9)
			  (if (assoc 71 blkdata) ; недокументированно. logand на 32 для xRefBit не прокатывает
			    "UnLoaded"
			    "Loaded"
			    )
			  )
		  )
	    )
	  (write-line (strcat (vl-filename-base (vla-get-name *doc*)) (chr 9) (vla-get-path item) (chr 9) State) *fhnd*)
	  )
	)
      )
    )
  )

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

После того, как у меня подобные преобразования vla-указателя на объект внешней ссылки в ename-представление привели сначала "не к тому" указателю, а потом и к краху AutoCAD, я стараюсь подобное не делать Возможно, это был единичный случай - но испуга хватило ))

[WhiteShark]

Offtop: У меня такого не было вот я и не боюсь )) Как то выкручиваться же надо, если функции которые работать должны не работают нормально