Closing a drawing in LISP

[Volk359]

Greetings all,

A quick way to purge bloated drawings is to wblock them and what I'd like to do is wblock them onto the original drawing then open that drawing or at the least close it. The lisp ran fine in R14 but in 2008 something's changed and it doesn't work.

I stripped out the extraneous stuff and got to bare bones:

(setvar "CMDECHO" 0)
(setvar "EXPERT" 2)
(command "QSAVE" "WBLOCK" (strcat (getvar "dwgprefix") (GETVAR "DWGNAME")) "y" "*")

That works fine but closing the drawing requires a save or no save. If I manually type in CLOSE and N at the prompt the new purged drawing is kept however if I add

(command "close" "n")

to the lisp the drawing reverts back to its old bloated self.

What is the difference between typing it in and running the same command in LISP? Is there a fix for this?

Thanks,

Keith

 

[CarlAK]

I tried it & got this message:

Command: (command "close" "n")
close Really want to discard all changes to drawing? <N>
So in this case you want a "yes" to discard changes.

 

[Volk359]

Correct. If the changes are saved then it reverts back to the original file size and if not saved it keeps the new smaller file.

For some reason by the command line it works but not in LISP.

 

[CarlAK]

No the command line does not say "save" changes it says "discard", so you say "yes" which means do not save. or so I would interpret and at least try.

 

[Volk359]

Ah, I see, I've been going by the dialog box, i.e yes, no or cancel. Good eye, thanks!

 

[CarlAK]

I've learned to trust my eye more than my first impression
You're welcome, glad to help.