;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 12-28-2004
;;;
(DEFUN C:BRAT ()
  (setq old_osmode (getvar"osmode"))
  (setvar "osmode" 0)
  (SETQ SELENT (ENTSEL))
  (COMMAND ".BREAK" SELENT "F" "APP" PAUSE "@")
  (PRINC)
)
(DEFUN C:BRMID ()
  (setq old_osmode (getvar"osmode"))
  (setvar "osmode" 2)
  (setq pt1 (upoint 1 "" "Select line" nil nil))
  (setq sliness (ssget "CP" (LIST(polar pt1 0 0.1)(polar pt1 (* 0.5 PI) 0.1)(polar pt1 PI 0.1)(polar pt1 (* 1.5 PI) 0.1)) '((0 . "LINE"))))
  (SETQ SELENT (SSNAME sliness 0))
  (COMMAND ".BREAK" SELENT pt1 pt1)
  (PRINC)
)
(SETQ C:BR@ C:BRAT
      C:BRM C:BRMID)
  (PRINC)