| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: repeat - letzte Variabel dazu addieren (424 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: 01. Okt. 2010 13:38 <-- editieren / zitieren --> Unities abgeben:
Guten Tag, ich möchte gerne das die Variabel "e1" beim nächsten durchlauf immer dazu addiert wird bis die Schleife am Ende ist. Beim 3 mal durchlaufen mit den Variabeln 10, 20 und 30 möchte ich einen Wert 60 erzielen. Ich bekomme es einfach nicht hin. Könnt ihr bitte helfen, danke. (initget (+ 1 2 4)) (setq X (getint "\nAnzahl: ")) (repeat X (setq e1 (getint "\nZahl eingeben: ")) ) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Moderator CAD on demand GmbH
Beiträge: 4171 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 01. Okt. 2010 14:01 <-- editieren / zitieren --> Unities abgeben: Nur für richycad
Hallo richycad, sorry, ich bekomme aus dem Code und deiner Fragestellung keinen Sinn heraus. Versuche bitte, dein Problem etwas genauer zu beschreiben, besonders, was soll wo hinzu addiert werden? Grüße Holger ------------------ Holger Brischke CAD on demand GmbH Individuelle Lösungen von Heute auf Morgen. defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme! 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: 01. Okt. 2010 14:42 <-- editieren / zitieren --> Unities abgeben: Nur für richycad
Hallo RichyCAD, ich habe so eine Ahnung wo Du drauf hinaus willst: Code:
(defun c:test ( / X e1 n e_summe) (initget (+ 1 2 4)) (setq X (getint "\nAnzahl: ") e_summe 0 n 0) (repeat X (setq e1 (getint (strcat "\nZahl " (itoa(setq n (+ n 1)))" eingeben: ")) e_summe (+ e_summe e1))) (princ (strcat "\nErgebnis: "(itoa e_summe))) (princ) )
Vielleicht solltest Du aber auch folgenden Variante in Augenschein nehmen, dort wird nämlich so lange addiert, bist Du mit ENTER die Eingabe-WHILE-Schleife verläßt, und dann wird die Summe präsentiert. Code:
(defun c:test1 ( / X e1 n e_summe) (setq n 0 e_summe 0) (while (setq e1 (getint (strcat "\nZahl " (itoa(setq n (+ n 1)))" eingeben: "))) (setq e_summe (+ e_summe e1))) (princ (strcat "\nErgebnis: "(itoa e_summe))) (princ) )
------------------ viele Grüße Jörn http://www.bosse-engineering.com 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: 01. Okt. 2010 17:20 <-- editieren / zitieren --> Unities abgeben:
Jörn, dankeschön. Das ist genau was ich suchte. Wäre ich nie drauf gekommen. (Unities gebe ich ab - muss gucken wie das geht) Auch Holger, danke für die Meldung. An beide, der Hintergrund meine Frage. Ist ja immer interessant wofür man die Codes benutzt. Im Bereich Hochbau, will ich einen Höhenschnitt automatisieren. Dafür muss ich wissen wie die unterste Stockwerk für eine Höhe hat. Nach der Abfrage wie viele Stockwerke es sein sollen geht er in die Schleife. Bei der nächsten Stockwerk werden alle untersten Stockwerke dazu gezählt. Besten Dank Gruß Richy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |