| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Creo |
Autor
|
Thema: Listen vergleichen (874 mal gelesen)
|
MiBr Mitglied Konstrukteur
Beiträge: 508 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 19R3 Mechanical Pro
|
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: 2143 Registriert: 12.12.2000 Konstruktion von Sondermaschinen, Montageautomaten, Meß- und Prüfeinrichtungen, Vorrichtungen und Produktentwicklung mit Creo Elements/Direct Modeling 20.4, AdvancedDesign, Surfacing, Simulate, SolidPower, ModelManager auf HP ZBook 17 G4, Windows 10 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: 508 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 19R3 Mechanical Pro
|
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
|
MiBr Mitglied Konstrukteur
Beiträge: 508 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 19R3 Mechanical Pro
|
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 Ehrenmitglied V.I.P. h.c. Tastenhauer
Beiträge: 2017 Registriert: 3.20. ● PE60+80@home ● W10 Pro Build19044.2364 ● Drafting V17~V20.5.1 ● Modeling V17~V20.5.1
|
erstellt am: 09. Jun. 2021 22:17 <-- editieren / zitieren --> Unities abgeben: Nur für MiBr
|