xref name of file

Hello,
In this news letters there is a lisp propram named getxref !

http://www.afralisp.com/newsletter/2002/2002-11.htm

I have a litle problem with it ! In the texte file I find the name
of xref, but I want the name(s) of the file(s) with path or not !

How did I have to modified it to do that ?

Thanks, Daniel

 

;;By LUCAS
(defun GETXREF (/ ITEM ABLOCK ABLOCK_PATH THELIST)
(vl-load-com)
(vlax-for ITEM (vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))
)
(if (= (vlax-get-property ITEM 'ISXREF) :vlax-true)
(progn
(setq ABLOCK (vlax-get-property ITEM 'NAME))
(if
(not
(setq ABLOCK_PATH (findfile (vlax-get-property ITEM 'PATH)))
)
(if (not (setq ABLOCK_PATH
(findfile (strcat (getvar "DWGPREFIX")
(vl-filename-base (vla-get-path ITEM))
".dwg"
)
)
)
)
(setq ABLOCK_PATH "Sorry!no file find!")
)
)
(setq THELIST (append (list (list ABLOCK ABLOCK_PATH)) THELIST))
)
)
)
THELIST
)

 

;;change
(if (not (setq ABLOCK_PATH
(findfile (strcat (vl-filename-base (vla-get-path ITEM))
".dwg"
)
)
)
)
(setq ABLOCK_PATH "Sorry!no file find!")
)

 

LUCAS avait écrit le 26/11/2004 :

Thaks for your help !
Daniel
(french user !)

 

daniel olives a émis l'idée suivante :

Hello,
Sorry but I have an error ActiveX !

; erreur: Le serveur ActiveX a renvoyé l'erreur: nom inconnu: Path

;error: ActiveX server return : name unkow: Path

I am in Autocad 2004 (french version !)

Daniel

 

daniel olives avait énoncé :

Hello,
With "change" it now ok !
But I want the list of xref name files,
listed in a .txt file "listxref.txt"
Thank's for your help !
Daniel