[kefirrr]

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

Код:

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

Public Sub test()

Dim ent As AcadEntity, pt
Dim group, groups As Collection

Call ThisDrawing.Utility.GetEntity(ent, pt)
Set groups = GetGroups(ent)

For Each group In groups
Debug.Print group.Name
Next

End Sub

Public Function GetGroups(ent As AcadEntity) As Collection

Dim col As Collection, group As AcadGroup

Set col = New Collection

For Each group In ent.Document.groups
For i = 0 To group.Count
If group.Item(i).Handle = ent.Handle Then
col.Add group
Exit For
End If
Next
Next

Set GetGroups = col

End Function

Все бы ничего, но у меня на чертеже более 1500 групп, каждая группа может содержать огромную тучу элементов. Данный код проверяет каждый элемент группы, что ведет к длительному выполнению макроса (чисто для моей задачи в районе 20-25 секунд).

Если пользоваться формой _group и непосредственно через кнопку "найти имя" ("Find Name")- процесс практически мгновенный.

Очень надеюсь на вашу помощь.
Заранее спасибо

[Сергей812]

VBA - не быстрая программная среда явно.. хотите быстроты - либо переходите на тот же Net, либо идите на траты ресурсов - памяти под буферизацию

----- добавлено через ~45 мин. -----
тем более, судя по постам - пишете код в экселе.. так заполните лист: имя группы, хэндл объектов и пускай сам эксель занимается сравнением по формулам

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

Сообщение от kefirrr Если пользоваться формой _group и непосредственно через кнопку "найти имя" ("Find Name")- процесс практически мгновенный.

Средствами lisp/ObjectARX/.NET можно моментально найти все группы, членом которых является примитив (DXF код 330):



У VBA такой возможности нет.

[Boxa]

Александр Ривилис, а можно пример, как в C# получить значение DXF (в данном случае 330) кода для выбранного объекта?
Или в .net предполагается сначала получить имена всех групп, а потом при выборе фильтровать по значению 330 кода? Хотя последний подход и для VBA подходит... И все таки интересно про получение значения по dxf коду...

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

P/Invoke для acdbEntGet из ObjectARX: http://adn-cis.org/kak-najti-vse-pol...chertezhe.html
Или DwgFiler: http://adn-cis.org/forum/index.php?topic=530.0
Есть еще один способ - без DXF. Сделаю пример - покажу.

P.S.: Собственно говоря готовый пример как в .NET по имени выбранного примитива получить информацию о всех группах, в которые он входит: http://adndevblog.typepad.com/autoca...up-or-not.html