;;; Exploding Minserted Object(s) ;;;
(write-line "\nHazırlayan M. Sahin Güvercin - www.autocadokulu.com")
(defun c:MinEx (/ obj L o mob mxd myd mac mxe mye m n nip)
  (setvar "cmdecho" 0) (command "undo" "group")
  (setvar "modemacro" "Prepared by: M. Şahin Güvercin")
  (princ "\nSelect Minserted Object(s) to be explode: ")
  (while (not (setq obj (ssget (list (cons 0 "insert") (cons -4 "!=") (cons 70 0))))))
  (setq L (sslength obj) o -1)
  (while (< (setq o (1+ o)) L)
    (setq mob (entget (ssname obj o))
          mxd (cdr (assoc 44 mob)) myd (cdr (assoc 45 mob))
          mac (cdr (assoc 50 mob)) mxe (cdr (assoc 70 mob))
          mye (cdr (assoc 71 mob)) m -1)
    (mapcar '(lambda (p1) (setq mob (subst (cons p1 0) (assoc p1 mob) mob))) '(44 45 70 71))
    (setq mob (subst (cons 100 "AcDbBlockReference") (cons 100 "AcDbMInsertBlock") mob))
    (entdel (cdr (assoc -1 mob)))
    (while (< (setq n -1 m (1+ m)) mye)
      (setq nip (polar (cdr (assoc 10 mob)) (- mac (* pi 1.5)) (* m myd)))
      (while (< (setq n (1+ n)) mxe)
        (entmake (subst (cons 10 (polar nip mac (* n mxd))) (assoc 10 mob) mob)))))
  (princ (strcat "\n..." (itoa L) " Minserted Object(s) Exploded..."))
  (setvar "modemacro" "") (command "undo" "e") (prin1)
)