| | |
 | 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 (423 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 |
Foren auf CAD.de (alle Foren)
| 
