XREF Lisp routines

[Baber62]

Lee,

 

I get the following (see attached image) when I type xref at the command line.

[Lee Mac]

OK, so your XRef is inserted with a Full Path and is also found at (and hence loaded from) the given Saved Path.

[Baber62]

@Lee,

 

Yet when I use the XRR it does not load the x-references? Is there some setting that I am missing?

[Lee Mac]

Yet when I use the XRR it does not load the x-references? Is there some setting that I am missing?

 

The External References list in your image looks huge with a vast number of unreferenced image files; are there perhaps other XRefs further down the list that are not found?

 

Here is a 'verbose' version of the program to inform you of the status of each XRef encountered:

(defun c:xrr ( / err )
   (vlax-for block (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
       (if (= :vlax-true (vla-get-isxref block))
           (if (findfile (vla-get-path block))
               (if (vl-catch-all-error-p (setq err (vl-catch-all-apply 'vla-reload (list block))))
                   (princ
                       (strcat "\nError reloading XRef '"
                           (vla-get-name block) "': "
                           (vl-catch-all-error-message err)
                       )
                   )
                   (princ (strcat "\nXRef '" (vla-get-name block) "' reloaded successfully."))
               )
               (princ (strcat "\nXRef '" (vla-get-name block) "' not found."))
           )
       )
   )
   (princ)
)
(vl-load-com) (princ)

[sinnerboy]

Gravedigging (again)

 

Can anyone show a lisp that will select all xref's and move them to 0,0,0 and rotate to 0 degrees ?

 

Thanks