[Linetzev]

Мной была написана программа на VBA, предназначенная для черчения путевой ситуации жд.станций. Программа определяет габариты до жд. путей и создает также несколько текстовых файлов. Алгоритм успешно работал на вкладке ThisDrawing. Однако основным его (алгоритма) недостатком было неудобное хранение и редактирование основных настроек программы. В связи с чем алгоритм был модифицирован: создана форма для радактирования данных и на этой форме кнопка, запускающая основной алгоритм черчения и расчета плана путей.
Проблема в следующем: при больших объемах данных алгоритм с формой вроде бы останавливается (команды Unload form: End), однако на чертеже ACAD ModelSpace привычный курсор ACAD (крест) не появляется, хотя Zoom работает (т.е. чертеж невозможно сохранить), а редакторе VBA выполнение команды меню Run\Reset приводит к зависанию VBA и ACAD.
При небольших объемах данных все работает нормально.
В первоначальном алгоритме на вкладке ThisDrawing все работает нормально при любых объемах данных.
Подскажите что нужно сделать?

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

Значит надо менять сам алгоритм отрисовки.

[Linetzev]

До конкретной отрисовки еще не доходит. При расчете габаритов (это самый длинный и сложный блок программы - выполняется "почти" аналитически - через массивы) делал Exit Sub и наблюдал эту проблему.
"Почти" потому что, чтобы рассчитать габариты на чертеж выводятся текстовые объекты-индексы исходного массива (он огромен), далее делается SelectionSet и выбирается часть индексов этого массива (для экономии времени расчета), далее с данными массива этих индексов делаются аналитические расчеты. Где здесь я как раз ставлю Exit Sub и наблюдаю эту проблему.
По завершению расчетов габаритов все TEXTы удаляются, а потом выполняется полная отрисовка чертежа

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

Linetzev, а то, что нельзя безнаказанно создавать безумное количество примитивов в AutoCAD - это учитывается или нет? Почему нельзя выполнять выборку полностью аналитически?

[Linetzev]

Безумное количество примитивов - в моем случае это порядка 20-40 тысяч на готовом чертеже и не более 5 тысяч TEXTов для SelectionSet.
Мне не хватает знаний это сделать полностью аналитически, а путем сравнения координат это очень долго - мне так кажется. Первоначально построенная конструкция включала 5 вложенных циклов с выходом по условию, результат приходилось ждать очень долго и возможности этой процедуры были не очень хороши.
Дело в том, что на жд станциях очень много путей - габариты от непутевых точек и междупутья (жд пути тоже состоят из точек) приходится определять многократно. Кроме того, некоторые непутевые точки (светофоры) должны быть обязательно присоеденены к своему пути (светофор всегда справа от пути). Ускорение процесса (моя идея) - резкое сокращение области расчетных точек через SelectionSet.
Еще хочу сказать что объект SelectionSet создается один раз в начале работы и удаляется в конце, а в промежутках - очищается. может быть в этом дело?
Как реализовать алгоритм по-другому я не знаю. Может подскажете или ссылку дадите?