[Игорь Костюкович]

Вопрос в заголовке, собственно...
Как вариант: закрыть все открытые документы

[Дима_]

_closeall

[Игорь Костюкович]

Ржу, падаю со стула...
Дима_, огромное спасибо! А я уж полез в дебри - методы фсякие...

[Nike]

а с "методами всякими" закрывать веселее

Код:

[Выделить все]

 (defun c:close-all-save    (/ acapp adoc)    ;close with saving changes
  (vl-load-com)
  (setvar "sdi" 0)
  (setq acapp (vlax-get-acad-object))
  (vlax-for adoc
         (vla-get-documents
           acapp
         )
    (vl-catch-all-apply
      (function    (lambda    ()
          (vla-close adoc)
        )
      )
    )
  )
  (vla-put-windowstate (vla-get-activedocument acapp) acmax)
  (vla-put-windowstate (vlax-get-acad-object) acmin)
  (command "_.vbastmt" "activedocument.close true")
  (command "_.vbastmt" "application.quit ")
  (princ)
)
 
 
 
 
(defun c:close-all-no-save (/ acapp curdoc) ;close without saving changes
  (vl-load-com)
  (setvar "sdi" 0)
  (setq acapp (vlax-get-acad-object))
  (setq    cnt (vla-get-count
          (vla-get-documents acapp)
        )
    num cnt
  )
  (repeat num
    (setq curdoc (vla-item (vla-get-documents acapp) (1- cnt)))
    (vl-catch-all-apply
      (function    (lambda    ()
          (vla-close curdoc :vlax-false fname)
        )
      )
    )
    (vlax-release-object curdoc)
    (setq cnt (1- cnt))
  )
  (vla-put-windowstate (vla-get-activedocument acapp) acmax)
  (vla-put-windowstate (vlax-get-acad-object) acmin)
  (command "_.vbastmt" "activedocument.close false")
  (command "_.vbastmt" "application.quit ")
  (princ)
)

Для маньяков:
[IMG]http://i075.***********/1103/54/70202c0eed44.jpg[/IMG]

Выйти с сохранением
Выйти без сохранения
Закрыть все файлы с сохранением, свернуть AutoCAD
Закрыть все файлы без сохранения, свернуть AutoCAD
Закрыть файл с сохранением, свернуть AutoCAD
Закрыть файл без сохранения, свернуть AutoCAD
Закрыть файл с сохранением
Закрыть файл без сохранения
Свернуть AutoCAD

[Profan]

Код в таком гнусном виде вводит компьютер в ступор.

[Nike]

Сообщение от Profan Код в таком гнусном виде вводит компьютер в ступор.

Компьютер плевать хотел на код.