Disabling new drawing at startup

[Siberian]

It annoys me that AutoCAD always opens a new drawing at startup...can I disable this somehow?

[pefi]

Another dirty hack....

 

(defun QuitIfEmpty ( / )
 (if (and (= (getvar "SDI") 0) (= (ssget "_X") nil)) (command "_close"))
)
(QuitIfEmpty)

Przemo

[Guest Alan Cullen]

Pefi.....do I stick that in the acaddoc.lsp file?

[Norts]

The lisp posted above by pefi will only work if your AutoCAD starts up with a template that has no entities within it. e.g. if your template has layouts (paper or model) in it that contain borders for example then the above lisp will not work.

having said that, it is quite nifty

[Guest Alan Cullen]

My template only has system settings etc I want.....no entities of any kind.....sorry for the thread-jack, Siberian.....but we are both after the same thing here......

 

So do I stick pefi's code in the acaddoc.lsp file?

[Norts]

Alan, I think you can either put it in your acaddoc.lsp or you can put in your appload startup suite.

i think either way would be fine. i did the latter of the 2 options i've listed here, and it worked ok.

[pefi]

The lisp posted above by pefi will only work if your AutoCAD starts up with a template that has no entities within it. e.g. if your template has layouts (paper or model) in it that contain borders for example then the above lisp will not work.

having said that, it is quite nifty

 

Yes, you're right - my mistake!

But I think I've got idea how to do it... stay in tune! :wink:

Przemo

[pefi]

My template only has system settings etc I want.....no entities of any kind.....sorry for the thread-jack, Siberian.....but we are both after the same thing here......

 

So do I stick pefi's code in the acaddoc.lsp file?

 

Yes, as Norts said..

Przemo

[Guest Alan Cullen]

Cheers all, and thanks very much.....

[Norts]

Itsa nota problem

[pefi]

Dirty hack No. 2....

 

(defun QuitIfEmpty (/)
 (vl-load-com)
 (if (and (= (getvar "SDI") 0)
      (= (vla-get-fullname
       (vla-get-activedocument
         (vla-get-application(vla-get-documents (vlax-get-acad-object)))))
         ""
      )
     )
   (command "_close")
 )
)

(QuitIfEmpty)

 

 

I'm waiting for someboty to tell: "you can get the same result if you set system variable xyz to 0"....

Przemo

[Siberian]

I don't seem to have the acaddoc.lsp anywhere...can I create it, and if so, where do I put it?

[Guest Alan Cullen]

yeah, create it and stick it in your acad\support folder.

[SLW210]

I don't seem to have the acaddoc.lsp anywhere...can I create it, and if so, where do I put it?

 

It is here..................

 

C:\Program Files\AutoCAD 2008\Support

[qball]

under "options - system tab", you could pick "show startup dialog box" on the right. then you pick a recently used drawing or browse instead of having a new, blank drawing open.

[AFitchguy07]

in 2011 is this file called acad2011doc.lsp?

[ReMark]

Do not edit acad2011doc.lsp. Edit acaddoc.lsp if you feel you must.

[MSasu]

No, must use the acaddoc.lsp as suggested; the acad2011doc.lsp file is used by Autodesk and therefore should not be modified.

 

Regards,

[ReMark]

Actually Dean Saadallah posted this over at the AutoDesk Discussion forums some time ago saying the advice came from the people at DOTSOFT. He said it needs to go in the acad.lsp file.

 

(defun-q mystartup ()

(while (eq 1 (logand 1 (getvar "CMDACTIVE"))))

(command "_CLOSE")

)

(setq S::STARTUP (append S::STARTUP mystartup))

[DNK]

STARTUP at command line.