;框选打断并删除短线
(defun c:mini_break_erase ( / old_cmd old_osmode br_obj cor1 cor2 )
    (mai_start nil)
	(setq old_osmode (getvar "osmode"))
    (setvar "osmode" 0)
    (and (setq cor1 (getpoint "\n框选，线段在框内的交点处断开并删除框内线，拾取角的第一点:<回车退出>"))
         (setq cor2 (getcorner cor1 "\n框选，线段在框内交点断开并删除框内线拾取角的第二点:<回车退出>"))
         (setq br_obj (ssget "c" cor1 cor2 '((0 . "*POLYLINE,LINE,ARC,CIRCLE,ELLIPSE,SPLINE,XLINE,RAY"))))
	)
    (or br_obj (exit))
	(mai_inter_break br_obj (mai_data_corner2 "pline" (list cor1 cor2)))
    (mai_entdel (ssget "w" cor1 cor2 '((0 . "*POLYLINE,LINE,ARC,CIRCLE,ELLIPSE,SPLINE"))) nil)
    (mai_end)
)
