---

Hallo nochmals gibts ne Möglichkeit Gruppennamen von Elementen direkt auszulesen??
(ohne durchforsten der Gruppen meine ich)
Mfg Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

mit VBA ... keine Ahnung! Mit Lisp : der Code aus diesem Beitrag macht 's vor.

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

naja gehen tuts schon nur is das halt langsamer
elem ist das angeklickte element

Function GetGroupname(Elem)
Dim AllGroups, ent, subent
Set AllGroups = ThisDrawing.Groups
For Each ent In AllGroups
    If ent.count <> 0 Then
    For Each subent In ent
        If subent.handle = Elem.handle Then
        Debug.Print ent.Name
        GetGroupname = ent.Name
        Exit Function
    End If
    Next subent
    End If
Next ent

End Function

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP