[posetitel]

Товарищи, подскажите.
Сейчас опишу проблему развернуто.
Общая задача такая: необходимо сравнить вершину каждой полилинии чертежа с другими вершинами полилиний и если эти вершины расположены близко, то совместить.
Алгоритм решения вижу такой:
1) в коде делаю выбор всех полилиний в модели,
2) далее организовываю цикл вида for each (т.е. для каждого выбранного примитива).
3) в теле этого цикла хочу каждой полилинии присвоить свой так называемый идентификатор, распространяющийся только внутри цикла, не приписывающий внешних данных или иной информации к полилиниям в чертеже,
4) потом на основании идентификатора работать с каждой конкретной полилинией сравнивая их друг с другом.
Вот как сделать пункт 3?
Понимаю, что решение общей задачи может быть и не таким, как расписал ниже, подсказки как лучше решить тоже приветствую, но важнее понять пункт 3, как работать с конкретным объектом из выбора.

[name02]

Не понял - для чего же нужен идентификатор?
Сравнивать координаты вершин полилиний с вершинами какой-то "главной" полилинии?

[posetitel]

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

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

Если уж с указателями на полилинии работать не хочется, чем не нравится тот же хендл?

[trir]

всё не так

[posetitel]

Что за указатели полилиний? Это которые руками (мышкой) надо тыкать в модели? Если есть программные, то где про него почитать?
И где почитать про хэндл?

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

[name02]

Сообщение от posetitel 1) в коде делаю выбор всех полилиний в модели,

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

[posetitel]

Сообщение от name02 Если выбрать все полилинии програмно, то они помещаются в набор в известном только автокаду порядке (т.е. порядок их следования в наборе не будет определяться ни длиной, ни расположением слева направо или сверху вниз в пространстве модели). Тебе самому надо будет решить какая из них будет "главной". Посмотри - в автокаде отдельно выделил "главную", отдельно остальные. Прошелся по остальным на всякий чтобы убрать случайно попавшую "главную" И затем сравниваешь полилинии из второго набора с вершинами "главной"

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

[name02]

Не понимаю проблемы:
1 Получил набор объектов SelSet
2 Взял первый объект из набора Set PL = SelSet.Item(0)
3 Удалил из набора этот объект SelSet.Item(0).Delete
4 Проходишь объекты из SelSet и сравниваешь его с объектом PL

[posetitel]

О! про SelSet.Item(0) был не в курсе. Опробую.

[Нубий-IV]

Насколько я понимаю, этот алгоритм сравнит каждую точку с каждой, и сложность имеет O(n!). Скорее всего, он будет вешаться, начиная с нескольких десятков полилиний. Подозреваю, что для обработки больших чертежей нужно что-то, что быстро ищет в 3D-пространстве (или в 2D, если чертеж плоский). Например, завести KD-дерево или R-дерево, и при обходе полилиний, для каждой точки, если близкая есть в дереве - округлять, если нет - добавлять в дерево. Реализации можно погуглить. У таких деревьев скорость поиска вроде логарифмическая, а не факториальная.

[posetitel]

Сообщение от name02 Не понимаю проблемы: 1 Получил набор объектов SelSet 2 Взял первый объект из набора Set PL = SelSet.Item(0) 3 Удалил из набора этот объект SelSet.Item(0).Delete 4 Проходишь объекты из SelSet и сравниваешь его с объектом PL

После команды SelSet.Item(0).Delete нумерация объектов в выборе не сместится? Т.е. если я после операции SelSet.Item(0).Delete выполню Set PL1 = SelSet.Item(0), то PL1 определится или вылетит ошибка?
Ну и теоретически таким образом нельзя ли самому массив сформировать вроде
Set PL0 = SelSet.Item(0)
Set PL1 = SelSet.Item(1)
Set PL2 = SelSet.Item(2) и т.д.?

Нубий-IV, попробую нагуглить эти деревья...

[name02]

Ты попробуй сам удали и посмотри - быстрее и легче запомнишь.
Зачем тебе массивы формировать? Сейчас у тебя 10 линий, потом 800 - будешь думать как задать массив нужного размера.
Работай с набором SelectionSet, по нему проходи:
Dim oPolyLine as AcadPolyline
For Each oPolyLine In SelSet
<< Делаешь что тебе нужно >>
Next oPolyLine

[gumel]

Ну так-то у каждого объекта и так имеется свой индекс.

пример кода (правда на другом языке, но смысл думаю будет ясен):

Код:

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

 
...
  MSpace := Acad.ActiveDocument.ModelSpace; // область модели
  cnt := MSpace.Count; // количество всех объектов
  for i := 0 to cnt - 1 do
    begin
       if MSpace.Item(i).ObjectName = 'AcDbPolyline' then
        begin
          AcPolyLine := MSpace.Item(i);  // указатель на полилинию с индексом i
          ....
        end;
    end;
...

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

[posetitel]

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

Код:

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

cnt1 := SelSet.Count // количество выбранных полилиний
  for i := 0 to cnt1 - 2 do  // цикл прохода по выбранным полилиниям
    AcPolyLine1 := SelSet.Item(i)  
    cnt2 := AcPolyLine1.Count // количество вершин в полилинии i
       for j := 0 to cnt2 - 1 do  // цикл прохода по вершинам первой полилинии из цикла
         for k := i+1 to cnt1 - 1 do  // цикл прохода по оставшимся полилиниям 
         AcPolyLine2 := SelSet.Item(k)  
         cnt3 := AcPolyLine2.Count // количество вершин в полилинии k     
             for l :=0 to cnt3 - 1 do  // цикл сравнения координат оставшихся полилиний с первой полилинией
                  "условие если координата l полилинии k близка к координате j полилинии i то переприсвоить координату, иначе ничего не делать
             next 
           next             
       next
  next

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

[Сергей812]

Сообщение от posetitel Получается, смысла в отдельной операции присвоения идентификатора нет,

каждый объект в БД чертежа *.dwg и так имеет свой уникальный хэндл (Handle). Хэндл - это в настоящее время 8-байтовое целое число и для каждого нового объекта чертежа просто берется следующее значение этого числа (это самый дешевый по затратам ресурсов способ обеспечить уникальность значения хэндла в пределах чертежа). В VBA хэндл доступен в виде строки и по этой строке через метод HandleToObject можно получить сам объект чертежа.

[name02]

Сообщение от posetitel В первом цикле перебирать полилинии из выбора, а во втором цикле вершины

Учти, что у разных типов полилиний разное количество координат у вершин https://vbamodel.narod.ru/AutoCAD/idh_coordinates.htm

[Нубий-IV]

Сообщение от posetitel можно организовать цикл внутри цикла по индексам из выбора.

На первый взгляд - то, что нужно. Я, кстати, выше затупил - тут квадратичная сложность, а не факториальная. Так что на реальном чертеже тормозить не должно, если только это не векторизованный генплан.