;;贴一个我自己用的
    (defun c:xg ( / s e g i )
    (if (setq s (ssget))
    (repeat (setq i (sslength s))
    (setq e (ssname s (setq i (1- i))))
    (if (= “GROUP” (cdr (assoc 0 (entget (setq g (cdr (assoc 330 (entget e))))))))(entdel g))
    )
    )
    )