Zugriff auf Listenelemente (Autodesk/Lisp) - Lösung vorhanden!


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: Zugriff auf Listenelemente (439 mal gelesen)
archi2archi Mitglied Beiträge: 2 Registriert: 06.07.2022	erstellt am: 06. Jul. 2022 18:59 <-- editieren / zitieren --> Unities abgeben: Hallo Forumer, da mir nach Monaten der Programmierpause wieder die Routine fehlt: bitte um kurze Hilfe beim Zugriff auf die Daten. ((-1 . <Objektname: 1f94c4719c0> ) (0 . "DICTIONARY") (5 . "5BC4") (102 . "{ACAD_REACTORS") (330 . <Objektname: 1f94c4719b0> ) (102 . "}") (330 . <Objektname: 1f94c4719b0> ) (100 . "AcDbDictionary") (280 . 1) (281 . 1) (3 . "FMATTRIBS") (360 . <Objektname: 1f94c4719d0> ) (3 . "IFCPROPERTIES") (360 . <Objektname: 1f94c4719e0> )) Für die ERSTE (360 . - Liste: (entget (cdr (assoc 360 (entget (cdr (assoc 360 (entget (cdr (assoc 360 (entget (entlast))))))))))) Und für die ZWEITE (360 . -Liste: ? Vielen Dank archi2archi Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Brischke Moderator CAD on demand GmbH Beiträge: 4171 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)	erstellt am: 06. Jul. 2022 19:03 <-- editieren / zitieren --> Unities abgeben: Nur für archi2archi wenn es nur die 2 360er Einträge gibt, dann mach ein Reverse der Liste und rufst das gleiche nochmal au. Sollte funktionieren, da ja nach dem Reverse das 2. als erstes steht. Grüße! Holger ------------------ Holger Brischke CAD on demand GmbH Individuelle Lösungen von Heute auf Morgen. defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Meldin Mitglied Beiträge: 381 Registriert: 15.07.2011 ACA2020 Windows10	erstellt am: 07. Jul. 2022 07:37 <-- editieren / zitieren --> Unities abgeben: Nur für archi2archi Hallo, oder so etwas in der Art ginge auch. Code: (nth 1 (vl-remove-if-not '(lambda (x) (= 360 (car x))) (entget (car (entsel))) ) ) ------------------ Gruß Wolfgang Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
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: 07. Jul. 2022 08:01 <-- editieren / zitieren --> Unities abgeben: Nur für archi2archi Hier nochmal Wolfgangs Vorschlag ein bißchen erweitert, so dass als Rückgabe wieder eine Liste mit den jeweiligen, entgetteten 360er-Objekten: Code: (if (not (setq gc360List (mapcar 'entget (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= 360 (car x))) (entget (car (nentsel))) ) ) ) ) ) (alert "Keine 360er-Gruppencodes vorhanden.") gc360List) ------------------ viele Grüße Jörn http://www.bosse-engineering.com Bosse_tools-Überblick Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
archi2archi Mitglied Beiträge: 2 Registriert: 06.07.2022	erstellt am: 07. Jul. 2022 08:56 <-- editieren / zitieren --> Unities abgeben: Hallo Holger, die einfachen Dinge versüßen das Leben! In Dynamo ist reverse ja auch oft die Lösung. Vielen Dank archi2archi [Diese Nachricht wurde von archi2archi am 07. Jul. 2022 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)