[sam_n]

Хочу написать на VBA программку, которая бы определяла накладываются ли на чертеже объекты друг на друга, для проверки оформления чертежа.
Конечно же сразу выбор пал на IntersectWith, но из-за того, что он сравнивает каждый объект с каждым (цикл в цикле) на больших чертежах виснет ужасно.
Может у кого есть предложения, как можно избавиться от вложенного цикла? Не обязательно на VBA, LISP тоже подойдет.
Можно ли непосредственно без цикла найти объекты, пересекающие заданный?

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

Так пересечение или наложение? И чем не нравится overkill?

[VVA]

В дополнение к #2 TotalPurge

Основные возможности послойной оптимизации чертежа: •Поиск и удаление дублирующих объектов. •Поиск и удаление объектов расположенных в области перекрытия других объектов. •Поиск и замена одним примитивом двух и более сонаправленных объектов образующих узел сопряжения. •Поиск и замена одним примитивом двух и более сонаправленных объектов расположенных с частичным перекрытием друг относительно друга. ...

[Сергей812]

Насколько понимаю, здесь идет речь о том - чтобы выноски, блоки и прочие элементы чертежа не налезали друг на друга и были полностью читаемыми.

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

Это еще один вариант. Который решается вообще отдельным алгоритмом (как мне кажется).

[sam_n]

Нет, здесь совсем в другом дело.
Привязываю много чужих чертежей. Они зеркаляться и немного меняются. Чтобы не просматривать каждый чертеж, хочу через HighLight выделить накладывающиеся объекты (см. рис.).
Да и в целом полезная штука будет.

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

Сообщение от Кулик Алексей aka kpblc Это еще один вариант. Который решается вообще отдельным алгоритмом (как мне кажется).

А каким?)

[bargool]

Сообщение от sam_n А каким?)

http://en.wikipedia.org/wiki/Automatic_label_placement

[sam_n]

Сообщение от bargool http://en.wikipedia.org/wiki/Automatic_label_placement

ссылка-то конечно интересная, но, bargool, ты мне предлагаешь все заново перечерчивать?

[bargool]

Сообщение от sam_n ссылка-то конечно интересная, но, bargool, ты мне предлагаешь все заново перечерчивать?

Неа. Это если захочешь автоматически размещать.

[sam_n]

Сообщение от bargool Неа. Это если захочешь автоматически размещать.

спасибо)

[Дима_]

чего-то такое уже писал
з.ы. и тут дописывал

[sam_n]

Сообщение от Дима_ чего-то такое уже писал з.ы. и тут дописывал

Аха... Дима, это получается ты IntersectWith заменил GetBoundingBox и вместо вложенного цикла проверяешь количество объектов внутри контура?
Пока еще не попробовал у себя, но идея отличная.

[sam_n]

Попробовал сначала сделать так

Код:

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

 pnt3 = objSelSet.Item(i).GetBoundingBox(pnt1, pnt2) 'границы текста
curobjSet.Select acSelectionSetCrossing, pnt2, pnt1 'набор с объектами внутри границ текста
If curobjSet.Count>1 Then objSelSet.Item(i).Highlight True 'если в наборе больше одного объекта, выделяем текст

Но выделение происходило не секущей рамкой, а обычной. То есть, если только часть объекта попадает в границы текста, он не выделяется.
Тогда сделал через лисп.

Код:

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

 pnt3 = objSelSet.Item(i).GetBoundingBox(pnt1, pnt2) 'границы текста
MyModelSpace.SendCommand "(setq curObject (ssget ""_C"" '(" & pnt2(0) & " " & pnt2(1) & ") '(" & pnt1(0) & " " & pnt1(1) & "))) " 'набор с объектами внутри границ текста
MyModelSpace.SendCommand "(setvar ""USERI1"" (sslength curObject)) " 'в vba передаю через системную переменную
If MyModelSpace.GetVariable("USERI1") >1 Then objSelSet.Item(i).Highlight True 'если в наборе больше одного объекта, выделяем текст

все работает как надо за исключением одного факта, если рассматриваемый объект на экране крупный, то все отлично
(setq curObject (ssget "_C" '(428505.472855683 -16045.090204883) '(428142.814881789 -16195.090204883))) <Selection set: 2a3>
(setvar "USERI1" (sslength curObject)) 1

Но если сделать его очень мелким
(setq curObject (ssget "_C" '(428505.472855683 -16045.090204883) '(428142.814881789 -16195.090204883))) <Selection set: 2cc>
(setvar "USERI1" (sslength curObject)) 11

То есть захватывает лишние объекты, которых по факту там нет. Как видно координаты рамки одни и те же, OSMODE в 0 результатов не дал. Есть у кого-нибудь идеи по этому поводу?