Lisp to set Xref path

[tbeaman]

I have been looking at lisp codes or two days and I can't find the clue that I am looking for.

I want to run a lisp that will look for the xref file names in the current directory. The open drawing and all of the xref's will be in the same folder, so I want it to reload the xref if it is found in the current directory.

I swear that doesn't sound complicated, but I'm not very good with lisp and don't know all of the possible commands.

[Opie]

That particular xref or all xrefs found in the current directory? Are you wanting to change the path of the found xrefs, too?

[BlackBox]

Here's an adaptation of a routine I already had... probably not the most efficient example, but I believe it will do what the OP wants:
(i.e., reload all xrefs that reside in the active drawing's directory)

(defun c:TEST (/ blockTable xrefName curPath)
  (vl-load-com)
  (vlax-for x (setq blockTable
                     (vla-get-blocks
                       (cond
                         (*activeDoc*)
                         ((setq *activeDoc*
                            (vla-get-activedocument
                              (vlax-get-acad-object)))))))
    (if (and (vlax-property-available-p x 'isxref)
             (= :vlax-true (vla-get-isxref x))
             (= (vl-string-right-trim
                  (strcat (setq xrefName (vla-get-name x)) ".dwg")
                    (vla-get-path x))
                    (cond
                      (curPath)
                      ((setq curPath (getvar 'dwgprefix))))))
      (progn
        (vla-reload (vla-item blockTable xrefName))
        (terpri)
        (prompt
          (strcat "\n  >>  Reloaded XREF  >>  \"" xrefName "\"")))))
  (terpri)
  (princ))

Note - this does not account for visretain sysvar.

Hope this helps!

[tbeaman]

I want to reload all of the xrefs in the drawing, if they are found in the current directory.

I tried that test lisp file and it asks me to select items in xref or current layer and when I try to select the entire drawing everything disapears.

I can open the drawing, got to xref manager, select all of the xrefs in the group and reload them, but I cannot do it with a lisp file, yet. I downloaded and tested lots of lisp files today but so far none of them have reloaded the xrefs.

[tbeaman]

I guess I didn't finish telling you what I want to do.

I want to Reload all of the xref's that it can find in the current directory, and then I am going to detach the xref's that are not loaded.

I have a lisp that will detach the xref's that are not loaded, but it will not reload them first.

Then I am going to bind the loaded xref's to the drawing and continue with a clean up routine that I already have working.

Thanks for helping me, I have been pulling my hair out over this step all day.

[BlackBox]

I want to reload all of the xrefs in the drawing, if they are found in the current directory.

That is exactly what my routine does (posted above).

I tried that test lisp file and it asks me to select items in xref or current layer and when I try to select the entire drawing everything disapears.

You haven't tested my routine at all... have you?

My routine has zero prompts for user input.

A simple enhancement to the final if statement using the vla-unload method would lend to your stated goal(s) as well. Of course, we could just jumpt to the vla-delete method and get rid of the whole reference, but what do I know!? lol

[tbeaman]

I did use your lisp file, I even copied it again this morning and tried it again.

As soon as I type in test it says "SELECT OBJECTS IN CURRENT DRAWING OR XREF" and if I hit enter or try to select everything disapears off of the screen.

I'm sorry, I didn't mean to upset you.

[Opie]

I did use your lisp file, I even copied it again this morning and tried it again.

As soon as I type in test it says "SELECT OBJECTS IN CURRENT DRAWING OR XREF" and if I hit enter or try to select everything disapears off of the screen.

I'm sorry, I didn't mean to upset you.

The routine posted by Renderman above does not contain any prompts for user input. It does have some prompts stating "Reloading XREF" with the reference name of the xref.

Do you have another routine that may be defined with the c:test name? Though, loading this routine into the drawing should overwrite any previously defined routines with the same name.

Could you post your routine? Maybe someone can assist you in adding the two tasks together.

[BlackBox]

I'm sorry, I didn't mean to upset you.

No worries, you have not upset me. ... confused a bit, yes. But nothing more. lol

Opie has an excellent point, I sometimes forget that we frequently use temporary command names (like c:TEST, or c:FOO, etc.) and this could have easily created a conflict.

If you follow Opies suggestion(s) and post your current code, we'll help get it worked out, my friend.

[cadtag]

maybe I'm missing something, but would not

(command "-xref" "r" "*")

give you the piece you need?