Break at Circle
 
;| 원 브레이크 |; 
(defun c:BRKC (/ os pt1 pt2 a pt3)
(setq os (getvar "osmode"))
(setvar "osmode" 512)
(setq pt1 (getpoint "nFirst Break in Circle : "))
(setq pt2 (getpoint "nSecond 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)
)
(princ) 
 
 

--------------------------------------------------------------------------------------------------------

[아래 리습은 라인 제자리 브레이크-위 리습을 응용한 메카피아 작업소년님]

(defun c:BRL (/ os pt1 pt2)
(setq pt1 (getpoint "nFirst Break in Line : "))
(setq pt2 (getpoint "nSecond Break in Line : "))
(setq a (entget (ssname (ssget pt1) 0)))
(setq pt3 (cdr (assoc 10 a)))
(command "break" pt1 pt2)
(command "line" pt1 pt2 "")
(princ)
)(princ)