Recherche chemin Xref liée

[oran]

Bonjour,

Je recherche un moyen de retrouver le chemin exact d'une Xref qui est [surligneur]liée[/surligneur] au dessin... ;) . J'ai trouvé qq solutions mais uniquement pour des Xref attachées et non liées

...de ce genre par exemple:

 

(defun c:id_xref ( / a liste_xref)

(setq a (tblnext "block" t))

(setq liste_xref nil)

(while a

(if (= (logand (cdr (assoc 70 a)) 4) 4)

(progn

(setq liste_xref (append liste_xref (list (cdr (assoc 1 a)))))

(princ (strcat "\n\t\tXref trouvé ---> " (cdr (assoc 1 a))))

)

)

(setq a (tblnext "block"))

)

(if liste_xref

(progn

(setvar "TEXTEVAL" 1)

(command "_.-text" pause pause pause)

(foreach n liste_xref (command (eval n) "_.-text" ""))

(command "")

(setvar "TEXTEVAL" 0)

)

)

(princ)

)

 

Merci d'avance,

Oran