Lisp Command to purge and save as dwg to specific location

[Anonymous]

I have the following code, on the last line, I'm trying to figure out how to make the drawing save as to a specific location. It will use its' current drawing name. Any help would be appreciated. 

(defun c:test ()

(command "_.purge" "_all" "*" "_no"
"_.setbylayer" "_all" "" "_yes" "_yes"
"_.layer" "_color" "253" "*" ""
"_.audit" "_yes"
"_.saveas" "2013" "S:\ENGINEERING\JOBS\16-006 GM Ramos\DRAWINGS\GK\GK XREF\" "Here is where I think I can tell it to use its current dwg name")

)

[Anonymous]

Try this:

(defun c:test nil
  (command "_.Purge" "_All" "*" "_No"
	   "_.Setbylayer" "_All" "" "_Yes" "_Yes"
	   "_.Layer" "_Color" 253 "*" ""
	   "_.Audit" "_Yes")
  (command "_SAVE" (strcat "File Location" (getvar "dwgname")))
  (princ)
  )

[Anonymous]

This works great. In the event that I have to overwrite an existing file name, I will have to answer "Yes" somewhere. I just found one where it is asking yes or no. Is that easy to add? I tried it in a few places, it didn't work. 

[Anonymous]

@Anonymous

Specify your question a bit better, add a picture

[Anonymous]

@cdebolt1984

[Anonymous]

I want to answer yes to this.

[Anonymous]

@Anonymous

Are you using Saveas?

yes, if you need it:

(defun c:test nil
  
  (command "_.Purge" "_All" "*" "_No"
	   "_.Setbylayer" "_All" "" "_Yes" "_Yes"
	   "_.Layer" "_Color" 253 "*" ""
	   "_.Audit" "_Yes")
  
  (command "_.SAVEAS" "2013" (strcat "C:\\File Location\\" (getvar "dwgname")) "_Yes")

  (princ)
  )

[Anonymous]

This was working, now I'm getting this message. I'm not sure why. Here is the exact code I'm trying. Double check my directory hashes... you guys were showing a different amount, also, I've seen a lot of people use forward slashes for the directory, does this matter???

(defun c:test nil

(command "_.Purge" "_All" "*" "_No"
"_.Setbylayer" "_All" "" "_Yes" "_Yes"
"_.Layer" "_Color" 253 "*" ""
"_.Audit" "_Yes")

(command "_.SAVEAS" "2013" (strcat "\\universal-5010\S\ENGINEERING\JOBS\16-006 GM Ramos\DRAWINGS\GK\GK XREF\" (getvar "dwgname")) "_Yes")
(princ)
)

[Anonymous]

Would it be this?

(command "_.SAVEAS" "2013" (strcat "\\universal-5010\\S\\ENGINEERING\\JOBS\\16-006 GM Ramos\\DRAWINGS\\GK\\GK XREF\\" (getvar "dwgname")) "_Yes")

[Anonymous]

It is naming the drawing, yes.dwg. Please see attached command prompt, here is my latest code. so, close. 

(defun c:test nil
(command "_.Purge" "_All" "*" "_No"
"_.-purge" "_R" "_All" "_No"
"_.Setbylayer" "_All" "" "_Yes" "_Yes"
"_.Layer" "_Color" 253 "*" ""
"_.Audit" "_Yes")

(command "_.SAVEAS" "2013" (strcat "\\universal-5010\\S\\ENGINEERING\\JOBS\\16-006 GM Ramos\\DRAWINGS\\GK\\GK XREF\\" (getvar "dwgname")) "_Yes")
(princ)
)

[Anonymous]

Make sure the location of your file is correct.
if possible attach a photo with the detailed location.

(Command "_.SaveAS" "2013" (strcat "C:\\universal-5010\\S\\ENGINEERING\\JOBS\\16-006 GM Ramos\\DRAWINGS\\GK\\GK XREF\\" (getvar "dwgname")) "_Yes")

[roland.r71]

You'll have to build in a check to add the "_Y" when needed (and only then) otherwise the command will try to answer a question never asked. Messing up your "batch flow" (As that will get you errors)

Check if the file exists, if so, add "_Y" to your command arguments.

Example:

(setq filename (strcat "c:/Path/To/" (getvar "dwgname")))
(if (findfile filename)                      ; if the file exists
   (command "_.SAVEAS" "2013" filename "_Y") ; add "yes" for overwrite
   (command "_.SAVEAS" "2013" filename)      ; add nothing
)

[roland.r71 · Accepted solution]

---

@Anonymous wrote:

It is naming the drawing, yes.dwg. Please see attached command prompt, here is my latest code. so, close. 

(defun c:test nil
(command "_.Purge" "_All" "*" "_No"
"_.-purge" "_R" "_All" "_No"
"_.Setbylayer" "_All" "" "_Yes" "_Yes"
"_.Layer" "_Color" 253 "*" ""
"_.Audit" "_Yes")

(command "_.SAVEAS" "2013" (strcat "\\universal-5010\\S\\ENGINEERING\\JOBS\\16-006 GM Ramos\\DRAWINGS\\GK\\GK XREF\\" (getvar "dwgname")) "_Yes")
(princ)
)

---

Your path is incomplete.

There should be a drive letter in front of it, or if its a network path there should be 2 more backslashes.

C:\\universal-5010\\S\\ -or- C:/universal-5010/S/ or 😧 E: F: etc.

\\\\universal-5010\\S\\ -or- //universal-5010/S/