; Convert Region to Polyline (by Arkance Systems)
;
;1.1 - multiple
;
(defun c:region2poly (/ cmde ss reg reg1 lay etyp i)
 (setq cmde (getvar "CMDECHO"))
  (setvar "cmdecho" 0)
  ;(setq reg (entsel "\nSelect a region: "))
  ;(if reg
  (setq ss (ssget '((0 . "REGION"))))
  (if ss
   (progn
   (setq i 0)
   (while (< i (sslength ss))
   ;(setq reg1 (entget (car reg)))
   (setq reg1 (entget (ssname ss i)))
   (setq lay (cdr (assoc 8 reg1)))
   (setq etyp (cdr (assoc 0 reg1)))
;is layer locked?
(if (= 4 (logand 4 (cdr (assoc 70 (tblsearch "layer" lay)))))
 (command "_LAYER" "_U" lay "")
)

;region?
;     (if (eq etyp "REGION")
;          (progn
	(command "._explode" (cdr (assoc -1 reg1)))
	(setq reg1 (entget (entlast)))
	(setq etyp (cdr (assoc 0 reg1)))

(if (eq etyp "LWPOLYLINE")(command "._PEDIT" "_L" "_J" "_P" "" ""))

(if (and (/= etyp "CIRCLE")(/= etyp "LWPOLYLINE"))
 (command "._PEDIT" "_L" "_Y" "_J" "_P" "" "")
)
(princ "\nConverted to polyline.")
;)
;(princ " Not a region!")
;) ; if
	(setq i (1+ i))
) ; while
))
(setvar "cmdecho" cmde)
(princ)
);