Help making this lisp use arced Polylines

[g_wong]

Here is some code that I found online, but I want to use and arced polyline instead of a line


(defun c:cb (/ ALLINES CC FF FLIST GTPOINT INDICE N NS P1 SS)


(setq ss (ssget '((-4 . "<OR") (0 . "INSERT") (-4 . "OR>"))))
(setq ns (sslength ss))
(setq n 0)
(setq allines nil)
(setq flist nil)
(command "osmode" "0")
(while (< n ns)
(setq P1 (cdr (assoc 10 (entget (ssname ss n)))))
(setq allines (cons p1 allines))
(setq n (+ n 1))
)
(setq
ff (vl-sort-i allines
(function (lambda (e1 e2) (< (car e1) (car e2))))
)
)
(setq n 0)
(while (< n ns)
(setq indice (nth n ff))
(setq gtpoint (nth indice allines))
(setq flist (cons gtpoint flist))
(setq n (+ 1 n))
)
(setq flist (reverse flist))
(setq cc 0)
(while (< cc (1- ns))
(command "LINE" (nth cc flist) (nth (+ cc 1) flist) "")
(setq cc (+ 1 cc))
)
)