Berechnen von Zahlenwerten
Verfasst: Di 24. Mär 2009, 10:47
Ich benötige eine Funktion markierte Zahlenwerte um einen vorgegebenen Zahlenwert zu addieren bzw. zu subtrahieren.
Themen Rund um AutoLisp und VisualLisp Tools
http://forum.cadwiesel.de/
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)
)