Blöcke vergleichen (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: Blöcke vergleichen (417 mal gelesen)
GG-GREGOR Mitglied CAD - KONSTR. Beiträge: 79 Registriert: 04.09.2002 SW. ACAD 2010 ACAD Map 3D 2006 Solid Works 2010 Cinema 4D Max 3D<P>HW. mix	erstellt am: 27. Nov. 2009 09:20 <-- editieren / zitieren --> Unities abgeben: Hallo Leute, möchte gerne Blöcke vergleichen und hab es mit diesem System versucht! (cond ((= block "a") (setq block-new1 "aa")) ((= block "a") (setq block-new2 "xx")) ((= block "a") (setq block-new3 "xx")) ((= block "b") (setq block-new1 "aab")) ((= block "b") (setq block-new2 "bb")) ((= block "b") (setq block-new3 "xx")) ...... (t nil) ) Vergleichstabelle a aa b aab bb c abc d acd abcd abcde e bcd …… (if (or (= inhalt2-aws-2 block-new1) (= inhalt2-aws-2 block-new2)) (Progn ……. Kennt einer eine bessere Lösung ? mfg Gregor Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13508 Registriert: 30.11.2003 .	erstellt am: 27. Nov. 2009 09:22 <-- editieren / zitieren --> Unities abgeben: Nur für GG-GREGOR nö .. die Variablenauswertung ist so schon ok ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Steff179 Mitglied Geomatiker Beiträge: 266 Registriert: 09.08.2007 AutoCAD 2014	erstellt am: 27. Nov. 2009 09:50 <-- editieren / zitieren --> Unities abgeben: Nur für GG-GREGOR Zitat: Original erstellt von GG-GREGOR: (cond ((= block "a") (setq block-new1 "aa")) ((= block "a") (setq block-new2 "xx")) ((= block "a") (setq block-new3 "xx")) ((= block "b") (setq block-new1 "aab")) ((= block "b") (setq block-new2 "bb")) ((= block "b") (setq block-new3 "xx")) ...... (t nil) ) hallo gregor ich versetehe nicht was das mehrmalige (= block "a") oder (= block "b") in (cond) soll... so viel ich weiss wird die cond schleife nach dem ersten zutreffen verlassen... das heisst es wird immer nur ((= block "a") (setq block-new1 "aa")) und ((= block "b") (setq block-new1 "aab")) behandelt... bin jetzt aber echt nicht sicher ob ich was übersehen habe. gruss steff Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
GG-GREGOR Mitglied CAD - KONSTR. Beiträge: 79 Registriert: 04.09.2002 SW. ACAD 2010 ACAD Map 3D 2006 Solid Works 2010 Cinema 4D Max 3D<P>HW. mix	erstellt am: 27. Nov. 2009 09:56 <-- editieren / zitieren --> Unities abgeben: hallo steff, sollte es so sein ? ((= block "a") (setq block-new1 "aa")(setq block-new2 "xx")(setq block-new3 "xx")) mfg Gregor Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Steff179 Mitglied Geomatiker Beiträge: 266 Registriert: 09.08.2007 AutoCAD 2014	erstellt am: 27. Nov. 2009 09:59 <-- editieren / zitieren --> Unities abgeben: Nur für GG-GREGOR meiner meinung nach ja... aber das cadmium das nicht angezweifelt hat verunsichert mich ein wenig. gruss Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
GG-GREGOR Mitglied CAD - KONSTR. Beiträge: 79 Registriert: 04.09.2002 SW. ACAD 2010 ACAD Map 3D 2006 Solid Works 2010 Cinema 4D Max 3D<P>HW. mix	erstellt am: 27. Nov. 2009 10:29 <-- editieren / zitieren --> Unities abgeben: hast recht! (cond (test1 ausdr1-1 ausdr1-2 ...) (test2 ausdr2-1 ausdr2-2 ...) .... das Programm endet immer wenn eine wahr ist! 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: 27. Nov. 2009 10:42 <-- editieren / zitieren --> Unities abgeben: Nur für GG-GREGOR Hallo Gregor, und das (t nil) kann zum Schluss weggelassen werden: wenn die oberen Bedingungen nicht erfüllt sind, dann gibt die Cond-Funktion eh ein nil zurück. ------------------ viele Grüße Jörn http://www.bosse-engineering.com Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13508 Registriert: 30.11.2003 .	erstellt am: 27. Nov. 2009 10:59 <-- editieren / zitieren --> Unities abgeben: Nur für GG-GREGOR Zitat: Original erstellt von Steff179: meiner meinung nach ja... aber das cadmium das nicht angezweifelt hat verunsichert mich ein wenig. gruss .. ich seh überhaupt nicht den Sinn des Ganzen .. da der Varaibleninhalt ja bisherunbekannt ist und die Zielstellung des Codes auch nicht näher spezifiziert wurde .. sorry ... ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)