Textmeldungen sammeln, ausgeben, speichern (Autodesk/Lisp)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: Textmeldungen sammeln, ausgeben, speichern (343 mal gelesen)
Peter2 Ehrenmitglied V.I.P. h.c. Beiträge: 3701 Registriert: 15.10.2003 Win 10/64 Pro AutoCAD MAP 3D 2018 BricsCAD 22	erstellt am: 25. Okt. 2010 14:38 <-- editieren / zitieren --> Unities abgeben: (Eine Optimierungs-, keine Notfallfrage) Zu folgender Aufgabe behelfe ich mir mit diversen SETQ usw., aber eine Idee wie es eleganter (und kürzer) geht fehlt mir noch. Aufgabe: Code: - prüfe in diversen Einzelschritten irgendwas (z.B. Länge, Breite, Höhe, Gewicht) - gib alle Zwischenergebnisse am Bildschirm aus, jeweils pro Zeile "Länge zu kurz" "Breite OK" "Höhe zu hoch" "Gewicht OK" - merke alle negativen Ergebnisse und schreibe sie am Schluss einzeilig in eine Datei "test.dwg 25.10.2010 Länge zu kurz, Höhe zu hoch" Jetzt unterscheiden sich die Steuerzeichen ("\n" am Schirm, ", " in der Endzeile), es gibt auch keine Endzeile (wenn alles OK) usw. Wie sieht die ultimative "strcat princ setq" Kombination aus, um das als Einzeiler hinzukriegen? Peter ------------------ Für jedes Problem gibt es eine einfache Lösung. Die ist aber meistens falsch. ;-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13508 Registriert: 30.11.2003 .	erstellt am: 25. Okt. 2010 14:42 <-- editieren / zitieren --> Unities abgeben: Nur für Peter2 (setq ERRMSG nil) ... (setq ERMSG(cons "Fehler 1" ERRMSG)) oder wenn auch Sofortausgabe (princ(strcat "\n"(car(setq ERMSG(cons "Fehler 1" ERRMSG))))) ... (setq ERMSG(cons "Fehler 2" ERRMSG)) ... (setq ERMSG(cons "Fehler 3" ERRMSG)) ... (mapcar '(lambda(X)(princ (strcat"\n" X)))ERRMSG) ------------------ - 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
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 - 2014 Arcibem System: Windows 2000, XP, NO VISTA Internet-Startseite: http://www.archi.de	erstellt am: 25. Okt. 2010 15:41 <-- editieren / zitieren --> Unities abgeben: Nur für Peter2 ...oder gleich zusammenstellen: Code: (setq zeile "") ;... (print)(setq zeile (strcat zeile (princ "Länge zu kurz") ", ")) (print)(setq zeile (strcat zeile (princ "Höhe zu hoch"))) (print)(princ zeile) Grüsse, Henning ------------------ zur Abstimmung Henning Jesse VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Peter2 Ehrenmitglied V.I.P. h.c. Beiträge: 3701 Registriert: 15.10.2003 Win 10/64 Pro AutoCAD MAP 3D 2018 BricsCAD 22	erstellt am: 25. Okt. 2010 16:07 <-- editieren / zitieren --> Unities abgeben: Danke fürs erste an beide - ich werde in mich gehen. Peter ------------------ Für jedes Problem gibt es eine einfache Lösung. Die ist aber meistens falsch. ;-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)