This would do the job on many objects that the command revcloud can be implemented on .
and if you want it just on Polylines , just remove the other name of entities like this .
(defun c:TesT (/ ss i)
(if (setq ss (ssget '((0 . "LINE,*POLYLINE,CIRCLE,ELLIPSE,SPLINE,ARC"))))
(repeat (setq i (sslength ss))
(command "_.revcloud" "" (ssname ss (setq i (1- i))) "")
Note: do not forget to have the arc length smaller than the length of entities to avoid any pause of the routine .
(setq ss (ssget '((0 . "*POLYLINE"))))
Good luck .