Expert: J. B. Borge - 6/17/2005

Question
hy, i have so much arc and i would like to change all my arcs to circle, how i can do this?

thanks


Answer
Just use a lisp below:

(defun c:cirmend (/ os pt2 a pt1 ra pt3)
       (setq os (getvar "osmode"))
       (setvar "osmode" 512)
       (setq pt2 (getpoint "\nPick one of the arcs "))
       (setq a (entget (ssname (ssget pt2) 0)))
       (setq pt1 (cdr (assoc 10 a)))
       (setq ra (cdr (assoc 40 a)))
       (command "erase" pt2 "")
       (setq pt3 (getpoint "\Pick other arc "))
       (setvar "osmode" os)
       (command "erase" pt3 "")
       (command "circle" pt1 ra)
       (princ)
)



This routine should close the open arc entity. Hope this helps, let me know!

Regards-
JB