Topic: Xref path help needed.

[jonesy]

Kerry
This works a treat on the I to P versions (it even seems to find the nested ones)

Thanks a bunch.

The title blocks wont be as simple. They were on the G\read only\cad\drawing templates, and they will be on the P drive, but in a protected area, this doesnt seem to repath those. How can I get it to find and repath them

Many thanks
T

[Glenn R]

You can't permanently change the path of a nested xref. Code WILL change it in the host drawing, but as soon as the drawing is reloaded it will be back.
However, if you change the nested xrefs path in it's PARENT xref, that will work.

[Kerry]

Hi Tracey,

What is the path:name unresoved ; ie :

Resolve Xref "Drawing111": C:\Drawing111.dwg
"Drawing111.dwg" cannot be found.


.. and what is the NEW path:name

?


added:
.. and WHA ?

... but in a protected area

[Kerry]

You can't permanently change the path of a nested xref. Code WILL change it in the host drawing, but as soon as the drawing is reloaded it will be back.
However, if you change the nested xrefs path in it's PARENT xref, that will work.

good advice.

Sounds like a job for Tracey's IT or Management guy !.

[jonesy]

Hi Tracey,

What is the path:name unresoved ; ie :

Resolve Xref "Drawing111": C:\Drawing111.dwg
"Drawing111.dwg" cannot be found.


.. and what is the NEW path:name

?


added:
.. and WHA ?

... but in a protected area

Dont worry for now Kerry. We need a protected (read only access) area to stop the engineers changing the titleblocks

[jonesy]

Is there any way that this lisp can be set to run on a batch of drawings?

[Kerry]

Yep, just needs one line to load it and one for the command.

It's past pumpkin time here, so I'll leave help with that to the others 

[T.Willey]

To have it run on multiple drawings, I would make a script.  It would open then drawing, run the command, save the drawing, repeat on a list.  I wrote a routine to make a script and run it in This thread.

Hope that is useful.

[hudster]

Try this on a COPY of one of your drawings ..

I don't use Xrefs, so testing was limited, but seems to not explode in my face

(ChangeXrefDrive "P:") < or whichever drive is new >

Code: [Select]

(defun ChangeXrefDrive (newDrive / xrefEdata)
  (mapcar
    '(lambda (blockName)
       (if
         (eq
           (logand
             4
             (cdr (assoc 70 (setq xrefEdata (entget (tblobjname "BLOCK" blockName))))
             )
           )
           4
         )
          (command "._XREF"
                   "PATH"
                   (cdr (assoc 2 xrefEdata))
                   (strcat newDrive (substr (cdr (assoc 1 xrefEdata)) 3))
          )
       )
     )
    (ai_table "BLOCK" 0)
  )
  (princ)

)

How would I change this so I could specify a new path, rather than just the drive letter?

[T.Willey]

How would I change this so I could specify a new path, rather than just the drive letter?

Code: [Select]

(defun ChangeXrefDrive (oldPath NewPath / xrefEdata tmpPath)
  (mapcar
    '(lambda (blockName)
       (if
         (eq
           (logand
             4
             (cdr (assoc 70 (setq xrefEdata (entget (tblobjname "BLOCK" blockName))))
             )
           )
           4
         )
          (if
           (and
            (/= (setq tmpPath (cdr (assoc 1 XrefEdata))) "")
            (= (strcase (vl-filename-directory tmpPath)) (strcase oldPath))
           )
           (entmod (subst (cons 1 (strcase NewPath (vl-filename-base tmpPath) ".dwg") (assoc 1 XrefEdata) XrefEdata))
          )
       )
     )
    (ai_table "BLOCK" 0)
  )
  (princ)

)
This should work.  The old path should not have the last slash, ie. c:\temp.