(defun C:add ( / Z1 Z2 OBJEKT OBJEKTDATEN )
;;  (setq Z1(getreal "\nZahl eingeben: "))

(Setq ename (CAR (EntSel "\nzweiter Operator:" )))
(Setq LTC_Textent (If ename (EntGet ename)))
(If (= (CDR (Assoc 0 LTC_textent)) "TEXT" )
(setq Z1 (atof (cdr(assoc 1 LTC_Textent)))))


  (setq #op (getstring "\nOperation (+ - * /):  "))
  (cond
    ( (= #op "+")
      (setq #op +)  
    )
    ( (= #op "-")
      (setq #op -)  
    )
    ( (= #op "*")
      (setq #op *)  
    )
    ( (= #op "/")
      (setq #op /)  
    )
  )

    (while (setq OBJEKT (car(entsel "\nerster Operator : ")))
      (setq OBJEKTDATEN(entget OBJEKT '("*")))
      (if (member(cdr(assoc 0 OBJEKTDATEN)) '("TEXT" ))
        (progn
          (setq Z2 (atof (cdr(assoc 1 OBJEKTDATEN))))
          (setq OBJEKTDATEN (subst(cons  1 (rtos (#op Z2 Z1) 2 3))
                                  (assoc 1 OBJEKTDATEN)
                                  OBJEKTDATEN
                            )                  
          )          
          (entmod OBJEKTDATEN)
          (command "_regen")
        )
      ) 
    )        
  )