• vig11
  • Восстановленный участник
  • На форуме с 10 декабря 2004г.
  • Сообщений: 79
  • Спасибо: 0

Тема: Как получить имя Group?

Как получить имя Group пикнув на одно из entity составляющих эту группу?

  • Leonid
  • Восстановленный участник
  • На форуме с 16 июня 2003г.
  • Сообщений: 389
  • Спасибо: 0

Re: Как получить имя Group?

Написав соответствующую программу...

  • cadhelp
  • Восстановленный участник
  • На форуме с 24 февраля 2004г.
  • Сообщений: 231
  • Спасибо: 0

Re: Как получить имя Group?

Привет виг, я не знал что тебе надо ето на ВБ
во , накалякал.

Sub gr()
Dim grps As AcadGroups
Dim ent As AcadEntity
Dim GrName As String
ThisDrawing.Utility.GetEntity ent, Null
Dim gr
Set grps = ThisDrawing.Groups
For Each gr In grps
    For Each e In gr
        If e.ObjectID = ent.ObjectID Then
            MsgBox "This entity is member of Group '" & gr.Name & "'."
            Exit Sub
        End If
    Next
Next
End Sub

  • vig11
  • Восстановленный участник
  • На форуме с 10 декабря 2004г.
  • Сообщений: 79
  • Спасибо: 0

Re: Как получить имя Group?

Cadhelp, спасибо огромное. Ты как всегда на высоте. Всё работает как часы.

  • Ольга
  • Восстановленный участник
  • На форуме с 22 октября 2001г.
  • Сообщений: 70
  • Спасибо: 0

Re: Как получить имя Group?

А как это делать без перебора? типо как в VLisp vlax-ename. А то слишком программа долго работает.