Here's another, not quite as advanced as CAB's BreakAll program, but I had fun writing it -
(defun c:breakwith ( / *error* brk brl ent ftr idx sel )
(defun *error* ( msg )
(LM:endundo (LM:acdoc))
(if (and msg (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*")))
(princ (strcat "\nError: " msg))
)
(princ)
)
(setq ftr
(list
'(0 . "ARC,CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE")
'(-4 . "<NOT")
'(-4...