---

Hallo, bin neu hier im Forum. Ich war auf der Suche nach einer Funktion zum Löschen von mehreren Gruppen mittels wenig Aufwand. Da die bei den Lisp-Kollegen Vorgestellten für meinen Anwendungsfall - Löschen von benannten UND unbenannten Gruppen nicht funktioniert hat (Anwenderfehler? sicher), habe ich bei VBA nach ner Lösung gesucht.

Habe Sie aber dann doch in meinem Hirn gefunden.
Also falls es euch was nutzt, hier der Code:

Funktion: Löscht auf Abfrage alle ACAD-Gruppen aus einer Zeichnung - die Objekte bleiben natürlich erhalten.

---------------------------------
Public Sub DeleteGroups()

'delete all named and unnamed groups in a drawing

Dim Responce
Dim ActGroup As AcadGroup
On Local Error Resume Next

ThisDrawing.ActiveSpace = acModelSpace

Responce = MsgBox("Would you really UNGROUP all Objects (delete all ACAD-Groups)?", vbYesNo + vbCritical + vbDefaultButton2, "Delete all ACAD-Groups - not the Objects")

If Responce = vbYes Then

    For Each ActGroup In ThisDrawing.Groups
        ActGroup.Delete
    Next
   
Else: Exit Sub
End If
     
End Sub
---------------------------------

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

---

Hallo "vasentiger",

dann herzlich willkommen im AutoCAD VBA Forum auf CAD.de 

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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