| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: -BEREINIG mit Filter (505 / mal gelesen)
|
lerk31 Mitglied Straßenplaner
Beiträge: 44 Registriert: 04.04.2013 Hardware: HP Z240 Workstation i7-7700K 32,0 GB RAM Windows 10 64bit Nvidia Quadro P600 Software: AutoCAD Civil 3D 2024 (64 bit) Drucker:DWGtoPDF.pc3
|
erstellt am: 04. Jul. 2024 12:05 <-- editieren / zitieren --> Unities abgeben:
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 |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3434 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 04. Jul. 2024 12:26 <-- editieren / zitieren --> Unities abgeben: Nur für lerk31
|
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles
Beiträge: 3074 Registriert: 26.08.2002 ACAD R11 - 2022 (Plant3D) AVIS ACAD LT 2013- 2021 ZWCAD 2015 Versuch "nun ja" [s]History P3D 2012/(13) SP und Hotfix([/s]<P> Windows 10 / 64 Bit Xeon CPU 3.5GHz 16GB Ram NVIDIA Quadro P2000 3x Dell TV100 88P Monitore
|
erstellt am: 04. Jul. 2024 13:17 <-- editieren / zitieren --> Unities abgeben: Nur für lerk31
Hy oder die Layer vorher sperren dann bereinigencu 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 |
cadffm Moderator 良い精神
Beiträge: 22298 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 04. Jul. 2024 13:25 <-- editieren / zitieren --> Unities abgeben: Nur für lerk31
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 |
cadffm Moderator 良い精神
Beiträge: 22298 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 04. Jul. 2024 13:26 <-- editieren / zitieren --> Unities abgeben: Nur für lerk31
|
archtools Mitglied
Beiträge: 970 Registriert: 09.10.2004 Entwickler für AutoCAD, BricsCAD u.a., alle Systeme
|
erstellt am: 04. Jul. 2024 13:50 <-- editieren / zitieren --> Unities abgeben: Nur für lerk31
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 |
lerk31 Mitglied Straßenplaner
Beiträge: 44 Registriert: 04.04.2013 Hardware: HP Z240 Workstation i7-7700K 32,0 GB RAM Windows 10 64bit Nvidia Quadro P600 Software: AutoCAD Civil 3D 2024 (64 bit) Drucker:DWGtoPDF.pc3
|
erstellt am: 04. Jul. 2024 14:01 <-- editieren / zitieren --> Unities abgeben:
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 |
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles
Beiträge: 3074 Registriert: 26.08.2002 ACAD R11 - 2022 (Plant3D) AVIS ACAD LT 2013- 2021 ZWCAD 2015 Versuch "nun ja" [s]History P3D 2012/(13) SP und Hotfix([/s]<P> Windows 10 / 64 Bit Xeon CPU 3.5GHz 16GB Ram NVIDIA Quadro P2000 3x Dell TV100 88P Monitore
|
erstellt am: 04. Jul. 2024 14:11 <-- editieren / zitieren --> Unities abgeben: Nur für lerk31
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 |
lerk31 Mitglied Straßenplaner
Beiträge: 44 Registriert: 04.04.2013 Hardware: HP Z240 Workstation i7-7700K 32,0 GB RAM Windows 10 64bit Nvidia Quadro P600 Software: AutoCAD Civil 3D 2024 (64 bit) Drucker:DWGtoPDF.pc3
|
erstellt am: 04. Jul. 2024 14:13 <-- editieren / zitieren --> Unities abgeben:
|
lerk31 Mitglied Straßenplaner
Beiträge: 44 Registriert: 04.04.2013 Hardware: HP Z240 Workstation i7-7700K 32,0 GB RAM Windows 10 64bit Nvidia Quadro P600 Software: AutoCAD Civil 3D 2024 (64 bit) Drucker:DWGtoPDF.pc3
|
erstellt am: 04. Jul. 2024 14:19 <-- editieren / zitieren --> Unities abgeben:
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 |
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles
Beiträge: 3074 Registriert: 26.08.2002 ACAD R11 - 2022 (Plant3D) AVIS ACAD LT 2013- 2021 ZWCAD 2015 Versuch "nun ja" [s]History P3D 2012/(13) SP und Hotfix([/s]<P> Windows 10 / 64 Bit Xeon CPU 3.5GHz 16GB Ram NVIDIA Quadro P2000 3x Dell TV100 88P Monitore
|
erstellt am: 04. Jul. 2024 14:32 <-- editieren / zitieren --> Unities abgeben: Nur für lerk31
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 |
cadffm Moderator 良い精神
Beiträge: 22298 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 04. Jul. 2024 16:28 <-- editieren / zitieren --> Unities abgeben: Nur für lerk31
|
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles
Beiträge: 3074 Registriert: 26.08.2002 ACAD R11 - 2022 (Plant3D) AVIS ACAD LT 2013- 2021 ZWCAD 2015 Versuch "nun ja" [s]History P3D 2012/(13) SP und Hotfix([/s]<P> Windows 10 / 64 Bit Xeon CPU 3.5GHz 16GB Ram NVIDIA Quadro P2000 3x Dell TV100 88P Monitore
|
erstellt am: 04. Jul. 2024 16:35 <-- editieren / zitieren --> Unities abgeben: Nur für lerk31
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 |
cadffm Moderator 良い精神
Beiträge: 22298 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 04. Jul. 2024 16:43 <-- editieren / zitieren --> Unities abgeben: Nur für lerk31
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 |
ArCADe-Spieler Mitglied Metallbautechniker
Beiträge: 375 Registriert: 05.12.2012 Win 10 64bit ACAD 2017 /LT & ACAD 2022
|
erstellt am: 05. Jul. 2024 08:55 <-- editieren / zitieren --> Unities abgeben: Nur für lerk31
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 |
Andreas Kraus Mitglied Elektrotechniker
Beiträge: 1458 Registriert: 11.01.2006 WIN 10 ACAD 2022 BricsCAD V23
|
erstellt am: 05. Jul. 2024 09:10 <-- editieren / zitieren --> Unities abgeben: Nur für lerk31
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 |
ArCADe-Spieler Mitglied Metallbautechniker
Beiträge: 375 Registriert: 05.12.2012 Win 10 64bit ACAD 2017 /LT & ACAD 2022
|
erstellt am: 05. Jul. 2024 09:13 <-- editieren / zitieren --> Unities abgeben: Nur für lerk31
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 |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3434 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 07. Jul. 2024 11:01 <-- editieren / zitieren --> Unities abgeben: Nur für lerk31
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 |
lerk31 Mitglied Straßenplaner
Beiträge: 44 Registriert: 04.04.2013 Hardware: HP Z240 Workstation i7-7700K 32,0 GB RAM Windows 10 64bit Nvidia Quadro P600 Software: AutoCAD Civil 3D 2024 (64 bit) Drucker:DWGtoPDF.pc3
|
erstellt am: 08. Jul. 2024 13:37 <-- editieren / zitieren --> Unities abgeben:
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 |