Topic: Close all open drawings

[ArgV]

Ok you lisp guru's, is there a way to open drawings in a directory using Tim's "mynext" and "myprevious" without vba?
It would be great to have these functions for autocad 2010, since it does not support vba.

Acad 2010 doesn't support VBA?

[alanjt]

Ok you lisp guru's, is there a way to open drawings in a directory using Tim's "mynext" and "myprevious" without vba?
It would be great to have these functions for autocad 2010, since it does not support vba.

Acad 2010 doesn't support VBA?

you have to install it, no longer standard.

[Crank]

Acad 2010 doesn't support VBA?

Autodesk will continue to support VBA now and into the foreseeable future in the AutoCAD product line. They have a transition plan to .NET and VSTA and expect to support VBA until research shows most customers have migrated their code (which could take years.)

At the moment Autodesk is offering VBA for download on their website, but I've read the 64bit version is very slow (haven't tried it).
VB(A) doesn't have a future because everyone is moving to 64bit and Microsoft doesn't support VB any more.

[taner]

Here's two for you 

Open All Drawings in a Directory:

Code: [Select]

;; Open_all by Lee McDonnell

(defun c:open_all (/ path dwg)
  (if (setq path (Directory-Dia "Select Directory: "))
    (progn
      (foreach dwg (mapcar
                     (function
                       (lambda (file)
                         (strcat path file)))
                     (vl-directory-files path "*.dwg" 1))
      (if (vl-catch-all-error-p
            (vl-catch-all-apply
              (function
                (lambda ( )
                  (vla-open
                    (vla-get-Documents
                      (vlax-get-acad-object)) dwg :vlax-false)))))
        (princ (strcat "\n** " dwg " Failed to Open **")))))
    (princ "\n*Cancel*"))
  (princ))

(defun Directory-Dia  (Message / sh folder folderobject result)
  ;; By Tony Tanzillo
  (vl-load-com)
  (setq sh (vla-getInterfaceObject
             (vlax-get-acad-object) "Shell.Application"))
  (setq folder (vlax-invoke-method sh 'BrowseForFolder
                 (vla-get-HWND
                   (vlax-get-Acad-Object)) Message 0))
  (vlax-release-object sh)
  (if folder
    (progn
      (setq folderobject (vlax-get-property folder 'Self)
            result (vlax-get-property FolderObject 'Path))
      (vlax-release-object folder)
      (vlax-release-object FolderObject)
      (if (/= (substr result (strlen result)) "\\")
        (setq result (strcat result "\\"))
        result))))

Open Latest Drawing in a Directory:

Code: [Select]

;; Open_last by Lee McDonnell

(defun c:open_last (/ path lst dwg)
  (if (setq path (Directory-Dia "Select Directory: "))
    (progn
      (foreach dwg (mapcar
                     (function
                       (lambda (file)
                         (strcat path file)))
                     (vl-directory-files path "*.dwg" 1))
        (setq lst
               (cons
                 (list dwg (remove_nth (vl-file-systime dwg) 2)) lst)))
      (if (vl-catch-all-error-p
            (vl-catch-all-apply
              (function
                (lambda ( )
                  (vla-open
                    (vla-get-Documents
                      (vlax-get-acad-object))
                    (setq dwg (dSort lst)) :vlax-false)))))
        (princ (strcat "\n** " dwg " Failed to Open **"))))
    (princ "\n*Cancel*"))
  (princ))

(defun Directory-Dia  (Message / sh folder folderobject result)
  ;; By Tony Tanzillo
  (vl-load-com)
  (setq sh (vla-getInterfaceObject
             (vlax-get-acad-object) "Shell.Application"))
  (setq folder (vlax-invoke-method sh 'BrowseForFolder
                 (vla-get-HWND
                   (vlax-get-Acad-Object)) Message 0))
  (vlax-release-object sh)
  (if folder
    (progn
      (setq folderobject (vlax-get-property folder 'Self)
            result (vlax-get-property FolderObject 'Path))
      (vlax-release-object folder)
      (vlax-release-object FolderObject)
      (if (/= (substr result (strlen result)) "\\")
        (setq result (strcat result "\\"))
        result))))

; Stig
(defun remove_nth (lst i / a)
  (setq a -1)
  (vl-remove-if
    (function
      (lambda (n) (= (setq a (1+ a)) i))) lst))

(defun dSort (lst / lst)
  (while
    (progn
      (cond ((not
               (vl-remove-if 'null
                 (mapcar 'cadr lst)))
             (setq lst nil))
            ((apply '=
               (vl-sort
                 (mapcar 'caadr lst)
                   (function
                     (lambda (a b) (< a b)))))
             (setq lst (mapcar
                         (function
                           (lambda (x)
                             (list (car x) (cdadr x)))) lst)))
            (t (setq lst (caar lst)) nil))))
  lst)

Enjoy

Can't open the "lt version" dwg.

[Joe Burke]

I'm not sure this applies to the issue, but it works well for me.

Code: [Select]

;; JB 12/5/2008
;; Save and close all open documents.
(defun c:SaveCloseAll ( / *acad* ad)
  (vl-load-com)
  (setq *acad* (vlax-get-acad-object)
        ad (vla-get-ActiveDocument *acad*)
  )
  (vlax-for x (vla-get-documents *acad*)
    (if (not (equal x ad))
      (progn
        (vlax-invoke x 'Save)
        (vlax-invoke x 'Close)
      )
    )
  )
  (command "._close" "yes")
) ;end

;------------------------------------
;shortcut
(defun c:SCA () (c:SaveCloseAll))
;------------------------------------


[GDF]

Thanks guys.

[taner]

Here is mine.  Pretty much the same thing, but mine doesn't try and save them.  It hasn't locked up my Acad though.

Code: [Select]

(defun c:CloseAllButActive(/ tmpList)
    
    (vl-load-com)
    (vlax-for item (vla-get-documents (vlax-get-acad-object))
        (if (= (vla-get-active item) :vlax-false)
            (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-close (list item :vlax-false)))
                (setq tmpList (cons item tmpList))
            )
        )
    )
    (foreach item tmpList
        (prompt (strcat "\n Drawing could not be closed \"" (vla-get-name item) "\"."))
    )
    (princ)
)


Chang:

Code: [Select]

(defun c:CloseAllButActive (/ tmpList)
  (vl-load-com)
  (vlax-for item (vla-get-documents (vlax-get-acad-object))
    (if
      (vl-catch-all-error-p
(vl-catch-all-apply
  'vla-close
  (list item :vlax-false)
)
      )
       (prompt (strcat "\n Drawing could not be closed \""
       (vla-get-name item)
       "\"."
       )
       )
    )
  )
  (princ)
)

[jxphklibin]

Here is my routine:

Code: [Select]

;;不保存关闭所有文档
(defun c:USave-CloseAll ( / ACADOBJ DOCS DOC)
   (vl-load-com)
   (SETVAR "SDI" 0)
   (setq ACADOBJ (vlax-get-acad-object)
  DOCS (vla-get-documents ACADOBJ)
  DOC (vla-get-activedocument ACADOBJ)
   )
   (vlax-for d DOCS
     (if (not (equal DOC d))
       (vla-close d :vlax-false)
     )
   )
   (command "vbastmt"  "AcadApplication.activeDocument.close false ")
   ;;最后关闭当前活动的文档,这样就把所有的文档都关闭了 false 不保存关闭当前文档，true 保存然后关闭当前文档
   (princ)
)

;;保存并关闭所有文档
(defun c:Save-CloseAll ( / ACADOBJ DOCS DOC)
   (vl-load-com)
   (SETVAR "SDI" 0)
   (setq ACADOBJ (vlax-get-acad-object)
  DOCS (vla-get-documents ACADOBJ)
  DOC (vla-get-activedocument ACADOBJ)
   )
   (vlax-for d DOCS
     (if (not (equal DOC d))
       (vla-close d :vlax-true) ;_改为:vlax-true表示保存后关闭
     )
   )
   (command "vbastmt"  "AcadApplication.activeDocument.close true ")
   ;;最后关闭当前活动的文档,这样就把所有的文档都关闭了 false 不保存关闭当前文档，true 保存然后关闭当前文档
   (princ)
)


[Krushert]

2010 has this feature built right in. 

[antistar]

I'm not sure this applies to the issue, but it works well for me.

Code: [Select]

;; JB 12/5/2008
;; Save and close all open documents.
(defun c:SaveCloseAll ( / *acad* ad)
  (vl-load-com)
  (setq *acad* (vlax-get-acad-object)
        ad (vla-get-ActiveDocument *acad*)
  )
  (vlax-for x (vla-get-documents *acad*)
    (if (not (equal x ad))
      (progn
        (vlax-invoke x 'Save)
        (vlax-invoke x 'Close)
      )
    )
  )
  (command "._close" "yes")
) ;end

;------------------------------------
;shortcut
(defun c:SCA () (c:SaveCloseAll))
;------------------------------------


I want to take the theme of this post to ask:
 Does anyone know how to close all drawings without saving?

[Lee Mac]

I want to take the theme of this post to ask:
 Does anyone know how to close all drawings without saving?

Using Joe's method:

Code - Auto/Visual Lisp: [Select]

1. (defun c:ca ( / app acd )
2.     (setq app (vlax-get-acad-object)
3.           acd (vla-get-activedocument app)
4.     )
5.     (vlax-for doc (vla-get-documents app)
6.         (if (not (equal doc acd))
7.             (vla-close doc)
8.         )
9.     )
10.     (command "_.close" "_Y")
11.     (princ)
12. )

Or, simply the 'closeall' command (Express Tools).