;  summe.lsp
;  ermitteln die Summe von Zahlentexten
;  erstellt 03/06  Th.Jakob
;
;
(defun c:gsumme()
  (setq summe 0.0)
  (setq tl (ssget))
  (setq anz (sslength tl))
  (setq x 0)
  (while (< x anz)
    (setq ctl (entget(ssname tl x)))
;
;
    (setq wert_txt (cdr (assoc 1 ctl)))
    (setq wert (atof (vl-string-translate "," "." wert_txt)))
    (setq summe (+ summe wert))
;
;
    (setq x (1+ x))

  )  
  (print "Summe")
  (print summe)
  (princ)
)