---

Hallo Leute!
Ich bräuchte ein simples Lisp:

Zeige eine Zahl (Acad-Text) und addiere zu dieser Zahl den Betrag x.
Betrag x sollte über Benutzereingabe variabel sein.

Sowas hat doch sicher schon wer rumliegen, bzw. kann sowas für einen Lisp-Programmierer doch nur eine Kleinigkeit sein - selbst bin ich (leider noch immer) ein Lispidiot.

Grüße aus Wien und besten Dank im Vorraus

Helmut

PS: Denselben Beitrag hab ich auch ins Rund um Acad- Forum gestellt

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

So was ? .. oder nur ein Taschenrechner oder nur Ganzzahlen ... ?

(defun ADD ( / Z1 Z2 OBJEKT OBJEKTDATEN )
  (if (setq Z1(getreal "\nZahl eingeben: "))
    (while (setq OBJEKT (car(entsel "\nText wählen : ")))
      (setq OBJEKTDATEN(entget OBJEKT '("*")))
      (if (member(cdr(assoc 0 OBJEKTDATEN)) '("TEXT" "MTEXT"))
        (progn
          (setq Z2 (atof (cdr(assoc 1 OBJEKTDATEN))))
          (setq OBJEKTDATEN (subst(cons  1 (rtos (+ Z1 Z2) 2 2))
                                  (assoc 1 OBJEKTDATEN)
                                  OBJEKTDATEN
                            )                 
          )         
          (entmod OBJEKTDATEN)
          (command "_regen")
        )
      )
    )       
  ) 
)

.. dimzin evtl setzen..

------------------
- Thomas -

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas!

Nachdem ich die erste Zeile in

(defun c:ADD ( / Z1 Z2 OBJEKT OBJEKTDATEN )

geändert habe läuft das lisp genau wie ich es mir vorgestellt habe!

Danke für das Lisp und Danke für das Erfolgserlebnis.

Grüße aus Wien

Helmut

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas!

Ich versuche das Lisp so umzubasteln, dass ich einen fixen Wert addiere bzw. subtrahiere (addieren/subtrahieren über Benutzereingabe), hab auch eine Idee wie das gehen könnte aber die ganzen Klammern..... 

Kann leider nichts als Units bieten....

Helmut

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP