; Filename: BREAKCIRCLE.LSP  Break a circle into 2 arcs.
;Pick any 2 points on the a Circle.
;The circle will look the same, but it will be broken into two arcs. 
(defun c:bc (/ os pt1 pt2 a pt3)
	(setq os (getvar "osmode"))
	(setvar "osmode" 512)
	(setq pt1 (getpoint "\n First Break in Circle : "))
	(setq pt2 (getpoint "\n Second Break in Cricle : "))
	(setq a (entget (ssname (ssget pt1) 0)))
	(setq pt3 (cdr (assoc 10 a)))
	(command "break" pt1 pt2)
	(command "arc" pt1 "e" pt2 pt3)
	(setvar "osmode" os)
	(princ)
);end c:bc
(princ"\n BREAKCIRCLE.LSP  Break a circle into 2 arcs.    Start -> BC")(princ)