---

Hallo,
ich suche einen Befehl, mit dem ich alle Elemente von einem Layer löschen kann, indem ich ein Element anklicke. Der Layer selbst soll aber NICHT gelöscht werden, sonst könnte ich ja LAYDEL nehmen. Fundstellen zu diesem Thema gibt es hier viele, aber alle ziemlich alt. Ich habe die Hoffnung, dass es das mittlerweile (in AC 2008) ohne LISP oder VBA u.ä. gibt.
MfG,
wwwilli

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

---

mit Filter kannst alle Elemente auf einem Layer selektieren und dann löschen. Das gabe es aber auch schon vor 2008.
Oder Du isolierst den Layer, löscht alle Objekte und machst die Isolierung rückgängig

[Diese Nachricht wurde von cad4fun am 01. Feb. 2008 editiert.]

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

---

Ja, danke, schon klar. Filter dauert aber nervig lange, wenn 80.000 Elemente in der Zeichnung sind. Ich suche etwas, das genauso einfach und schnell wie LAYDEL funktioniert.
MfG,
wwwilli

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

---

dann mach dir doch 'n Button der den Layer des gepickte Elementes aktiv setzt, alle Layer friert, alle Elemente löscht und dann wieder alle Layer taut.

------------------
Ciao
J-SC
  ... geht's vielleicht doch?

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

---

Layerdelete.VLX.txt

Anbei mal so was zum Testen .. (In Lisp)

Beschreibung

P.S.Ein erweiteter Dialog (der hier nicht dabei ist) erlaubt es auch die Löschroutine auf eine Objektauswahl oder das aktuelle Layout (incl. Wahlweise Blockelemente) zu beschränken...

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

---

mit dem ich alle Elemente von einem Layer löschen kann, indem ich ein Element
anklicke. Der Layer selbst soll aber NICHT gelöscht werden, sonst könnte ich ja
LAYDEL

, sorry aber: Wenn dir der Layer bekannt ist - warum nutzt du dann nicht LAYDEL aus
den ETOOLS und erstellt dann über _.-LAYER _m MyLayerName _co 1.... den Layer neu ?
Keine Frage das es THEORETISCH "schöner" funktionieren kann - aber praktisch ?

mach nicht lang rum - mache es so ! ODER lasse dir etwas erstellen was auch noch
so Kleinigkeiten berücksichtigt wie "gibt es den Layer überhaupt" - "Wie war denn
du die Farbe es exisitierenden Layers" oder auch : "Falls Blockelemente davon betroffen
sind dann lege diese auf Layer "xyz"

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

Hmm.
Es geht mir eigentlich gerade um die Einstellungen des Layers (wie Farbe), die nicht verloren gehen sollen, wenn ich den Layer "räume". Ohne weiteres reicht es ja gar nicht, den Layer mit dem bestimmten Namen wieder herzustellen.

Es geht mir z.B. um einen Layer mit Höhenlinien, die vom Digitalen Geländemodell in einem Planungsprogramm erstellt werden. Wenn ich das DGM ändere, lösche ich u.a. alle bisherigen Höhenlinien (macht das DGM nicht selbst) und lasse sie neu berechnen. Eigentlich möchte ich aber Farbe, Linientyp, Linienstärke, Plotstil wie vorher eingestellt lassen, und dann geht es auch um Anzeige oder Nichtanzeige der Höhenlinien in verschiedenen gespeicherten Layerstatūs für unterschiedliche Planausgaben. Da wird (besonders ab AC 2008) die Menge an Layer-spezifischen Parametern doch unter Umständen sehr groß. Das erst zu löschen und dann mühsam wieder herzustellen, scheint mir unsinnig. Da müsste es bei LAYDEL eine zusätzliche Abfrage oder Einstellung geben.

MfG,
wwwilli
   

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

---

Muss man sich das wieder selber basteln?
Hab' da was bei VBA gefunden, daraus müsste es zu machen sein: http://ww3.cad.de/foren/ubb/Forum259/HTML/000902.shtml#000005
Dazu muss noch das Auswählen per Anklicken und eine R-U-Sure-Abfrage ergänzt werden. Eigentlich hatte ich mir das mal wieder einfacher vorgestellt. Vielleicht mach ichs auf die Augi-Wishlist...
Danke Euch fürs Mitdenken.
MfG,
und Helau-Alaaf-Narrinarro usw.
wwwilli

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

---

Dann probier das mal aus:

Code:

---

(defun C:CLEARPICKEDLAYER (/ CLAYEROLD SELECTEDLAYER)
(setq CLAYEROLD (getvar "CLAYER"))
(setq SELECTEDLAYER (cdr (assoc '8 (entget (ssname (ssget) 0)))))
(setvar "CLAYER" SELECTEDLAYER)
(command "_LAYER" "_FR" "*" "")
(command "_ERASE" "_ALL" "")
(command "_LAYER" "_T" "*" "")
(setvar "CLAYER" CLAYEROLD)
)

---

------------------
Ciao
J-SC
  ... geht's vielleicht doch?

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

---

Uuuuhhhh.
Ist das Lisp oder sowas?

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

---

Zitat:

---

Original erstellt von wwwilli:
Muss man sich das wieder selber basteln?
Hab' da was bei VBA gefunden, daraus müsste es zu machen sein: http://ww3.cad.de/foren/ubb/Forum259/HTML/000902.shtml#000005
Dazu muss noch das Auswählen per Anklicken und eine R-U-Sure-Abfrage ergänzt werden. Eigentlich hatte ich mir das mal wieder einfacher vorgestellt. Vielleicht mach ichs auf die Augi-Wishlist...
Danke Euch fürs Mitdenken.
MfG,
und Helau-Alaaf-Narrinarro usw.
wwwilli

---

auf die wishlist ??? .... warum ... ist doch schon drin (zumindest, das was das VBA-Teil macht) .. einfach Schnellauswahl nutzen... und dann _erase

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

---

Zitat:

---

Original erstellt von wwwilli:
Uuuuhhhh.
Ist das Lisp oder sowas?

---

wie lange bist du jetzt schon im Forum aktiv ?... wenn du die angebotenen Hilfen nicht richtig nutzen kannst ... liegts nicht an den Helfern.

SCNR

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

---

"schon drin"

Na gut. Ich bin nicht am Arbeitsplatz, daher konnte/kann ich es jetzt nicht testen. Aber wenn das so ist, "tant mieux", wie der Amerikaner sagt.

MfG,
wwwilli

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

---

Zitat:

---

Original erstellt von CADmium:
  wie lange bist du jetzt schon im Forum aktiv ?... wenn du die angebotenen Hilfen nicht richtig nutzen kannst ... liegts nicht an den Helfern.

---

Uiuiui,
da mag ich mir jetzt gar nicht vorstellen, mit welchem bitteren Unterton dies geschrieben wurde. Trag es mit Fassung, Kollege. Ich habe jetzt seit 33 Jahren auf verschiedensten Grundlagen Programme erstellt; da leiste ich als Bauingenieur mir ab und zu den Luxus, eine Programmiersprache nicht zu erlernen. Aber wenn's GAR nicht anders geht, nehme ich gern auch Hilfen in Lisp oder Diesel oder was immer in Anspruch. Vielen Dank jedenfalls dafür.
MfG,
wwwilli

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

---

Dann also nochmal langsam zum Mitschreibe.

Du öffnest den Editor, kopierst alles zwischen den Strichen hinen und speicherst die Datei unter CLEARPICKEDLAYER.LSP ab. Durch drag'n drop kannst Du die LSP in eine geöffnete Acad.dwg ziehen. Aufruf ist mit CLEARPICKEDLAYER. Ist Dir das zu lang, kannst Du's auch umeditieren.
Wie Du das dann immer beim Acad-Start geladen bekommst, musst Du Dir allerdings selber suchen -> FAQ

------------------
Ciao
J-SC
  ... geht's vielleicht doch?

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

---

Danke.
Ehe ich jetzt noch weitere Hilfen bekomme, will ich mal sagen, dass ich auch schon was mit Lisp laufen habe. Aber nicht gern eben.
MfG,
wwwilli

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

---

Zitat:

---

Original erstellt von wwwilli:
Uiuiui,
da mag ich mir jetzt gar nicht vorstellen, mit welchem bitteren Unterton dies geschrieben wurde. Trag es mit Fassung, Kollege.

---

nee , kein bitterer Unterton! Warum auch? Ist doch nicht mein Problem      ...

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