Explode Minsert Block

;ARRAY MODULE
(defun KM:ARR_non ( / )
(princ)
)
(defun KM:ARR_rec (CNT_RW CNT_CL DIS_RW DIS_CL)
(command ".-array" (entlast) "" "R" CNT_RW CNT_CL DIS_RW DIS_CL)
(princ)
)
(defun KM:ARR_lin (CNT_RW CNT_CL DIS)
(command ".-array" (entlast) "" "R" CNT_RW CNT_CL DIS)
(princ)
)
;EXPLODE MINSERT BLOCK
(defun KM:XM ( ENT / NT DXF_ENT NAM_BL COR_IN CNT_RW CNT_CL DIS_RW DIS_CL LYR COLR CLYR)
;(if (setq ENT (entsel "\nSELECT MINSERT: \n"))
;(progn
(setq DXF_ENT (entget ENT)
NAM_BL (cdr (assoc 2 DXF_ENT))
COR_IN (cdr (assoc 10 DXF_ENT))
CNT_RW (cdr (assoc 71 DXF_ENT))
CNT_CL (cdr (assoc 70 DXF_ENT))
DIS_RW (cdr (assoc 45 DXF_ENT))
DIS_CL (cdr (assoc 44 DXF_ENT))
LYR (cdr (assoc 8 DXF_ENT))
COLR (cdr (assoc 62 DXF_ENT))
CLYR (getvar "clayer")
);setq
(cond
((/= nil COLR) (setq COLR (itoa COLR)))
((= nil COLR) (setq COLR "bylayer"))
);cond
(setvar "clayer" LYR)
(setvar "cecolor" COLR)
(command ".erase" ENT "")
(command ".-insert" NAM_BL COR_IN "" "" 0)
(cond
((and (= 1 CNT_CL) (= 1 CNT_RW)) (KM:ARR_non))
((and (< 1 CNT_CL) (= 1 CNT_RW)) (KM:ARR_lin CNT_RW CNT_CL DIS_CL))
((and (= 1 CNT_CL) (< 1 CNT_RW)) (KM:ARR_lin CNT_RW CNT_CL DIS_RW))
((and (< 1 CNT_CL) (< 1 CNT_RW)) (KM:ARR_rec CNT_RW CNT_CL DIS_RW DIS_CL))
);cond
(prompt "\nSUCESS EXPLODE MULTY INSERTED BLOCK\n")
(setvar "cecolor" "bylayer")
(setvar "clayer" CLYR)
;);progn
;);if
(princ)
);defun
;===== EXPLODE SECLECTED A MINSERT BLOCK =====
(defun c:xm ( / ENT)
(if (setq ENT (car (entsel "\nSELECT MINSERT: \n")))
(progn
(KM:XM ENT)
);progn
);if
);defun
;;===== EXPLODE ALL MINSERT BLOCKS =====
(defun c:xmm ( / ENT)
(setq n 0)
(setq SS (ssget "X" '((-4 . "<not") (-4 . "<and") (44 . 0) (45 . 0) (-4 . "and>") (-4 . "not>"))))
(setq SSLEN (sslength SS))
(repeat SSLEN
(setq ENT (ssname SS n))
(KM:XM ENT)
(setq n (+ 1 n))
)
)