Closing an arc !!

Hi all

Can you tell me how to close an arc, so it will become a circle ???

Thanks

Pat

 

This is a lisp routine I use to close circles. Works in R14. Picked it up some years ago, written by someone who didn't
include contact information..............

(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)
)

R. Wink

 

Thanks RonB

And what is the best way to select that arc (hidden under the circle) to
delete it without playing with layer ??

Thanks again

Pat

 

ERASE>>Select both objects with a window or crossing>>R>>L>>ENTER

 

Thanks

But how do you run that lisp once it's in autocad ?

I did load it in but don't know how to run it !

Thanks

Pat

 

Type cirkmend at the command line and press enter.

Conny

 

You have to APPLOAD it, and then issue the command's name, CIRMEND, at the
command prompt.
--


MichaelB
www.michaelbulatovich.com

 

Ok it works, Thanks

Pat

 

You can use control select (hold down control while selecting). It goes
into Cycle mode, where with each mouse click, it cyles thru all objects
within your pickbox. Once the right one becomes highlighted, you press
return, and the selection process continues as normal.

 

I should point out (not really that important actually), that this only
works in WCS, or that the arc isn't tilted.

 

You can use control select (hold down control while selecting).

I really need to remember this.