Listen vergleichen (PTC/PTC Creo Elements/Programmierung) - Lösung vorhanden!


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für PTC CREO

	Wichtige Änderung beim Bankdatenimport: Neues CAMT-Format ersetzt MT940, eine Pressemitteilung Meldungen abonnieren
Autor	Thema: Listen vergleichen (1393 / mal gelesen)
MiBr Mitglied Konstrukteur Beiträge: 590 Registriert: 30.06.2015 HP Z440 Workstation 64GB Modeling 20.1.2.0 (x64) Drafting 20.1.2.0 (64x) klas. UI Modell Manager 20.1.2.0 Ansys Workbeanch 22R2 Mechanicail Pro + FKM Inside	erstellt am: 09. Jun. 2021 13:47 <-- editieren / zitieren --> Unities abgeben: Hallo, ich schreibe gerade nee Lisp und stehe voll auf dem Schlauch! Mittels folgendem Code bekomme ich die Listen von zylindrischen Flächen Code: (setf zyl_flae (sd-call-cmds (get_selection :focus_type sd-cylinder-seltype :allow_face_par :select :in_part Besitzer))) Ich habe zwei Listen: zylinderflächen_vor_bearbeitung und zylinderflächen_nach_bearbeitung. Jetzt möchte ich alle Flächen ermitteln die in zylinderflächen_nach_bearbeitung hinzugekommen sind. Also: Elemente aus zylinderflächen_nach_bearbeitung - Elemente aus zylinderflächen_vor_bearbeitung = gesuchtetes Ergebniss Finde da kein Befehl. Man könnte natürlich mit Dolist ect. arbeiten, aber geht das nicht einfacher? Gruß Michael Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Walter Geppert Moderator Frank und Frei Beiträge: 2173 Registriert: 12.12.2000 Konstruktion von Sondermaschinen, Montageautomaten, Meß- und Prüfeinrichtungen, Vorrichtungen und Produktentwicklung mit Creo Elements/Direct Modeling 20.8, AdvancedDesign, Surfacing, SolidPower, ModelManager auf HP ZBook Fury 16 G9, Windows 11 Pro 64	erstellt am: 09. Jun. 2021 16:42 <-- editieren / zitieren --> Unities abgeben: Nur für MiBr LISP ist der Herr der Listen, der die eine Liste hat, sie alle zu knechten Code: (setf zylinderflächen_nach_bearbeitung (remove zylinderflächen_vor_bearbeitung zylinderflächen_nach_bearbeitung :test #'equal)) ------------------ meine LISP-Makros sind mit vielen anderen aus diesem Forum auf osd.cad.de Disclaimer Grüße aus Wien Walter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
MiBr Mitglied Konstrukteur Beiträge: 590 Registriert: 30.06.2015 HP Z440 Workstation 64GB Modeling 20.1.2.0 (x64) Drafting 20.1.2.0 (64x) klas. UI Modell Manager 20.1.2.0 Ansys Workbeanch 22R2 Mechanicail Pro + FKM Inside	erstellt am: 09. Jun. 2021 17:19 <-- editieren / zitieren --> Unities abgeben: Hallo Walter, irgendwie bekomme ich die Liste noch nicht geknechtet! Dein Code wurde die Elemente aus einer Liste bei einer anderen Liste abzeihen. Ich denke das 'remove' aber nur ein Element aus einer Liste entfernt. Ich bekomme es so auf jeden Fall nicht hin. Nach mittellanger suche im Internet müsste das meiner Meinung nach ungefair so gehen: Code: (setf zylinderflächen_hinzugekommen (remove-if #'(lambda (x) (member x zylinderflächen_vor_bearbeitung)) zylinderflächen_nach_bearbeitung)) Aber ich bekomms noch nicht gewuppt! Gruß Michael [Diese Nachricht wurde von MiBr am 09. Jun. 2021 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
clausb Ehrenmitglied V.I.P. h.c. Beiträge: 2914 Registriert: 20.12.2000 Ich schreibe das hier in meiner Freizeit und spreche weder für meinen Arbeitgeber noch für andere Firmen. Mehr Unsinn von mir unter clausbrod.de.	erstellt am: 09. Jun. 2021 18:32 <-- editieren / zitieren --> Unities abgeben: Nur für MiBr Vielleicht hilft auch das hier: http://clhs.lisp.se/Body/f_set_di.htm ------------------ CoCreate Modeling FAQ: http://www.clausbrod.de/CoCreateModeling/ - Blog: http://www.clausbrod.de/Blog Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
MiBr Mitglied Konstrukteur Beiträge: 590 Registriert: 30.06.2015 HP Z440 Workstation 64GB Modeling 20.1.2.0 (x64) Drafting 20.1.2.0 (64x) klas. UI Modell Manager 20.1.2.0 Ansys Workbeanch 22R2 Mechanicail Pro + FKM Inside	erstellt am: 09. Jun. 2021 19:44 <-- editieren / zitieren --> Unities abgeben: Es klappt, dann bin ja doch noch Herr der Listen geworden Code: (setf zylinderflächen_nach_bearbeitung (set-difference zylinderflächen_nach_bearbeitung zylinderflächen_vor_bearbeitung :test #'equal)) Danke an Euch beide!!! Michael Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
der_Wolfgang Moderator Tastenhauer Beiträge: 2371 Registriert: 3.20. ● PE60+80+90@home ● W10 Pro Build10.0.19045.6282 ● Drafting V17~V20.7@job ● Modeling V17~V20.7@job ● Windchill 12.1.2.6@job ● UWGM Client 13.1.0.1@job ● Taschenrechner ● brain 6.3 ● Stift+Zettel V8.42	erstellt am: 09. Jun. 2021 22:17 <-- editieren / zitieren --> Unities abgeben: Nur für MiBr set-difference Gewuss, wie, wo , wann mit :test 'equal und :key 'sd-inq-contents-sysid . ist man schier der king :krönchen ------------------ ● Firefox ESR ● Java Forum Stuttgart JUGS ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ● BuFDi ● Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)