;-------------------------------------------------------------------------------------------------------------------------------------
;
; Schnittstelle zu anderen Modulen:
;
; INPUT und INPUTRESTRIKTIONEN
; ============================
;
; Parameter    :
;
; Typ    Variableelegrp      Variablebeschreibung [Wertebereich]
; ename  eenameup            Elementname
;  
;
; OUTPUT und OUTPUTRESTRIKTIONEN
; ================================
;
; Parameter    :
;
; Typ    Variablenname     Variablenbeschreibung  [Wertebereich]  
; str    cgruppe           Name der Gruppe 
;  
;-------------------------------------------------------------------------------------------------------------------------------------
;  
( defun gruppenname_ermitteln ( eenameup
                                / 
                                cgruppe
                                ianzacadgroup igrcode ilpos izler
                                lacadgroup lacadgroupteil lentgetgruppe lsuche )
 
; Den Gruppenname des Objektes ermitteln
  (setq cgruppe nil)
  (setq lacadgroup (dictsearch (namedobjdict) "ACAD_GROUP"))
  (setq ianzacadgroup (length lacadgroup))
  (setq izler 0)
  (while (and (< izler ianzacadgroup) (= cgruppe nil))
    (setq lacadgroupteil (nth izler lacadgroup))
    (setq igrcode (car lacadgroupteil))
    (if (= igrcode 350)
      (progn
	(setq lentgetgruppe (entget (cdr lacadgroupteil)))
	(setq lsuche (cons 340 eenameup))
	(setq ilpos (listenpos_ermitteln lentgetgruppe lsuche 0 2))
	(if (/= ilpos nil)
	  (setq cgruppe (cdr (nth (- izler 1) lacadgroup))) 
	) ; if	
      ) ; progn
    ) ; if
    (setq izler (+ izler 1))
  ) ; while
   
; Rückgabewert
  cgruppe

) ; Modulende