(defun GET-GNAMESFROMDIC (/ CODE GROUPLIST GRPDICT INDEX OBJDICT)
  (setq OBJDICT   (namedobjdict)
        GRPDICT   (dictsearch OBJDICT "ACAD_GROUP")
        GROUPLIST '()
        INDEX     0
  ) ;_ end setq
  (while (< INDEX (length GRPDICT))
    (if (= (setq CODE (car (nth INDEX GRPDICT))) 3)
      (setq GROUPLIST (cons (cons (cdr (nth (1+ INDEX) GRPDICT))
                                  (cdr (nth INDEX GRPDICT))
                            ) ;_ end cons
                            GROUPLIST
                      ) ;_ end cons
      ) ;_ end setq        
    ) ;_ end if
    (setq INDEX (1+ INDEX))
  ) ;_ end while
  GROUPLIST
) ;_ end defun

(defun C:UNGRPEXP (/ GLIST GLIST2 AUSWAHL INDEX)
  (setq GLIST  (GET-GNAMESFROMDIC)
        GLIST2 '()
  ) ;_ end setq
  (if GLIST
    (progn
      (foreach ELEM GLIST
        (setq GLIST2 (cons (cdr ELEM) GLIST2))
      ) ;_ end foreach
      (foreach ELEM GLIST2
        ;(command "_.-group" "_ex" ELEM);<--ACAD-Vollversion Variante
        (command "_.-group" "_u" ELEM);<--ACAD.LTversion Variante
      ) ;_ end foreach
      (princ (strcat "\nOk, \""
                    (itoa (length GLIST2))
                    "\" Gruppe(n) wurden aufgelöst!"
            ) ;_ end strcat
      ) ;_ end princ
    ) ;_ end progn
    (princ "\nKEINE Gruppen vorhanden!")
   ) ;_end if
  (while(setq AUSWAHL (ssget "_X" '((0 . "INSERT")(67 . 0))))
      (setq INDEX -1)
      (repeat(sslength AUSWAHL)
        (command "_explode" (ssname AUSWAHL(setq INDEX(1+ INDEX))))
      )  
  ) ;_ end while
(princ)
) ;_ end defun