| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Klammern aus einer Liste entfernen (1050 mal gelesen)
|
berndhock Mitglied Holztechniker
Beiträge: 35 Registriert: 07.03.2003 AutoCAD2004 und 2005 3,20 gigahertz Intel Pentium 4 1022 Megabytes Installed Memory Matrox Parhelia 128MB
|
erstellt am: 24. Mai. 2007 12:34 <-- editieren / zitieren --> Unities abgeben:
Hallo, kann mir jemand sagen wie ich Klammen aus einer Liste entfernen kann? Im Moment sieht meine Liste so aus: (("BH") ("KDS") ("JR") ("HB")) ich hätte aber gerne dass die so aussieht: ("BH" "KDS" "JR" "HB") Gibt es eine Funktion die das erledigt? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 .
|
erstellt am: 24. Mai. 2007 12:45 <-- editieren / zitieren --> Unities abgeben: Nur für berndhock
..von hause aus nicht, die mußt du dir schon selber schreiben .. (defun DT:LIST->ATOMS(LISTE / RETURNLISTE) (defun LISTS->ATOMS (LISTE) (setq LISTE (reverse LISTE)) (repeat (length LISTE) (if(listp(car LISTE)) (LISTS->ATOMS (car LISTE)) (setq RETURNLISTE(cons (car LISTE) RETURNLISTE)) ) (setq LISTE (cdr LISTE)) ) ) (LISTS->ATOMS LISTE) RETURNLISTE ) (... ist ein bißchen universaler, als für deinen Zweck nötig, aber..) (DT:LIST->ATOMS '(("BH") ("KDS") ("JR") ("HB"))) ergibt dann ("BH" "KDS" "JR" "HB") ------------------ - 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 |
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3329 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 24. Mai. 2007 13:04 <-- editieren / zitieren --> Unities abgeben: Nur für berndhock
|
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1734 Registriert: 11.10.2004 Window 10 ACAD 2021 CIVIL 2021 BricsCAD V14-V22 Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz 16.0GB RAM NVIDIA GeForce GTX 1050<P>
|
erstellt am: 24. Mai. 2007 17:01 <-- editieren / zitieren --> Unities abgeben: Nur für berndhock
|
andi2050 Mitglied
Beiträge: 107 Registriert: 11.03.2003
|
erstellt am: 24. Mai. 2007 20:54 <-- editieren / zitieren --> Unities abgeben: Nur für berndhock
|
civilization Mitglied MfA
Beiträge: 190 Registriert: 14.02.2006 Windows XP Civil 3D 2009
|
erstellt am: 25. Mai. 2007 22:08 <-- editieren / zitieren --> Unities abgeben: Nur für berndhock
|
Wolfgang S Mitglied CADaver
Beiträge: 270 Registriert: 06.03.2006 AC 2009, C3D 2009, AC 2010, C3D 2010, AC 2011, C3D 2011, RVT 2010, RVT 2011, ASD 2011 und alles darunter bis R14 + Win XP, Win XP64, Win 7/64
|
erstellt am: 04. Jun. 2007 13:58 <-- editieren / zitieren --> Unities abgeben: Nur für berndhock
Zitat: ich würde das glatt so machen... Suchen: ") (" Ersetzen: " "
Ich denke, daß die Funktion von CADmium zu bevorzugen wäre, nachdem die auch rekursiv funktioniert:
(DT:LIST->ATOMS '(("BH") ((((("KDS"))))) ("JR") ("HB"))) ergibt dann ("BH" "KDS" "JR" "HB") (ohne weiters auf vorigen Lösungsvorschlag einzugehen) Wolfgang S
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |