MINSERT Block eXplode into ARRAYRECT

;=================== Multy inserted Block eXplode into arrayRect =====================
;ARRAY MODULE
(defun KM:ARR_non ( / )
(princ)
)
(defun KM:ARR_rec (CNT_RW CNT_CL DIS_RW DIS_CL)
(command "_.arrayrect" (entlast) "" "_row" CNT_RW DIS_RW "_col" CNT_CL DIS_CL "_exit")
(princ)
)
(defun KM:ARR_hor (CNT_RW CNT_CL DIS_CL)
(command "_.arrayrect" (entlast) "" "_row" CNT_RW 100 "_col" CNT_CL DIS_CL "_exit")
(princ)
)
(defun KM:ARR_ver (CNT_RW CNT_CL DIS_RW)
(command "_.arrayrect" (entlast) "" "_row" CNT_RW DIS_RW "_col" CNT_CL 100 "_exit")
(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 OSM CLYR)
;
(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))
OSM (getvar "osmode")
CLYR (getvar "clayer")
);setq
(cond
((/= nil COLR) (setq COLR (itoa COLR)))
((= nil COLR) (setq COLR "bylayer"))
);cond
(setvar "osmode" 22561)
(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_hor CNT_RW CNT_CL DIS_CL))
((and (= 1 CNT_CL) (< 1 CNT_RW)) (KM:ARR_ver 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)
(setvar "osmode" OSM)
;);progn
;);if
(princ)
);defun
;;
;MAIN FUCTION c:MBXR
(defun c:mbxr ( / ENT) ; Multy inserted Block eXplode into arrayRect
(if (setq ENT (car (entsel "\nSELECT MINSERT: \n")))
(progn
(KM:XM ENT)
);progn
);if
);defun