| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Vordefinierte Variablen holen (730 mal gelesen)
|
richycad Mitglied
Beiträge: 33 Registriert: 01.10.2010 AutoCAD 2015 Windows 7 Enterprise 64-bit HP ZBook 17 G3 Intel(R) Core(TM) i7-6700HQ CPU @ 2.60GHz, 2601 MHz, 4 Kern(e), 8 logische(r) Prozessor(en) Memory: 8192MB RAM Card name: NVIDIA Quadro M3000M
|
erstellt am: 08. Mrz. 2011 14:50 <-- editieren / zitieren --> Unities abgeben:
Guten Tag, ich möchte aus vordefinierten Variablen "button1....14" die Werte holen. Er soll 14 Mal abfragen. Beim ersten Mal wird z.B ein Kreis an der Stelle gezeichnet wie z.B (0,0)(button1). Beim zweiten Mal ein Kreis an der Stelle (42,0) - button2...usw. bis button14. Ich bekomme das mit "while" oder "repeat" leider nicht hin. Unschön bekomme ich das nur mit einer langen Abfrage hin. Soll aber nicht Sinn der Sache sein. (setq button1 (list 0 0) button2 (list 42 0) button3 (list 0 42) button4 (list 42 42) button5 (list 0 84) button6 (list 42 84) button7 (list 0 126) button8 (list 42 126) button9 (list 0 168) button10 (list 42 168) button11 (list 0 210) button12 (list 42 210) button13 (list 0 252) button14 (list 42 252) ) Danke und gruß Richy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
neurosis Mitglied dipl.ing.
Beiträge: 224 Registriert: 22.08.2006
|
erstellt am: 08. Mrz. 2011 15:11 <-- editieren / zitieren --> Unities abgeben: Nur für richycad
hallo richy, ich habs zwar nicht ganz verstanden, aber vielleicht geht das in die richtige richtung: (setq i 0) (repeat 14 (print (eval (read (strcat "button" (itoa (setq i (1+ i))))))) ) diese schleife zeigt alle werte der variablen button1...14 an. gruss marco ------------------ Marco Heuer www.arc-aachen.de Airport Office Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
richycad Mitglied
Beiträge: 33 Registriert: 01.10.2010 AutoCAD 2015 Windows 7 Enterprise 64-bit HP ZBook 17 G3 Intel(R) Core(TM) i7-6700HQ CPU @ 2.60GHz, 2601 MHz, 4 Kern(e), 8 logische(r) Prozessor(en) Memory: 8192MB RAM Card name: NVIDIA Quadro M3000M
|
erstellt am: 08. Mrz. 2011 15:49 <-- editieren / zitieren --> Unities abgeben:
Danke Marco, hier ist das was ich erreichen wollte. Dein Tipp war die Lösung. (setq button1 (list 0 0) button2 (list 42 0) button3 (list 0 42) button4 (list 42 42) button5 (list 0 84) button6 (list 42 84) button7 (list 0 126) button8 (list 42 126) button9 (list 0 168) button10 (list 42 168) button11 (list 0 210) button12 (list 42 210) button13 (list 0 252) button14 (list 42 252) );;end setq (setq i 0) (repeat 14 (command "_circle" (eval (read (strcat "button" (itoa (setq i (1+ i)))))) "d" 34.5) (initget (+ 2 4) "J N") (setq eingabe (getkword "\nSoll hier ein Kreis hin? J oder N <J>: ")) (if (= eingabe nil) (setq eingabe "J")) (cond ;;Fallunterscheidung ((= eingabe "N") (progn (command "_erase" "L" "") ) ) );;end cond );;end repeat Besten Dank Gruß Richy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
andi2050 Mitglied
Beiträge: 107 Registriert: 11.03.2003
|
erstellt am: 08. Mrz. 2011 21:28 <-- editieren / zitieren --> Unities abgeben: Nur für richycad
Lisp ist eine Sprache, die LISTEN verarbeitet. Hier eine Variante die eine Liste verwendet. (setq pointlist '((0 0) (42 0) (0 42) (42 42) (0 84) (42 84) (0 126) (42 126) (0 168) (42 168) (0 210) (42 210) (0 252) (42 252) ) ) (foreach point pointlist (command "_circle" point "d" 34.5) (initget (+ 2 4) "J N") (if (= "N" (getkword "\nSoll hier ein Kreis hin? J oder N <J>: ")) (command "_erase" "L" "") ) ) Grüße Andi Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
richycad Mitglied
Beiträge: 33 Registriert: 01.10.2010 AutoCAD 2015 Windows 7 Enterprise 64-bit HP ZBook 17 G3 Intel(R) Core(TM) i7-6700HQ CPU @ 2.60GHz, 2601 MHz, 4 Kern(e), 8 logische(r) Prozessor(en) Memory: 8192MB RAM Card name: NVIDIA Quadro M3000M
|
erstellt am: 09. Mrz. 2011 15:10 <-- editieren / zitieren --> Unities abgeben:
|