Berechnen von Zahlenwerten

Was für ein Lisp-Tool sucht ihr? Oder welches Problem bedarf einer Lösung?

Moderator: Moderator

Antworten
didi123
Newbie
Beiträge: 1
Registriert: Fr 13. Mär 2009, 15:17

Berechnen von Zahlenwerten

Beitrag von didi123 » Di 24. Mär 2009, 10:47

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

Benutzeravatar
CADwiesel
Administrator
Beiträge: 367
Registriert: Mo 11. Jun 2018, 13:07
Kontaktdaten:

Re: Berechnen von Zahlenwerten

Beitrag von CADwiesel » Mi 25. Mär 2009, 07:54

was sind denn markierte Zahlenwerte? Wie stellt sich dies denn dar?
Gruß
BildCADwiesel
Besucht uns im CHAT

Benutzeravatar
toshni
Newbie
Beiträge: 9
Registriert: Sa 2. Jan 2010, 18:20
Kontaktdaten:

Re: Berechnen von Zahlenwerten

Beitrag von toshni » Fr 13. Sep 2013, 09:48

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

Antworten