( defun meinefunktion ( enameup
			     / 
                             clage cmstab czform
                             ieinheit ikst ilpos ipappltb
                             l10 lboxzform lbpkt lentget lfensterbox lkoor lpktlu lpktro
                             rdiff rdiffmin rwinluro rwinrolu rxausd rxlu ryausd rylu rzlu )
 
; ...
  (if (/= enameup nil)
    (progn     
      (setq rxlu (testfunktion1 enameup (vl-bb-ref '*igcebxlu*)))
      (if (= rxlu nil)
	(progn
	  (setq lkoor (testfunktion2 enameup nil)) ; schneller als koordinaten_element_ermitteln	  
	) ; progn
	(progn
          (setq rxlu (testfunktion1 enameup (vl-bb-ref '*igcebxlu*)))
          (setq rylu (testfunktion1 enameup (vl-bb-ref '*igcebylu*)))
          (setq rzlu 0.0)
          (setq rxausd (testfunktion1 enameup (vl-bb-ref '*igcebxausd*)))
          (setq ryausd (testfunktion1 enameup (vl-bb-ref '*igcebyausd*)))
	) ; progn
      ) ; if
    ) ; progn
  ) ; if    

; Den Rückgabewert ermitteln
  (setq lfensterbox nil)
  
; Rückgabewert
  lfensterbox

) ; Modulende