---

Hallo allerseits ne Frage kann man Gruppen erstellen die nicht sichtbar sind??
(zwecks Überblick im Gruppenmanager!
Mfg Chris

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

---

hier ein Beitrag aus dem Lispforum zu diesem Thema

------------------
  - 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

---

Hi Chris,

Du weisst aber auch, das du an die Gruppe nur noch über Umwege rankommst, weil du den Namen ja nicht kennst.

Hier noch ein Beispiel zum erstellen:

Code:

---

Public Sub bbb()
    Dim groupObj As AcadGroup
    Set groupObj = ThisDrawing.Groups.Add("*")
    ''Der Gruppename "*" führt dazu, das dies eine unbenanne Gruppe wird, die nicht im Gruppenmanager angezeigt wird.
    ReDim appendObjs(0 To ThisDrawing.ModelSpace.Count - 1) As AcadEntity
    Dim I As Integer
    For I = 0 To ThisDrawing.ModelSpace.Count - 1
        Set appendObjs(I) = ThisDrawing.ModelSpace.Item(I)
    Next
    groupObj.AppendItems appendObjs
End Sub

---

Und hier noch was zum Überprüfen, ob das gewählte Element einer Gruppe (und welcher Gruppe) angehört:

Code:

---

Sub findgroup()
Dim Ent As AcadEntity
Dim pick As Variant
Dim Groups As AcadGroups
Dim Grp As AcadGroup
Dim GrpEnt As AcadObject
Dim found As Boolean
Dim grpName As String

found = False
Set Groups = ThisDrawing.Groups
ThisDrawing.Utility.GetEntity Ent, pick, "Select object: "

For Each Grp In Groups
For Each GrpEnt In Grp
If GrpEnt.ObjectID = Ent.ObjectID Then
found = True
grpName = Grp.Name
End If
If found Then Exit For
Next
If found Then Exit For
Next
If found Then
Set Grp = Groups.Item(grpName)
MsgBox "Group Name = " & grpName
MsgBox "ObjectID's of group members: "
For Each GrpEnt In Grp
MsgBox GrpEnt.ObjectID
Next
End If
If Not found Then MsgBox "Entity not found in any group!"
End Sub

---

Gruß, Carsten

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