Convert to an arc

I have an arc that is a number of short straight lines. Is there a way to convert the line segments to an arc?

If you use Pedit to join all the straight lines into one polyline, and then Fit curve.

One trouble there is that you would have as many arcs as you had short lines. Perhaps another approach would be to draw a new arc using three points, and then erase all the little lines.

If it is truelly an arc (part of a circle) rather than a general curve represented by lines then simply circle (or arc) with three points. Delete the lines.

I was trying to not have to draw all of them. Each arc is really made up of three or four arcs.

I was trying to not have to draw all of them. Each arc is really made up of three or four arcs.

Someone out there might have a lisp, but my question is, "Which lines go with which arcs?" That question is a lot easier for a human to answer than it is for a machine. Think about how you would code that....

Quick and CLUNKY...

Will only work on one set at a time.

(defun c:test (/ ss eLast ent)
 (vl-load-com)
 (if (setq ss (ssget "_:L" '((0 . "ARC"))))
   (progn
     (setq eLast (entlast))
     (if (eq (getvar 'peditaccept) 1)
       (vl-cmdf "_.pedit" "_m" ss "" "_j" "" "")
       (vl-cmdf "_.pedit" "_m" ss "" "_y" "_j" "" "")
     )
     (or
       (eq eLast (setq ent (entlast)))
       ((lambda (pts)
          (vl-cmdf "_.arc" "_non" (car pts) "_non" (nth (/ (length pts) 2) pts) "_non" (last pts))
          (entdel ent)
        )
         (mapcar (function cdr)
                 (vl-remove-if-not (function (lambda (x) (eq 10 (car x)))) (entget ent))
         )
       )
     )
   )
 )
 (princ)
)

Thanks for the suggestions. I am going to manually get them like I want.