| |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
 | PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: Problem mit Linieneigenschaften (assoc) (538 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: 1776 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<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: 1998 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 |