How about this one
(defun C:xp0 (/ dxf_value ent_list en lr_list ss)
(if
(setq ss (ssget "_X" (list (cons 0 "*POLYLINE")(cons 43 0.0))))
(progn
(while (setq en (ssname ss 0))
(setq ent_list (entget en))
(if (= 4 (logand 4 (setq dxf_value
(cdr (assoc 70
(setq lr_list (entget
(tblobjname "layer" (cdr (assoc 8 ent_list))))))))))
(progn
(entmod (subst (cons 70 0)(assoc 70 lr_list) lr_list))
(command "_.explode" en "")
(entmod (subst (cons 70 dxf_value)(assoc 70 lr_list) lr_list))
)
)
(ssdel en ss)
)
)
)
(princ)
)
~'J'~