Berechnen von Zahlenwerten

[didi123]

Ich benötige eine Funktion markierte Zahlenwerte um einen vorgegebenen Zahlenwert zu addieren bzw. zu subtrahieren.

[CADwiesel]

was sind denn markierte Zahlenwerte? Wie stellt sich dies denn dar?

[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)
)