;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 7-9-1999
;;;>		   EDITED: 02-26-2005
;;;
(defun c:flip ()
  (while
    (and (setq sel_item (entsel "\010\010\010\010\010\010\010\010\010\010\010\010\010\010\010\010\010\010\010\010\010\010Select block to flip. "))
	 (if sel_item (or
			(and
			  (eq(cdr(assoc 0 (entget(car sel_item))))"INSERT")
			  (/=(boole 1 (cdr(assoc 70 (tblsearch "block"(cdr(assoc 2(entget(car sel_item))))))) 4) 4)
		        )
			(eq(cdr(assoc 0 (entget(car sel_item))))"TEXT")
		      )
	 )
    )
    (setq sel_edata (entget (car sel_item)))
    (setq iang (cdr(assoc 50 sel_edata)))
    (setq sel_edata (subst (cons 50 (+(if(eq(cdr(assoc 0 sel_edata))"TEXT")(/ PI 2)(/ PI 2))iang))(assoc 50 sel_edata)sel_edata))
    (entmod sel_edata)
    (setq sel_item nil)
  )
  (princ "\nNo block selected! ")
  (princ)
)