Here's a lisp routine for exploding minserted
blocks into single blocks and keeping the minsert block pattern?
Heine Munch Nielsen
;CODING STARTS HERE
(defun C:MINX (/ ENT OBS BLK INS CS RS RWS CLS)
(if (setq ENT (entsel "\nSelect minsert: "))
(progn
(command ".undo" "begin")
(setq OBS (entget (car ENT))
BLK (cdr (assoc 2 OBS))
INS (cdr (assoc 10 OBS))
CS (cdr (assoc 44 OBS))
RS (cdr (assoc 45 OBS))
RWS (cdr (assoc 70 OBS))
CLS (cdr (assoc 71 OBS))
)
(command ".insert" ENT "non" INS "" ""
"" ".array" "Last" "" "R" CLS
RWS RS CS ".erase" ENT "")
(command ".undo" "end")
)
)
)
(princ)
;CODING ENDS HERE
|