Hot News aus dem CAD.de-Newsletter:
  Foren auf CAD.de (alle Foren)
  AutoCAD VBA
  ACAD-Gruppen löschen/explodieren

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:   ACAD-Gruppen löschen/explodieren (1533 mal gelesen)
vasentiger
Mitglied


Sehen Sie sich das Profil von vasentiger an!   Senden Sie eine Private Message an vasentiger  Schreiben Sie einen Gästebucheintrag für vasentiger

Beiträge: 1
Registriert: 20.03.2009

erstellt am: 20. Mrz. 2009 16:26    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Stelli1
Moderator
Verm.-Ing.


Sehen Sie sich das Profil von Stelli1 an!   Senden Sie eine Private Message an Stelli1  Schreiben Sie einen Gästebucheintrag für Stelli1

Beiträge: 1423
Registriert: 17.08.2005

Map 2000-2014, Rasterdesign,
MapGuide, Autodesk Topobase,
VS6, VS.net 2013

erstellt am: 20. Mrz. 2009 16:35    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für vasentiger 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2014 CAD.de