;-------------------------------------------------------------------------------------------------------------------------------------
;
; Schnittstelle zu anderen Modulen:
;
; INPUT und INPUTRESTRIKTIONEN
; ============================
;
; Parameter    :
;
; Typ    Variablename      Variablebeschreibung [Wertebereich]
; real   rwertein          Realwert der gerundet werden soll
; int    ianzkst           Anzahl der Kommastellen für die Rundung 
;  
;
; OUTPUT und OUTPUTRESTRIKTIONEN
; ================================
;
; Parameter    :
;
; Typ    Variablenname     Variablenbeschreibung  [Wertebereich]  
; real   rwertaus          gerundeter Realwert 
;  
;-------------------------------------------------------------------------------------------------------------------------------------
;  
( defun runden ( rwertein ianzkst
                 / 
                 cwertaus cwerteinneu
                 idimzinsav ieinheit
                 rwertaus )
  
; Die eingestellte Einheit ermitteln
  (setq ieinheit (getvar "lunits"))      
  
; Den Wert runden
  (setq idimzinsav (getvar "dimzin"))
  (setvar "dimzin" 8)
  (setq cwerteinneu (rtos rwertein ieinheit (+ ianzkst 2)))  
  (setq cwertaus (rtos (atof cwerteinneu) ieinheit ianzkst)) 
  (setq rwertaus (atof cwertaus))                            
  (setvar "dimzin" idimzinsav)
  
; Rückgabewert
  rwertaus
  
) ; Modulende