[plaz]

Создал себе кнопочку, с макросом _close, которая закрывает файл, но есля я в этом файле сделаю хоть малейший zoom, то Acad начинает спрашивать меня про сохранение файла. Че надо дописать в макрос, чтобы файл закрывался без сохранения?

[URKA]

А зачем кнопочки создавать? Их и так не мерено...
Просто нажми Ctl+F4.

ЗЫ Я правильно понял проблему, или нет...

[Mikhail]

Это где то обсуждалось... в поиске не нашел что то. Может кто ни будь из дискутирующих тогда вспомнит название.

[plaz]

Сообщение от URKA А зачем кнопочки создавать? Их и так не мерено... Просто нажми Ctl+F4. ЗЫ Я правильно понял проблему, или нет...

Ну во первых пальцы не такие длинные, а во вторых все равно спрашивает о сохранении

[Lenich]

На cadalog.com такой вопрос обсуждался и выяснилось, что любое изменение в чертеже (даже зоом) при закрытии документа ведет к диалоговому окну с подтверждением на сохранение. И с этим ничего не сделать.

Только чего-то этот форум больше не работает

[URKA]

Неужели так трудно нажать Ctl+

[plaz]

Да хрен с ним с этим диалоговым окном, я то хочу при помощи макроса ответить на запрос "нет". А на счет "ничего не сделать" это ты зря. Не так давно, уважаемый vk, посоветовал надстроечку в Acad от CadWerx. Смысл ее в том, что в Acad'е появляется панель с ярлычками, как в Excel, чтобы удобно было перемещаться между открытыми в одном сеансе файлами. Так вот эта в этой надстройке есть опция Close All / Not Save. И все это прекрасно работает даже с измененными файлами.

[URKA]

Рука дрогнула блин!
Неужели так трудно нажать Ctl+S, а потом Ctl+F4.
Ну вы Господа, совсем обленились! Проблема прямо таки из ничего...

[Lenich]

Да хрен с ним с этим диалоговым окном, я то хочу при помощи макроса ответить на запрос "нет".

Код:

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

Sub CloseWithoutSave()

Dim activeDoc As AcadDocument

Set activeDoc = ThisDrawing.Application.ActiveDocument
activeDoc.Close ("false")

End Sub

Может это поможет.

[BigBrother]

Применительно к меню -

Код:

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

(command "vbastmt" "ThisDrawing.Application.ActiveDocument.Close false")

[plaz]

Код:

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

^C^C_vbastmt;ThisDrawing.Application.ActiveDocument.Close;

Нормально работает! Тока маненко притормаживает, а один раз вааще ошибку VBAшную выкинул. Ну да ладно, главное работает. Спасибо всем!

2URKA: ну ты не прав!!! Почему обленились? наоборот повышаем производительнось труда наиболее удобной заточкой для себя Акада. Заметь я не выкладываю эту фишку в "Советы профи". Просто мне ето надо. Удачи.

[Геннадий aka PG]

Сообщение от plaz наоборот повышаем производительнось труда наиболее удобной заточкой для себя Акада.

Так надо "повышать" производительность у конкурентов или просто нехороших людей, поработал он часов 6 с файлом, нажал на кнопку и... как и не работал, завтра все заново ...

[Lenich]

Сообщение от plaz Код: [Выделить все] ^C^C_vbastmt;ThisDrawing.Application.ActiveDocument.Close; Нормально работает!

И даже без "false" работает :?:

[Apelsinov]

один раз в лиспе очень нужно было закрыть текущий чертеж без сохранения, использовал
(command "_.vbastmt" "ThisDrawing.Close False")
, хотя у лисп-программистов такой подход вызывает зубную боль....но другого выхода я не знаю.

[plaz]

Сообщение от Lenich Сообщение от plaz Код: [Выделить все] ^C^C_vbastmt;ThisDrawing.Application.ActiveDocument.Close; Нормально работает! И даже без "false" работает :?:

Так в том то и дело, тоже был удивлен!

[Mikhail]

А у меня без False не работает. вернее работает, но сохраняет.

[plaz]

Сообщение от Mikhail А у меня без False не работает. вернее работает, но сохраняет.

блин у меня тоже, тока щас узрел, хотя мне по барабану, мне главное штобы диалог не выскакивал

[Vova]

Иметь возможность закрыть файл без сохранения стандартным способом (через предупреждения) и кнопкой без предупреждения таит в себе большую опасность потерять работу, особенно если неск. файлов открыто и не все надо несохранять. Поэтому эта кнопка, раз уж вы хотите ее иметь, не должна светиться на экране при нормальной работе, только в режиме просмотра.

[Mikhail]

особенно если неск. файлов открыто и не все надо несохранять

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

[Lenich]

Можно на кнопку навесить доп.функцию проверки что сделал пользователь (напр. если это Плот или Зоом или Удалил чего), то при закрытии не спрашивать, а если дорисовал чего то обязательно спросить (можно два раза )