Xref files

[kulfi]

i am looking for a lisp routine which can write all the xrefs attached to the drawings and write to the Text files complete path one by one and in any case if the AutoCAD crashes i can check where the programs stops and start from there.
thanks

[Anonymous]

Try using the reference manager (a separate module on the autocad install
available through the start menu). I think that will do all you want.


wrote in message news:6378907@discussion.autodesk.com...
i am looking for a lisp routine which can write all the xrefs attached to
the drawings and write to the Text files complete path one by one and in any
case if the AutoCAD crashes i can check where the programs stops and start
from there.
thanks

[Anonymous]

Hi,

Here is a function which lists all Xrefs found in a drawing and opens the
txt file when done:

;;;=============================
(defun getpaths ( / outputfile fopen)
(defun *error*(msg)(if fopen (close fopen)))
(setq outputfile
(strcat
(getvar 'dwgprefix)
(vl-filename-base (getvar 'dwgname))
".txt"
)
)
(setq fopen (open outputfile "w"))
(vlax-for
item
(vla-get-blocks
(vla-get-activedocument
(vlax-get-acad-object)
)
)
(if (= (vla-get-isxref item) :vlax-true)
(write-line (vla-get-path item) fopen)
)
)
(close fopen)
(startapp "notepad.exe" outputfile)
(princ)
)
;;;=============================

a écrit dans le message de news: 6378907@discussion.autodesk.com...
i am looking for a lisp routine which can write all the xrefs attached to
the drawings and write to the Text files complete path one by one and in any
case if the AutoCAD crashes i can check where the programs stops and start
from there.
thanks

[kulfi]

Hi, can u tell me how can i install that reference manager can u tell me step by step.
thanks

[Anonymous]

It is installed with AutoCAD. To access it, use the windows start menu
Example: Start->All programs->Autodesk->Autocad 2010->Reference Manager.

You can't access it from within AutoCAD as far as I know but this tool lets
you
explore whole folders and projects of file interactions, not just xrefs
within a single
drawing. It can also explore nested xrefs and their relationships.

wrote in message news:6379800@discussion.autodesk.com...
Hi, can u tell me how can i install that reference manager can u tell me
step by step.
thanks

[kulfi]

Thanks for this routine but some time it is collecting all the xrefs and some time it is not so what is the problem why some time why.
THanks

[kulfi]

Hi, why this code do not work some times , some it is working but some time not what is the problem let me know.
thanks
(defun Get_Xref_Paths ()
(vl-load-com)
(defun *error*(msg)(if fopen (close fopen)))

;;;; Creat the Drectory if it do not exist
(if (not (vl-file-directory-p "D:\\CAD_Xref_Files\\"))(vl-mkdir "D:\\CAD_Xref_Files\\"))

(if (not (findfile "D:\\CAD_Xref_Files\\Xref_Dwgs_Path.txt"))
(progn
(setq outputfile (strcat "D:\\CAD_Xref_Files\\" "Xref_Dwgs_Path" ".txt"))
(setq fopen (open outputfile "w"))
(setq jbActiveDoc (vlax-get-property (vlax-get-acad-object) 'activedocument))
(vlax-for X (vla-get-blocks jbActiveDoc)(if (= (vlax-get-property X "IsXRef") :vlax-true)
(write-line (vla-get-path X) fopen)))

;(vlax-For aBlk (vla-Get-Blocks (vla-Get-ActiveDocument (vlax-Get-Acad-Object)))(cond ((= (vla-Get-IsXref aBlk) :vlax-True)
;(write-line (vla-get-path aBlk) fopen))))
;(vlax-for item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) (if (= (vla-get-isxref item) :vlax-true)
;(write-line (vla-get-path item) fopen)))
(write-line "-------------------" fopen)
(close fopen)
(startapp "notepad.exe" outputfile)
(princ)
))

;(if (findfile "D:\\CAD_Xref_Files\\Xref_Dwgs_Path.txt")
;(progn
;(Alert "\n File Xref_Dwgs_Path.txt Exists!")
;(initget 1 "D A")
;(setq Question (strcat (getkword "\nDo you want to append the Records OR Delete the File Use D for Deleting the File and A for Appending the Records .....")))
;))
;;; In anyway if u like to delete the file
;(if (= Question "D")
; (progn
;...

[kulfi]

Actually i want to do this process through a Batch Process which means i have different files in different folders and i select a main folder and automatically it goes to every folder open the drawing and if there is any xref in the drawing write it to the file (The path and the file name only).
THanks Edited by: kulfi on Apr 27, 2010 8:18 AM