[Spy]

Жила-была база эелементов. Каждый элемент в своем двж файле. И стали их приглашать в сборки - другие двж файлы(как блоки вставлять)! Но иногда по ошибке приглашали не те элемнты! Чтобы их прогнать приглошали Дядю "Отката" (undo). Если незванных элементов было много и пригласили их давно, то приходил ЗЛОЙ ФАТАЛЭРОР!!! И всем наставал пи...ц!
Спите спокойно!

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

Мои поздравления. А теперь то же самое, но:
1) по-русски.
2) литературно (без мата и закосов под него)
3) подробно (версия acad'a, наличие сервис-паков, доп.приложений типа СПДС...)
4) без эмоций.
5) и задай все же вопрос.

[Spy]

Собственно вопрос:
Как победить фатал эрор?
Параметры: Автокад 2006 русский. на него ставим Autoplant. Вызов вставки блоков осуществляем с помощью VBA. из файлов ДВЖ. При вставке разбиваем и формируем группы. При откате назад , т.е. мы отменяем вставку блока из двж файла, происходит ФАТАЛЭРОР!

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

Сервис-пак ставил на acad?

[X-DeViL]

Вот блин издержки професси моей )) Угадайте что я подумал когда прочел название???

[Евгений А.]

У меня на АС2006 подобная ошибка происходит, если программно поставить не закрытую StartUndoMark. При попытке возврата - 100% Фатальная ошибка.
Возможно в вашем VBA приложении подобный косячок...

[lee]

Сообщение от X-DeViL Вот блин издержки професси моей )) Угадайте что я подумал когда прочел название???

Ты не один (с)

[Spy]

Автокад в Автодеске покупали. Примерно полгода назад. Мне кажется, что в него сервис пак должен быть интерирован. Это можно проверить? Где посмотреть?

[Om81]

Сообщение от X-DeViL Вот блин издержки професси моей )) Угадайте что я подумал когда прочел название???

Не только ты..
Я ж говорю -надо темы из разных разделов в разные цвета красить..

[Spy]

Сообщение от Евгений А. У меня на АС2006 подобная ошибка происходит, если программно поставить не закрытую StartUndoMark. При попытке возврата - 100% Фатальная ошибка. Возможно в вашем VBA приложении подобный косячок...

Хм... Вот, вот... можете поподробнее плизз...

[Евгений А.]

Пожалюйта
Кинь в ком строку это:

Код:

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

(vla-StartUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))

Теперь UNDO несколько раз (2006 - 2 раза, 2007 - где-то раз 5 (прямо в натуре "ОТКАТ,,,"), 2008 - бесполезно)

Только пристегнись и приготовься к ВЫЛЕТУ!!!

[KSI]

> Spy
Сервиспаки для Автокада не интегрированы, качаются отдельно.
http://usa.autodesk.com/adsk/servlet...linkID=9240618
Проверить можно: меню "Справка" - "О программе", кнопка "О продукте". Строка "Пакет обновления".

[Spy]

В разделе обновления стоит 0. Если бы сервис пак интегрировался разве он считался бы обновлением???

[Spy]

Сообщение от Евгений А. Пожалюйта Кинь в ком строку это: Код: [Выделить все] (vla-StartUndoMark (vla-get-ActiveDocument (vlax-get-acad-object))) Теперь UNDO несколько раз (2006 - 2 раза, 2007 - где-то раз 5 (прямо в натуре "ОТКАТ,,,"), 2008 - бесполезно) Только пристегнись и приготовься к ВЫЛЕТУ!!!

А как это будет на VBA?

[Lamer Inc..]

... И я вот клюнул на тему. Ожидал увидеть нормативные значения откатов, действующие в настоящее время в строительстве и проектировании.

Да уж... Сейчас такое время: не дашь откат - не получишь работу. Это свидетельствует о том, что рыночная экономика и здоровая конкуренция на пути становления. Поживем - увидим! А вопрос интересный: какое соотношение договорной цены и размера отката наиболее распространено?

[Евгений А.]

Сообщение от Spy А как это будет на VBA?

Наверное так

Код:

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

Sub good_bay()
ThisDrawing.StartUndoMark
End Sub

[ppv]

У нас откаты до 10% от стоимости договора включая НДС (если договор небольшой)

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

"Неправильно ты, дядя Федор, бутерброд ешь" (с)
ИМХО надо так:

Код:

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

Public Sub MakeIt()
  ThisDrawing.StartUndoMark
  ' Собственно вставка внешнего блока
  ThisDrawing.EndUndoMark
End Sub

То есть ИМХО надо просто "обрамить" маркерами отмены выполняемые действия. При этом крайне желательно избегать варианта, при котором метки начала и конца отмены еще встречаются и внутри куска

Код:

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

  ' Собственно вставка внешнего блока

Иначе акад может повести себя немного непредсказуемо.

[Spy]

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

[Kryaker]

Ожидал увидеть нормативные значения откатов

Это батенька надо новый раздел СНИП-ов писать, а в старые вносить правку... Может поэтому СНИП-ы и отменяют что сей раздел кишка тонка написать...

[Евгений А.]

Сообщение от Кулик Алексей aka kpblc "Неправильно ты, дядя Федор, бутерброд ешь" (с)

Конечно неправильно! Это просто пример того как сделать вылет с фатальной ошибкой при UNDO. Зная причину, знаешь как лечить.
В реальности такое происходит, когда программа прерывается на какой-нибудь ошибке не дойдя до EndUndoMark, что усложняктся тем, что по логике закрытие метки надо делать в самом конце программы (и в конце обработчика ошибок, где тоже может произойти ошибка раньше), и тогда возможена наша ситуация с вылетом при Undo.

[Spy]

Хочу экспириенс прокачать по VBA для автокада. Есть ли какая нить книжка написаная в художественном стиле? С большим количеством эпитетов, преамбул, олицетворений и других приемов, делающих чтение удивительным и захватывающим процессом))) :?:

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

Охохох... Евгений, ну не буду я писать о том, как правильно разрабатывать программы - я ж не Эдуард, ShaggyDoc, Н.Н.Полещук, А.Н.Ривилис, Alaspher, Евгений Елпанов, VVA, Лентяй, {Smirnoff}, SmeL, LeonidSN и другие высококлассные программисты (простите, что упоминаю не всех) в одном флаконе Понятно, что внутри каждой функции, которая может вызывать ошибку, надо ставить On Error Goto lErrorCatching; понятно, что таких переходов внутри одной VBA-функции или процедуры может быть сколько угодно; понятно, что внутри любого обработчика можно поставить ThisDrawing.EndUndoMark... Это все ясно, только относится на самом деле ИМХО немного к другой области - теории программирования (если говорить высоким слогом).
> Spy: Книжка... Честно говоря, лично я не встречал (правда, особо и не искал). Наверное, конкретный вопрос + конкретный ответ + собственный разбор представленного кода даст самый классный опыт, который ни в одной книжке не найдешь.

[Евгений А.]

Сообщение от Кулик Алексей aka kpblc Охохох... Евгений, ну не буду я писать о том, как правильно разрабатывать программы...

И не надо, я всё равно с VBA не дружу, Лисп как-то ближе (уже ближе ассемблера, к сожалению).
-> Spy: Всё же лучше сначала прочитать книжку (хоть какую-нибудь по VB), а потом уже вопросы задавать если чего не дошло, а то люди засмеют. Так что руки в ноги, пока не передумал и дуй в книжный (Садовая/Ворошиловский) и подбирай по вкусу!

[Spy]

Ни разу не видел книжку VBA для автокада на русском. Отсюда вопрос.

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

Бумажной книги именно по VBA лично я не встречал. По VB - да, не вопрос.
Из электронных источников могу посоветовать обратиться к http://www.relib.com/forums/forum1.aspx ; http://www.vbrussian.com/index.asp ; http://planetsourcecode.com/ ; http://groups.google.com/group/fido7...n&lr=&ie=UTF-8 ; http://vbstreets.ru/ ; http://msdn2.microsoft.com/ru-ru/default.aspx .
Последняя ссылка - на MSDN, там инфы полно. Есть еще www.firststeps.ru (правда, там рассматривается применительно к Excel'у, насколько я помню). Можно также глянуть на http://rsdn.ru/ - но там я инфу по VBA, честно говоря, даже не искал.

[Spy]

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

> Spy : поправь пост, там кроме куска заголовка и смайлика ни шиша не видно.

[Евгений А.]

->Spy
А вы уверены, что проблема именно в метках? Вдруг с метками всё в порядке. Я для этого и писал пример искусственного вылета, чтобы можно было сравнить это поведение Автокада с вашим. Если вы не заметили, то при StartUndoMark всплывающий список кнопки UNDO (стрелочка справа от кнопки) становится неактивным (тусклым) и именно в этот момент нельзя нажимать саму кнопку (сдесь весь косяк кроется - список сделали неактивным, а кнопку - забыли), и только после закрытия метки EndUndoMark список вновь становится активным. Так что сначала убедитесь, что проблема именно в этом

[Spy]

Пока процедуру вставки блоков не облепил маркерами вылетало сразу же после нажатия отменить. Сейчас после 4-5 нажатий!

[Евгений А.]

Ради эксперимента советую совсем убрать из программы маркеры или хотябы маркер старта.

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

Свой код покажи - попробуем поковырять