[Apelsinov]

подскажите, как програмно в лиспе можно закрыть открытый в акаде файл (без сохранения).

[Apelsinov]

>leha, Вот оно! то что доктор прописал!
Огромное человеческое спасибо!

[kos]

Как и обещал, отчитываюсь.

1. С использованием ActiveX и LISP можно закрыть все рисунки, кроме текущего.
2. То, что предложил leha, работает. Это из той же оперы, что и открытие рисунка. (command "_.OPEN") не работает, а при помощи VBA работает.

Пункты 1 и 2 связаны с тем, что LISP'ы грузятся в пространства имен рисунка. Именно поэтому объектная модель не поддерживается LISP'ом на 100%. А вот VBA поддерживается.

3. Конструкция (command "_.CLOSE") (command "_Yes") у меня работает из командной строки. А если из функции (программы), то ругается теми же самыми словами: "_yes Unknown command "YES". Press F1 for help."

[ViktorM]

У меня английская версия Акад 2007. Использовал для закрытия активного документа без сохранения изменений (изменения всегда есть"МАСШТАБ И Т.П.")
(command "_close" "Y")
Всё работает.

[allar8]

Нужен лиспик для закрытия сразу всех чертежей без сохранения и без "общения" с диалоговым окном подтверждения.
В лиспе пока не очень силен, по ентому и спрашиваю.
Т.е. например закрытие всех чертежей с сохранением всех чертежей просто - ^C^Csaveall ^C^C_closeall
А вот закрытие без сохранения на подобии ^C^C(command "_closeall" "Д") (у меня 2017 русский акад) - "заcтавляет общаться" с диалоговым окном подтверждения.
нужно я так понимаю цикл организовать с щетчиком равным кол-ву открытых чертежей
А может все и проще - но я пока не знаю)

[Nike]

allar8,

Код:

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

 (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)
)

[allar8]

Сообщение от Nike Код: [Выделить все] view sourceprint?01(defun c:close-all-no-save (/ acapp curdoc);close without saving changes02 (vl-load-com)03 (setvar "sdi" 0)04 (setq acapp (vlax-get-acad-object))05 (setq cnt (vla-get-count06 (vla-get-documents acapp))07 num cnt08 )09 10 (repeat num11 (setq curdoc (vla-item (vla-get-documents acapp) (1- cnt)))12 (vl-catch-all-apply13 (function (lambda()14 (vla-close curdoc :vlax-false fname))))15 (vlax-release-object curdoc)16 (setq cnt (1- cnt))17 )18(vla-put-windowstate (vla-get-activedocument acapp) acmax)19 (vla-put-windowstate (vlax-get-acad-object) acmin)20 (command "_.vbastmt" "activedocument.close false")21 (command "_.vbastmt" "application.quit ")22 23 (princ)24)

Большое спасибо!

----- добавлено через ~9 ч. -----

Сообщение от Nike 01 (defun c:close-all-no-save (/ acapp curdoc);close without saving changes 02 **(vl-load-com) 03 **(setvar "sdi" 0) 04 **(setq acapp (vlax-get-acad-object)) 05 **(setq cnt (vla-get-count 06 ******(vla-get-documents acapp)) 07 **num cnt 08 **) 09 *** 10 **(repeat num 11 ****(setq curdoc (vla-item (vla-get-documents acapp) (1- cnt))) 12 ****(vl-catch-all-apply 13 ******(function (lambda() 14 ******(vla-close curdoc :vlax-false fname)))) 15 ****(vlax-release-object curdoc) 16 ****(setq cnt (1- cnt)) 17 **) 18 (vla-put-windowstate (vla-get-activedocument acapp) acmax) 19 **(vla-put-windowstate (vlax-get-acad-object) acmin) 20 ****(command "_.vbastmt" "activedocument.close false") 21 **(command "_.vbastmt" "application.quit ") 22 * 23 **(princ) 24 )

Все гуд но заметил, что вкладки файла после этой команды появляются. Я их не люблю. Можно это как нить исправить?

----- добавлено через ~9 ч. -----
закоментировал

Сообщение от Nike (setvar "sdi" 0)

вроде получилось

[allar8]

Сообщение от Nike Код: [Выделить все] view sourceprint?01(defun c:close-all-no-save (/ acapp curdoc);close without saving changes02 (vl-load-com)03 (setvar "sdi" 0)04 (setq acapp (vlax-get-acad-object))05 (setq cnt (vla-get-count06 (vla-get-documents acapp))07 num cnt08 )09 10 (repeat num11 (setq curdoc (vla-item (vla-get-documents acapp) (1- cnt)))12 (vl-catch-all-apply13 (function (lambda()14 (vla-close curdoc :vlax-false fname))))15 (vlax-release-object curdoc)16 (setq cnt (1- cnt))17 )18(vla-put-windowstate (vla-get-activedocument acapp) acmax)19 (vla-put-windowstate (vlax-get-acad-object) acmin)20 (command "_.vbastmt" "activedocument.close false")21 (command "_.vbastmt" "application.quit ")22 23 (princ)24)

еще чуть чуть закоментировал в Вашей версии - чтоб не сворачивалось
и еще одну версию приложил чтоб докучи и с закрытием автокада см. вложения