Need help!! Saving X-ref Paths

I need to write a script/Lisp Routine to Save paths for a number of projects (Which is a lot), to cut down the personal attention. Is there a way to get around specifying specific X-refs and making global change no matter what x-refs are loaded??

Thanx
Troy

 

This gets the paths to XREF. You can hack it to set the path rather
than to get the path. I hope this helps some.

;------------------------------------------------------------------------------
;GETXREF: Get external reference path
;------------------------------------------------------------------------------
(defun GETXREF (/ ABLOCK ACTIVEDOC ITEM THEBLOCKS THELIST YESXREF)
(vl-load-com)
;retrieve a reference to the Active Document
(setq ACTIVEDOC (vla-get-activedocument (vlax-get-acad-object)))
;retrieve a reference to the blocks
(setq THEBLOCKS (vla-get-blocks ACTIVEDOC))
;create an empty list
(setq THELIST '())
;process each block
(vlax-for ITEM THEBLOCKS

;check if it's an Xref
(setq YESXREF (vlax-get-property ITEM 'ISXREF))
;if it is
(if (= YESXREF :vlax-true)
;do the following
(progn
;get the Xref name
(setq ABLOCK (vlax-get-property ITEM 'NAME))
;store it in the list
(setq THELIST (append (list ABLOCK) THELIST))
) ;progn
) ;if
) ;vlax-for
;print the list
THELIST
) ;defun

 

You didn't mention AutoCAD versions, but starting with 2002 Extensions (2004
base) there is the Reference Manager external application.

--
R. Robert Bell


I need to write a script/Lisp Routine to Save paths for a number of projects
(Which is a lot), to cut down the personal attention. Is there a way to get
around specifying specific X-refs and making global change no matter what
x-refs are loaded??

Thanx
Troy