[kp+]

Как программно определить путь файла внешней ссылки, выбранной командой entsel?

[Alaspher]

Как то так:

Код:

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

(setq blks (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object)))
      xref (vlax-ename->vla-object (car (entsel)))
)
(if (and xref
         (= :vlax-true (vla-get-IsXRef (vla-item blks (vla-get-name xref))))
    )
  (vla-get-Path xref)
)

[Александр Ривилис]

Или как-то так без использования vla-функций:

Код:

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

(defun get_xref_path ( / en e blk path) 
  (if (setq en (car (entsel "\nВыберите XREF: "))) (progn
    (if (setq e (entget en) blk (cdr (assoc 2 e))) (progn
     (setq path (cdr (assoc 1 (tblsearch "block" blk))))
    )) 
  ))
  path
)

[kp+]

Благодарю!