TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: Dave M on March 22, 2017, 03:06:23 PM

Title: Rename Reference name to match Xref file name
Post by: Dave M on March 22, 2017, 03:06:23 PM
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
Title: Re: Rename Reference name to match Xref file name
Post by: ronjonp on March 22, 2017, 03:17:32 PM
Old one from the library :)

Code - Auto/Visual Lisp: [Select]
  1. (defun _matchxrnametofilename (/ b blks n o p)
  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)
Title: Re: Rename Reference name to match Xref file name
Post by: Grrr1337 on March 22, 2017, 04:00:08 PM
Another (I've tried to write reversive way of Ron's) :
Code - Auto/Visual Lisp: [Select]
  1. (defun _matchxrnametofilename ( / p nx nb enx )
  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"))))
)
:)