Modify DWGPREFIX?

[stusic]

In a lisp I'm writing, I'd like to reference a directory that's in a similar, but different, directory; i.e., if dwgprefix is "c:\temp\piping", I'd like it to be "c:\temp\misc". "c:\temp\" might change over time, but the relative location of "piping" and "misc" would always be the same. How would I go about doing that?

Many thanks in advance!

-stu

[BlackBox]

If hard-coding the directories is not an issue, then consider this simple example:

(defun _GetPath (path / bad)
  (vl-load-com)
  ;; Example: (_GetPath "c:\\temp\\piping")
  (if (vl-string-search (setq bad "piping") path)
    (vl-string-subst "misc" bad path)))

HTH

[Tom Beauford]

Try: "..\misc"
A single period references the current directory, two periods reference the parent directory.

Try adding an xref to a drawing with relitive pathing. If in the same directory it would be ".\file.dwg" or in your case "..\misc\file.dwg.

[stusic]

Well, not exactly hard-coded. I'm using the dwgprefix to get the current file location, which is what needs modification. I need to copy the file from "c:\temp" to the "misc" folder, which is the relative location of the dwgprefix (which will be in the "piping" directory).

I was starting with this (the destination filepath is just quotes, cause I didn't know how to get my variable):

(vl-file-copy "c:\\temp\\dext.xls" "" T)

Any advice?

[Tom Beauford]

Try:

 (vl-file-copy ".\\dext.xls" "..\\misc\\dext.xls" T)

or:

 (vl-file-copy (strcat(getvar "dwgprefix")".\\dext.xls") "..\\misc\\dext.xls" T)

[stusic]

Okay, per Tom's code, I modified it slightly to move it straight from the temp directory to the misc directory:

(vl-file-copy "c:\\temp\\dext.xls" (strcat(getvar "dwgprefix")"..\\misc\\dext.xls" T))

That works great, but I'm running into other problems now, so I'm going to start a new thread.

Thanks for your help all!

[stusic]

Simple fix for my other thread, but I do have one more question regarding all this moving files, etc...

I'd like to use the DWGNAME to rename my excel file, but not get the extension as well. I imagine I'd convert the variable to a string, then remove the last four characters (".dwg"), but I'm not sure that'd be the best way (nor how to exactly go about doing that).

Last bit of help I'll ask for (about this aprticular issue, anyways )

[Tom Beauford]

Simple fix for my other thread, but I do have one more question regarding all this moving files, etc...

I'd like to use the DWGNAME to rename my excel file, but not get the extension as well. I imagine I'd convert the variable to a string, then remove the last four characters (".dwg"), but I'm not sure that'd be the best way (nor how to exactly go about doing that).

Last bit of help I'll ask for (about this aprticular issue, anyways )

For years I've renamed point files extentions to CSV so I could easily open them with Excel and sort to get elevation range or find all the points of a certin type. As far as I know there isn't anything you can do with a DWG if you rename the extention. What are you trying to do?

[BlackBox]

I'd like to use the DWGNAME to rename my excel file, but not get the extension as well. I imagine I'd convert the variable to a string, then remove the last four characters (".dwg"), but I'm not sure that'd be the best way (nor how to exactly go about doing that).

???

(vl-filename-base (getvar 'dwgname))

[stusic]

Well, I wanted to change the "dext.xls" to the same name as my dwg file (as returned from dwgname), but with ".xls" instead of ".dwg". But I figured it out ("dn" being the dwgname variable). However, I didn't know about "vl-filename-base", which is sooooo much easier... This is what I did:

(setq xls (vl-string-subst ".xls" ".dwg" dn))

Thanks again so much everyone!