close all

Hi
I need
"close all dwg saving them before"
"close all dwg without saving them before"
"save all dwg".

Is there something already done ?

Thanks

Domenico

 

found this at:
http://mysite.verizon.net/~vze2vjds/saveall.lsp

found by google ....

;; SaveALL command for AutoCAD 2000 ;; ;; Saves all currently open drawings that have ;; been modified since opened or last saved. ;; ;; Warning: Use entirely at your own risk. (vl-load-com) (defun C:SAVEALL () (vlax-for doc (vla-get-Documents (vlax-get-acad-object) ) (if (and (= :vlax-false (vla-get-saved doc) (vla-get-readonly doc) ) ) (progn (write-line (strcat "\nSaving " (vla-get-name doc) ) ) (vla-save doc) ) ) ) (princ) )

 

Thanks.
But "Save all" is easy.
I want close them too.
(with the options "save" and "don't save")

domenico

 

have you tried modifying the code to issue a close command?

 

From the FreeStuff page at that site:
" These custom AutoCAD tools and utilities are free for personal use, but
are copyrighted works and are not public domain. You are free to use them
for personal use, but you may not sell, lease, or mass-redistribute them on
disk or electronically. You may not post them online (including web sites,
ftp sites, bulletin boards, and other online services) for public
downloading."

 

There is a really nice program to download from Cadwerx called docbar.
This has a feature to close all with save, and close all no save. Also, its
a great tool to switch between opened drawings.

http://www.cadwerx.net/

 

Yes.
All is very easy (. . . I'm very lazy today . . .)

(defun WG_CLOSE_ALL ( / active-doc )
(setq active-doc (vla-get-activedocument (vlax-get-acad-object)))
(vlax-for doc (vla-get-Documents (vlax-get-acad-object))
(if(not (equal doc active-doc))
(vla-close doc :vlax-false)
; (vla-close doc :vlax-true)
)
)
(princ)
)

What I'm not able to do is close the current DWG.

Thanks.
domenico

 

I wish a VLisp Code . . .

 

.. . . interesting . . . but I wish only VLisp code . . .

domenico

 

As Jeff Pointed out, it's not PC to post content from
that site here, but you're free to post a link to it.

PS: caddzone.com is moving to a new server, so
the address http://mysite.verizon.net/~vze2vjds
will no longer work (going there will redirect you to
the new server however).

 

oopsie