---

Liebe Community,

ich versuche mir ein Makro zu basteln mit dem ich meine DWGs bereinigen kann. Ich möchte die Standard-Layer, Linientypen etc. in meiner Zeichnungsvorlage nicht löschen.

Im ersten Schritt möchte ich die Layer löschen und habe mir folgendes Makro gebastelt. Es funktioniert bei Layerfiltern wunderbar, scheinbar aber nicht in der Befehlszeile zu funktionieren...

Code:

---

^C^C-BEREINIG;AL;~(FIRMA*,mansfen,Planrand);N;

---

Es sollen also die z.B. folgende Layer nicht bereinigt werden:
FIRMA_Projekt
FIRMA_Beschriftung
FIRMA_Legende
mansfen
Planrand

Habt ihr hier eine Idee?

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

---

Servus,

Nicht das was du gefragt hast... hab einen Block mit den Standards in einem Layout.

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. Schöne Grüsse aus der Steiermark  Bernd P.

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

---

Hy

oder die Layer vorher sperren
dann bereinigen

cu cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist nur die Spitze des Berges der da treibt ?

[Diese Nachricht wurde von cadwomen am 04. Jul. 2024 editiert.]

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

---

Hi,

Ungetestet, versuche ich es mal:
die Klammer hat da nichts zu suchen, wo kommt die denn her?

Also schreibe das Makro um und dieses mal
nur ~FIRMA* als Layername angeben.

Die anderen beiden, dazu kommen wird später.

Funktioniert es jetzt?

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

---

"Im ersten Schritt möchte ich die Layer löschen"

Warum schreibst du dann im Makro ALLES und nicht LAYER?

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

---

Zitat:

---

Original erstellt von lerk31:
Habt ihr hier eine Idee?

---

Ja, das wäre eine gute Frage für Deinen Einstieg in Lisp. Im Grunde wird das durch einen Dreizeiler gelöst.

Hier für Deinen Einstieg eine allgemeine Funktion, die Dir alles bereinigen kann, was Du willst, und Du kannst es exakt kontrollieren, indem Du ITEM mit (member ITEM ...) bzw (wcmatch ITEM ...) darauf prüfst, ob es Deinen Kriterien entspricht:

Code:

---

(defun at-purge-table-item (table item)
  (setq table (strcase table)
        item (strcase item)
  )
  ;; [BLöcke/BEmstile/LAyer/LTypen/Plotstile/Symbole/Textstile/Mlinienstile/ALles]:
  (cond
    ((= table "BLOCK")
        (command "_.-purge" "_bl" item "_n")
    )
    ((= table "DIMSTYLE")
        (command "_.-purge" "_dim" item "_n")
    )
    ((= table "LAYER")
        (command "_.-purge" "_la" item "_n")
    )
    ((= table "LINETYPE")
        (command "_.-purge" "_lt" item "_n")
    )
    ((= table "PLOTSTYLE")
        (command "_.-purge" "_p" item "_n")
    )
    ((= table "SYMBOL")
        (command "_.-purge" "_sym" item "_n")
    )
    ((or (= table "TEXTSTYLE") (= table "STYLE"))
        (command "_.-purge" "_st" item "_n")
    )
    ((= table "MLINESTYLE")
        (command "_.-purge" "_m" item "_n")
    )
    ((= table "*")
        (command "_.-purge" "_a" item "_n")
    )
    ( 'T
      (princ
        (strcat "\nFehler in AT-PURGE-TABLE-ITEM: unbekannte Tabelle "
                table
        )
      )
    )
  )
  'OK
)

---

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

---

Zitat:

---

Original erstellt von Bernd P:
Nicht das was du gefragt hast... hab einen Block mit den Standards in einem Layout.

---

Gute Idee, würde ich nehmen wenn das Makro sich nicht lösen lässt.

Zitat:

---

Original erstellt von cadffm:
Warum schreibst du dann im Makro ALLES und nicht LAYER?

---

Stimmt, das habe ich vergessen auszubessern. Sollte natürlich LA heißen.

Zitat:

---

Original erstellt von cadffm:
die Klammer hat da nichts zu suchen, wo kommt die denn her?

Also schreibe das Makro um und dieses mal
nur ~FIRMA* als Layername angeben.

---

Die Klammer habe ich hier rein gepackt weil das im Layerfilter so funktioniert. Die Argumente ohne Klammer aneinander zu reihen hat nämlich nicht funktioniert.

Das Makro schaut jetzt so aus und funktioniert soweit.:

Code:

---

^C^C-BEREINIG;LA;~FIRMA*;N;

---

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

---

Zitat:

---

Original erstellt von lerk31:

Das Makro schaut jetzt so aus und funktioniert soweit.:

Code:

---

^C^C-BEREINIG;LA;~FIRMA*;N;

---

---

mansfen
Planrand

Kann eigentlich gar nicht sein das das jetzt funktioniert.......

cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist nur die Spitze des Berges der da treibt ?

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

---

Danke archtools,
das werde ich mir auf jeden Fall anschauen! Dafür nehm ich mir etwas mehr Zeit, was vor meinem Urlaub wohl knapp wird ;-)
lg

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

---

Zitat:

---

Original erstellt von cadwomen:

mansfen
Planrand

Kann eigentlich gar nicht sein das das jetzt funktioniert.......

cw

---

Ich hab bisher die Hinweise von cadffm "abgearbeitet".
Er meint "Die anderen beiden, dazu kommen wird später."
mansfen und Planrand werden aktuell natürlich gelöscht.

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

---

m2c

-layer;F;Firma*;F;Rahmen;f;mansfenster;  und dann bereinig

cu cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist nur die Spitze des Berges der da treibt ?

[Diese Nachricht wurde von cadwomen am 04. Jul. 2024 editiert.]

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

---

Was hast du immer mit frieren? Wozu soll das gut sein?

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

---

CW hatte wohl da was SCHON GANZ LANG NICHT PROBIERT

bereinigen ist es völlig wurscht was für nen Layerstatus ein Layer hat....

so bleibt die Frage warum....

weil ich früher Soficad hatte und der Befehl Sof_ber hat uA alle Soficad layer nicht bereinigt

10 Us an ...

cu cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist nur die Spitze des Berges der da treibt ?

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

---

Wenn du jetzt sinngemäß cadwomens Makro hinten ansetzt, dann passt es.
Bereinigen alles ausser Firma, erstelle Layer X und Y
(-Layer Option Neu und die anderen Optionen für die anderen Eigenschaften.)

Die Blocklösung (oder wie auch immer man die Objekte benutzt)
ist sich mindestens so attraktiv,
zudem Super anpassbar.
Man hat einfach eine DWG die man pflegt, und als Block einfügt (zB) und fertig.

Ich selbst bevorzuge aber einfach die Scriptlösung (oder Makro, Api wie zB. LISP, egal wie, hauptsache auf Knopfdruck und es kann bestehende Daten ändern.
(Aktuell vorhanden, aber falsche Farbe? Egal, Klick - fertig)

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

---

Hallo lerk31,

auch nicht genau auf Deine Fragestellung bezogen, schon etwas älter und sinngemäß BerndP's Vorschlag aus der ersten Antwort entsprechend: Blöcke sperren. Funktioniert bei mir seit - oops - tatsächlich Jahrzehnten tadellos.

Grüße für ein schönes WE und ein Viertelfinale nach Wunsch
Gernot

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

---

Wäre es nicht vielleicht einfacher alles zu bereinigen und die "Standards" per Knopfdruck wieder zu laden ?
Dann wären diese Funktionen universell einsetzbar.
Ich bereinige eigentlich immer ALLES und hole mir dann was ich brauche in den Plan und finde das insgesamt einfacher.

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

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

---

Hallo lerk31,

hm, komisch: mein erster Versuch einer Antwort wird nicht angezeigt, obwohl sich die Anzahl der Antworten in der Forums-Übersicht für "Rund um AutoCAD" erhöht hat ... seltsamer und seltsamer.

Daher hier ein zweiter Versuch:

auch nicht exakt Deiner Fragestellung entsprechend, schon etwas älter und sinngemäß BerndP's Vorschlag aus der ersten Antwort entsprechend: Blöcke sperren. Funktioniert bei mir seit - oops - tatsächlich Jahrzehnten tadellos.

Um den Block bei Bedarf im Auswahlfenster von BBE schnell finden zu können, den Blockmamen z.B. mit einem führenden Unterstrich o.ä. versehen, sodass der Block möglichst weit oben in der Liste steht: "_Standards".

Grüße für ein schönes WE und ein Viertelfinale nach Wahl
Gernot

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

---

Servus,

Zur Ergänzung. Ich habe den Standarblock auch in der DWT integriert aber ihn nicht 'versteckt'* sondern in ein extra Layout geparkt. So ein versteckt Block kann einen bei Fremdzeichnung schon 'stören'...

noch ein Tipp: Wenn man diesen Standardblock mal ändern will kann man viele  nicht alle Definitionen mit Blockeinfügen überschreiben.
(Command "_insert" "blockname=blockname.dwg" ())

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. Schöne Grüsse aus der Steiermark  Bernd P.

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

---

Danke euch allen für die rege Problemlösung!
Den Bereinigen-Befehl soweit auszufiltern, dass nur die gewünschten Objekte entfernt werden war wohl zu optimistisch von mir.

Ich werde fürs erste den Vorschlag mit einem "Standards"-Block umsetzten. Dieser ist ja gleich erstellt.

Und für später ist die LISP-Lösung sicherlich das Optimum.

Danke euch allen!

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