;ARC TO CIRCLE
;BY: T.G.CHRISTMAN

(defun C:ATC (/ A AR CE CO RA LA LT TYP)
   (while (not (setq A (entsel "\nSELECT ARC: "))))
   (setq AR (entget (car A)))
   (if (= (cdr (ASSOC 0 AR)) "ARC")
     (progn
       (setq
         CE (cdr (assoc 10 AR))
         RA (cdr (assoc 40 AR))
         LA (cdr (assoc 8 AR))
       )
       (if (cdr (assoc 62 AR))
         (setq CO (cdr (assoc 62 AR)))
         (setq CO 256)
       )
       (if (cdr (assoc 6 AR))
         (setq LT (cdr (assoc 6 AR)))
         (setq LT "BYLAYER")
       )
       (setq 
         TYP (CONS 0 "CIRCLE")
         CE (CONS 10 CE)
         RA (CONS 40 RA)
         LA (CONS 8 LA)
         CO (CONS 62 CO)
         LT (CONS 6 LT)
       )

       (entdel (car A))
       (entmake (list TYP CE RA LA CO LT))

       (PROMPT "\nYOUR ARC IS NOW A CIRCLE")
     )
     (PROMPT "\nNO ARC SELECTED")
  )
  (REDRAW)
  (PRINC)
)