Topic: Rename Reference name to match Xref file name

[Dave M]

I have a bunch of files that have xrefs attached.  The xref filenames have changed.  We use Projectwise, so I don't have to do any re-mapping, but the reference names don't match the file names.


Does anyone have a routine that will rename the references to match the file names?


Thanks in advance

[ronjonp]

Old one from the library

Code - Auto/Visual Lisp: [Select]

1. (defun _matchxrnametofilename (/ b blks n o p)
2.   (setq blks (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))))
3.   (while (setq b (tblnext "block" (not b)))
4.     (if (and (setq p (cdr (assoc 1 b))) (setq o (vla-item blks (cdr (assoc 2 b)))))
5.       (progn (if (/= (cdr (assoc 2 b)) (setq n (vl-filename-base p)))
6.                (vl-catch-all-error-p (vl-catch-all-apply 'vla-put-name (list o n)))
7.              )
8.       )
9.     )
10.   )
11. )
12. ;; (_matchxrnametofilename)

[Grrr1337]

Another (I've tried to write reversive way of Ron's) :

Code - Auto/Visual Lisp: [Select]

1. (defun _matchxrnametofilename ( / p nx nb enx )
2.   (vlax-for b (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
3.     (and
4.       (eq :vlax-true (vla-get-IsXRef b))
5.       (setq p (vla-get-path b))
6.       (/= (setq nx (cadr (fnsplitl p))) (setq nb (vla-get-Name o)) )
7.       (not (tblsearch "BLOCK" nx))
8.       (vl-catch-all-apply 'vla-put-name (list b nx))
9.     )
10.   )
11. )

However this entmod part didn't worked, so thats why there are similarities between both codes :

Code: [Select]

(setq enx (entget (tblobjname "BLOCK" nb)))
(or
  (entmod (subst (cons 2 nx) (assoc 2 enx) enx))
  (entmod (append enx (list (cons 2 "asd"))))
)