help with expresstools - redir lisp routine

[framedNlv]

I would like to use a lisp routine to run the redir.lsp routine for repathing xrefs.

I tried:

(C:REDIR)
(COMMAND "*" )
(command "S:\2007_FILES\job\ARCH\SHEETS\")

It seems to stop after c:redir.
Any help how to do this with a lisp routine?


Thanks,
Chris

[T.Willey]

You can't use a lisp like that from a lisp. You might be able to use it in a script file though.

[hofcad]

I would like to use a lisp routine to run the redir.lsp routine for repathing xrefs.

I tried:

(C:REDIR)
(COMMAND "*" )
(command "S:\2007_FILES\job\ARCH\SHEETS\")

It seems to stop after c:redir.
Any help how to do this with a lisp routine?


Thanks,
Chris

Chris,
Like this?

(defun C:test1()
(command "REDIR" "" "X" "*" "S:\\2007_FILES\\job\\ARCH\\SHEETS\\")
)

or

(defun C:test2()
(command "REDIRMODE" "X")
(command "REDIR" "*" "S:\\2007_FILES\\job\\ARCH\\SHEETS\\")
)

HofCAD CSI

[framedNlv]

Chris,
Like this?

(defun C:test1()
(command "REDIR" "" "X" "*" "S:\\2007_FILES\\job\\ARCH\\SHEETS\\")
)

or

(defun C:test2()
(command "REDIRMODE" "X")
(command "REDIR" "*" "S:\\2007_FILES\\job\\ARCH\\SHEETS\\")
)

HofCAD CSI

None of those work, but thanks.

I think T.Willey is correct.

I was able to re-write the redir lisp to do what I wan't but I have to create one for each path.


Thanks,
Chris

[irneb]

(defun C:test1()
(command "REDIR" "" "X" "*" "S:\\2007_FILES\\job\\ARCH\\SHEETS\\")
)[/code]

Unfortunately (command doesn't work for custom lips. The only way of calling that command from LISP is (c:Redir). Unfortunately AC then passes execution to the Redir function, which is waiting for user input. But your lisp calling the redir is paused until Redir finishes.

I think the only way of doing this is through a SCR file. Maybe you could create a temporary SCR file from a Lisp, then load it with (command "_script" filename).

[framedNlv]

Unfortunately (command doesn't work for custom lips. The only way of calling that command from LISP is (c:Redir). Unfortunately AC then passes execution to the Redir function, which is waiting for user input. But your lisp calling the redir is paused until Redir finishes.

I think the only way of doing this is through a SCR file. Maybe you could create a temporary SCR file from a Lisp, then load it with (command "_script" filename).

Thanks,
I have been doing is via script for some time now. I was trying to avoid some issues that I have with general scripts and job specific scripts.

I might look into creating a lisp based on the redir.lsp.


Thanks,
Chris

[irneb]

I might look into creating a lisp based on the redir.lsp.

That's probably the most efficient solution in the long run. As a Tip, c:Redir basically handles user input then calls the (bns_redir path1 path2), which decides if it's a XRef, Style, Image or RText; and then runs the relevant function. So all you realy need do is create a copy of the c:Redir defun (rename it Redir for example), add 2 input parapeters & replace the code asking for user input by simply assigning the path1 & path2 with the 2 input parameters. Then you can call the new function with

(Redir "*" "S:\\2007_FILES\\job\\ARCH\\SHEETS\\")

[framedNlv]

That's probably the most efficient solution in the long run. As a Tip, c:Redir basically handles user input then calls the (bns_redir path1 path2), which decides if it's a XRef, Style, Image or RText; and then runs the relevant function. So all you realy need do is create a copy of the c:Redir defun (rename it Redir for example), add 2 input parapeters & replace the code asking for user input by simply assigning the path1 & path2 with the 2 input parameters. Then you can call the new function with

(Redir "*" "S:\\2007_FILES\\job\\ARCH\\SHEETS\\")

I did that some time back and set path2 to the current directory. That has worked out great for single folder fixes. It is actually part of our standard cleanup routine, which is a script file (the reason I want to use a lisp routine).

I also have a version that I code the path in the lisp, but I have to make multiple copies for each path. It checks each path for each xref and takes a while to complete (one job has over fifty folders). I then need to write a custom cleanup routine for that job, which wouldn't get new fixes added like our standard cleanup routine.

What I would like to do is for each xref have a list of folders (perhaps a text file) to check the path until it finds the dwg file and then go to the next xref (like useing projectname).

Side note:
I would use projectname but it seems to crash after seven directories are added (V2004-200?). It would also need to be updated on all workstations/profiles.

Thanks,
Chris

[Brams]

When I use the redir command, it says:

"Changes to some externally referenced objects may be temporary."

In fact, all of the changes are temporary. After I save, when I reopen the files, all of the xrefs have reverted back.

Any thoughts?

Thanks!

[framedNlv]

I think it has something to do with nested xref's