recover drawing currently open

Below is a program that will 'reopen' the current drawing. How can I change this to 'recover' the current drawing ??

Thanks for any help.


(DEFUN reopen ( / ADOC AccoSaveas)

(SETQ ADOC (vla-get-ActiveDocument (vlax-get-acad-object)))
(IF (> (GETVAR "SDI") 0)(progn
(IF (= (vla-get-ReadOnly ADOC) :vlax-false) (COMMAND ".QSAVE"))
(COMMAND ".OPEN" (STRCAT (GETVAR "DWGPREFIX")(GETVAR "DWGNAME"))))

(progn
(IF (= (vla-get-ReadOnly ADOC) :vlax-false) (COMMAND ".QSAVE"))
(IF (SETQ AccoSaveas (OPEN "C:\\AccoSaveas.SCR" "w"))(progn
(WRITE-LINE (STRCAT "CLOSE OPEN \"" (GETVAR "DWGPREFIX")(GETVAR "DWGNAME") "\"") AccoSaveas)
(CLOSE AccoSaveas) ))
))

(IF AccoSaveas (COMMAND ".SCRIPT" "C:\\AccoSaveas.SCR"))

)

 

Below is a program that will 'reopen' the current drawing. How can I
change this to 'recover' the current drawing ??

(command "audit")?

 

I don't understand how a drawing that needs recovery can possibly even BE
the current drawing. Enlighten us....

Kent Cooper, AIA


...

 

I am creating a 'toolbar button' that will recover the current drawing, because the operators are not to know where the drawing is located. The drawings are opened via a drawing manager, and the manager doesn't have a recover option.

So, I would like to know how to change the supplied code from 'open current drawing' to 'recover current drawing'.

Ok ??

 

Thanks, but not the same as recover.

Just for my information, what exactly is the difference? Recover prompts for
an extarnal file, while audit runs on the current drawing. Only difference
I've noticed is that audit will find errors that don't trigger an automatic
recovery on opening a drawing -- leading me to believe that audit does a
better job. But help in 2004 gives the opposite impression, by saying that
you should run recover on a drawing that audit won't fix.

 

I'm feeling like I must be really ignorant about something here, but bear
with me....

I'm still not catching on to what could be the purpose of recovering the
current drawing, unless you mean something different from AutoCAD's Recover
command. If the drawing requires recovery, something's gone really wrong,
and you probably won't be able to use a toolbar button anyway. If it
doesn't require recovery, what's the point -- why not just open it?

(Come to think of it, I don't get why you'd want to "re-open" the current
drawing, either. What does that do for you that's any better than simply
saving it and continuing?)

I admit I don't know VLA, so I don't get how you can do a toolbar button
that closes a drawing and re-opens it, when there won't be Command prompt to
accept the Open command when it comes along, because the drawing will be
closed. With either ordinary Open or Recover, if I go for the current
drawing, I get the already-open-how-about-read-only message, so I think you
really do have to close it first. If you have (an)other drawing(s) open so
there'll still be a Command prompt around, can a toolbar button invoked in
one drawing feed stuff to another one?

But granting that your re-open thing actually works, would logic dictate
that you could just replace the word OPEN with RECOVER in appropriate
places?

Kent Cooper, AIA


...

 

How about this... I need the supplied program to change from "opening" the current drawing, to "recovering" it.

Thanks for any help.

 

You can doitif you are in the single document mode (SDI=1) but I don't think
you can otherwise.
But, I'm with Kent on this one. If the drawing is opened, why would you want
to recover it?
And if it needs to be recovered, you probably can't open it to do what you
are asking.

 

Let me simplify why I need this.

1.) drawings contain a OLE
2.) drawings are imported into a drawing manager
3.) drawing is OK, until OLE is 'clear'
4.) upon saving, after clear, drawing is crashed.
5.) if I recover the drawing, BEFORE saving, the crash does not occur.
6.) I want to make a 'program' that when selected by our users, will recover the drawing that is currently open.
7.) This is because the user does not know the location of the drawing file, therefore they can't 'recover' the normal way.

 

Even simpler...

the program will close the current drawing, then re-open it by using the 'recover' command.

 

You can do it with SDI = 1

 

I will post my original post again: (below)

Below is a program that will 'reopen' the current drawing. How can I change this to 'recover' the current drawing ??

Thanks for any help.


(DEFUN reopen ( / ADOC AccoSaveas)

(SETQ ADOC (vla-get-ActiveDocument (vlax-get-acad-object)))
(IF (> (GETVAR "SDI") 0)(progn
(IF (= (vla-get-ReadOnly ADOC) :vlax-false) (COMMAND ".QSAVE"))
(COMMAND ".OPEN" (STRCAT (GETVAR "DWGPREFIX")(GETVAR "DWGNAME"))))

(progn
(IF (= (vla-get-ReadOnly ADOC) :vlax-false) (COMMAND ".QSAVE"))
(IF (SETQ AccoSaveas (OPEN "C:\\AccoSaveas.SCR" "w"))(progn
(WRITE-LINE (STRCAT "CLOSE OPEN \"" (GETVAR "DWGPREFIX")(GETVAR "DWGNAME") "\"") AccoSaveas)
(CLOSE AccoSaveas) ))
))

(IF AccoSaveas (COMMAND ".SCRIPT" "C:\\AccoSaveas.SCR"))

)

I would like this program to 'recover' the current drawing instead of opening it.

 

This will do it with SDI = 1

(DEFUN reopen ( / ADOC AccoSaveas)
(SETQ ADOC (vla-get-ActiveDocument (vlax-get-acad-object)))
(IF (> (GETVAR "SDI") 0)
(progn
(IF (= (vla-get-ReadOnly ADOC) :vlax-false)
(COMMAND ".QSAVE")
)
(IF (SETQ AccoSaveas (OPEN "C:\\AccoSaveas.SCR" "w"))
(progn
(WRITE-LINE (STRCAT "QUIT Y RECOVER \"" (GETVAR "DWGPREFIX")(GETVAR
"DWGNAME") "\"") AccoSaveas)
(CLOSE AccoSaveas)
(COMMAND ".SCRIPT" "C:\\AccoSaveas.SCR")
)
)
)
)
)

 

Thanks, works great.
But, its not possible to do this with SDI = 0 ??

 

The problem with the multiple document mode is that when you close the
current drawing, the script that was running also closes, another opened
drawing becomes the current one and the variables that were set to recover
the previously current drawing are lost.

 

ok.. I understand now why SDI has to be 1.

How about this, if there is only 1 drawing open, have the program do the following.

1.) temp set sdi to 1
2.) recover drawing
3.) set sdi back to 0
4.) if more than 1 drawing is open, alert the user to close all other drawings.

How can I detect multiple drawings open with lisp ??

Thanks for your help.

 

(DEFUN reopen () ;( / ADOC AccoSaveas documentcnt)
(SETQ ADOC (vla-get-ActiveDocument (vlax-get-acad-object)))
(setq documentcnt (vla-get-count (vla-get-documents
(vlax-get-acad-object))))
(if (> documentcnt 1)
(alert
(strcat
"Please close all other drawings("
(itoa (1- documentcnt))
") to run reopen"
)
)

(progn
(setvar "SDI" 1)
(IF (= (vla-get-ReadOnly ADOC) :vlax-false)
(COMMAND ".QSAVE")
)
(IF (SETQ AccoSaveas (OPEN "C:\\AccoSaveas.SCR" "w"))
(progn
(WRITE-LINE
(STRCAT
"QUIT Y RECOVER \""
(GETVAR "DWGPREFIX")
(GETVAR "DWGNAME") "\""
)
AccoSaveas
)
(CLOSE AccoSaveas)
(COMMAND ".SCRIPT" "C:\\AccoSaveas.SCR")
)
)
)
)
)

 

works great, but where can I reset sdi back to 0 ??

 

got it.... thanks for all your help !!!

 

Thought it was working, but it isn't. I need to add (setvar "SDI" 0) when the script is down.

But I can't find a place to put it.