QA-如何一次分解多個群組

 可以用LISP分解

;; Ungroup Multiple  -  Lee Mac

(defun c:ungroupm ( / idx grp sel )

   (if (setq sel (ssget))

       (repeat (setq idx (sslength sel))

           (if (= "GROUP" (cdr (assoc 0 (entget (setq grp (cdr (assoc 330 (entget (ssname sel (setq idx (1- idx)))))))))))

               (entdel grp)

           )

       )

   )

   (princ)

)