[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]

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

[Mikhail]

Lenich
А вот это интереснее, но тут наверное макросом не обойтись
А ЛИСПом я не владею. Но идея интересная так что если у кого то из знающих людей появиться такая необходимость и Вы решите такую задачу не заюудьте ЛИСПик скинуть .
А пока буду ничего не сохранять

[Lenich]

Сообщение от Mikhail тут наверное макросом не обойтись

Согласен.

Надо покумекать как лучше это дело реализовать.

[Hans667]

а никто в итоге не осуществил это?

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

[Botanik]

Я этот вопрос решил через лисп. Накорябал себе макрос и забил его на комбинацию клавиш. Закрывает текущий чертеж не сохраняя. С кнопкой мудрить не надо, да и привык работать с горячими клавишами.

Код:

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

(defun c:[] nil (command "close" "Y")(princ))

[E-degtyarev]

Вот еще вопрос по теме: на некоторых машинах (но не на всех) наблюдается такое явление - после загрузки файла не делая никаких манипуляций не выполняя никаких команд сразу клик на черный крестик в правом верхнем углу. После этого документ должен "молча" закрыться, а он гад все равно спрашивает сохранить изменения или нет. Что это - глюк или есть какие настройки? ACAD2008Rus.

[Кулик Алексей aka kpblc]

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

[Александр Ривилис]

Сообщение от E-degtyarev после загрузки файла не делая никаких манипуляций не выполняя никаких команд сразу клик на черный крестик в правом верхнем углу. После этого документ должен "молча" закрыться

Кто сказал что он должен молчать, когда его так сразу крестом? :-) А если серьезно, то проблема в сторонних приложениях, которые при загрузке чертежа что-то в нем меняют (например, значения системных переменных или вид...) В этом случае значение переменной DBMOD становится отличным от 0 и AutoCAD спрашивает сохранение.

[E-degtyarev]

Век живи - век учись -...

Спасибо.

PS: Начальник рскричался, что у него раньше было так, а теперь иначе. А я действительно в Acad2008doc.lsp записал несколько команд.