This function can be used if you have moved an xref to another location or if you both have renamed the xref as well as moved it to a new folder.

First argument is the old name
Second argument is the new name
Third argument is the path for the new xref
(fixref "XR_01-LIB A" "XR_201" "W:\\project\\1234\\")

More Free AutoLISP and Visual LISP code snippets for AutoCAD

 Click here to download the code as a file.


(defun XrefRename (oldname newname newpath)
  (if (and (findfile (strcat newpath newname ".dwg"))
    (ssget "X" (list '(0 . "INSERT") (cons 2 oldname))))
      ; rename the xref if it is found
      (command "rename" "b" oldname newname)
      ; change the path of the xref if it is found
       (strcat newpath newname)