(defun c:Reg2Poly (/ ss)
(if (setq ss (ssget '((0 . "REGION"))))
(progn
(setvar "qaflags" 1)
(command ".explode" ss "")
(setvar "qaflags" 0)
(if (= 1 (getvar "peditaccept"))
(command ".pedit" "m" "p" "" "j" "" "")
(command ".pedit" "m" "p" "" "y" "j" "" "")
)
)
)
(princ)
)