Problem mit Linieneigenschaften (assoc) (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: Problem mit Linieneigenschaften (assoc) (515 mal gelesen)
stoked Mitglied Student Beiträge: 5 Registriert: 23.03.2006	erstellt am: 08. Jan. 2008 00:49 <-- editieren / zitieren --> Unities abgeben: Hallo, ich möchte die Eigenschaften zweier Linien vergleichen. Und zwar, ob der Endpunkt von Linie1 identisch dem Startpunkt von Linie2 ist oder umgekehrt. Code: (if (= (cdr(assoc 11 line1)) (cdr(assoc 10 line2))) (princ"\Identisch")) (if (= (cdr(assoc 10 line1)) (cdr(assoc 11 line2))) (princ"\Identisch")) Leider funktioniert es nicht. Es erfolgt nie eine Ausgabe, obwohl ich vorher auch schon die ganzen Daten (cdr(assoc 11 line1)) etc. ausgeben lasse und sie hier identisch sind. Kann mir jemand helfen? ------------------ ;-------------------------------- (princ "Hello World!\n") ;-------------------------------- 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: 08. Jan. 2008 07:41 <-- editieren / zitieren --> Unities abgeben: Nur für stoked Hallo, vergleiche doch einfach den Abstand, wenn der glech Null ist... Code: (if (=(distance (cdr(assoc 11 line1)) (cdr(assoc 10 line2)))0.0) (princ"\Identisch")) ------------------ viele Grüße Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Geos Mitglied Vermessungstechniker i.R. Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250	erstellt am: 08. Jan. 2008 08:37 <-- editieren / zitieren --> Unities abgeben: Nur für stoked ... oder nimm (equal) statt "=", da kannst auch eine "Ungenauigkeit" berücksichtigen. Das "Problem" liegt wahrscheinlich irgendwo weit hinter dem Komma. ------------------ Schöne Grüße Ernst www.geopaint.at Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
fuchsi Mitglied Programmierer c#.net Datawarehouse Beiträge: 1201 Registriert: 14.10.2003 AutoCad Version 2012 deu/enu <P>Windows 7 64bit	erstellt am: 08. Jan. 2008 11:01 <-- editieren / zitieren --> Unities abgeben: Nur für stoked Listen kann man so nicht mit = (equal to) vergleichen, sondern nur mitt equal (setq a (list 1 1 1) b (list 1 1 1)) (= a b) -> nil (equal a b) -> t ------------------ Ing. Anton Fuchs WWW.FFZELL.AT.TC Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADwiesel Moderator CAD4FM UG Beiträge: 1968 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich	erstellt am: 08. Jan. 2008 12:41 <-- editieren / zitieren --> Unities abgeben: Nur für stoked Lieber noch einen Fuzzy Wert beim Vergleich mit equal übergeben, da auch in Fuchsi's Beispiel (setq a (list 1 1 1) b (list 1 1 1)) (= a b) -> nil (equal a b) -> nil ergeben kann (equal a b 0.001) ------------------ Gruß CADwiesel Besucht uns im CHAT Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
stoked Mitglied Student Beiträge: 5 Registriert: 23.03.2006	erstellt am: 08. Jan. 2008 20:11 <-- editieren / zitieren --> Unities abgeben: Ihr seid der Wahnsinn! Was so ein kleines "equal" alles bewirken kann... mit "=" ging's nicht, aber jetzt ist alles top! Vielen Dank für die zahlreichen Antworten. ------------------ ;-------------------------------- (princ "Hello World!\n") ;-------------------------------- Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)