Seite 1 von 1

Berechnen von Zahlenwerten

Verfasst: Di 24. Mär 2009, 10:47
von didi123
Ich benötige eine Funktion markierte Zahlenwerte um einen vorgegebenen Zahlenwert zu addieren bzw. zu subtrahieren.

Re: Berechnen von Zahlenwerten

Verfasst: Mi 25. Mär 2009, 07:54
von CADwiesel
was sind denn markierte Zahlenwerte? Wie stellt sich dies denn dar?

Re: Berechnen von Zahlenwerten

Verfasst: Fr 13. Sep 2013, 09:48
von toshni
So was hier:

Code: Alles auswählen

;;;------------------------------------------------------------------------------------------------
;;; Programm: TXTADD
;;; Funktion: Addiert zu einem "Zahlentext" eine Zahl hinzu
;;; Author:   Thomas Schnitzler (c) 2013
;;;------------------------------------------------------------------------------------------------
(DEFUN c:txtadd (/ ADD CNT ENT NUM SEL TXT WRT)
 (PROMPT "\nZu ändernde Texte wählen: ")
 (SETQ sel (SSGET '((0 . "TEXT")))
       cnt 0
       add (GETINT "\nZahl die addiert werden soll: ")
 )
 (WHILE (< cnt (SSLENGTH sel))
  (SETQ ent (ENTGET (SSNAME sel cnt))
        num (CDR (ASSOC 1 ent))
        wrt (ATOI num)
        cnt (1+ cnt)
  )
  (IF (= num (ITOA wrt))
   (SETQ txt (ITOA (+ wrt add))
         ent (SUBST (CONS 1 txt) (ASSOC 1 ent) ent)
   )
  )
  (ENTMOD ent)
 )
 (PRINC)
)