| |
| 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) (516 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
|
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
|
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
|
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 |